fixed spacing issues

p/CCRDPT.m

@@ -198,7 +198,7 @@ DISPNAME() ; Display Name; PUBLIC; Extrinsic
           N NAME S NAME=$P(PT(0),"^",1)
           Q $$NAMEFMT^XLFNAME(.NAME,"G","MXc") 
           ; "G" is Given Name First; "MXc" is Mixed Case, With Suffx Preceded by Comma
-DOB() ; Date of Birth; PUBLIC; Extrinsic
+OB() ; Date of Birth; PUBLIC; Extrinsic
           ; PREREQ: PT Defined
           Q:$G(PT(0))="" ""
           N DOB S DOB=$P(PT(0),"^",3)

p/GPLPROBS.m

@@ -61,3 +61,4 @@ EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT PROBLEMS INTO PROVIDED XML TEMPLATE
           . W "PROBLEMS Missing list: ",!
           . F I=1:1:PROBSTMP(0) W PROBSTMP(I),!
           Q
+          ;