Changeset 135 for ccr/trunk/p/GPLPROBS.m

Timestamp:

Sep 3, 2008, 7:54:55 PM (16 years ago)

Author:

George Lilly

Message:

more extraneous write cleanup

File:

• ccr/trunk/p/GPLPROBS.m (modified) (4 diffs)

ccr/trunk/p/GPLPROBS.m

@@ -42 +42 @@
           . S VMAP=$NA(@TVMAP@(J))
           . K @VMAP
-          . W "VMAP= ",VMAP,!
+          . I DEBUG W "VMAP= ",VMAP,!
           . S PTMP=RPCRSLT(J) ; PULL OUT PROBLEM FROM RPC RETURN ARRAY
           . S @VMAP@("PROBLEMOBJECTID")="PROBLEM"_J ; UNIQUE OBJID FOR PROBLEM
@@ -82 +82 @@
           . F GPLPROBI=1:1:RPCRSLT(0) D  ; FOR EACH PROBLEM
           . . S VMAP=$NA(@TVMAP@(GPLPROBI))
-          . . W "VMAP =",VMAP,!
+          . . I DEBUG W "VMAP =",VMAP,!
           . . D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Body/PROBLEMS-HTML","HTMP") ; GET THE HTML FROM THE TEMPLATE
           . . D UNMARK^GPLXPATH("HTMP") ; REMOVE <PROBLEMS-HTML> MARKUP
@@ -91 +91 @@
           . . . D CP^GPLXPATH("HOUT","HTMLO")
           . . I GPLPROBI>1 D  ; AFTER THE FIRST, INSERT INNER HTML
-          . . . W "DOING INNER",!
+          . . . I DEBUG W "DOING INNER",!
           . . . N HTMLBLD,HTMLTMP
           . . . D QUEUE^GPLXPATH("HTMLBLD","HTMLO",1,HTMLO(0)-1)
@@ -105 +105 @@
           I PROBSTMP(0)>0  D  ; IF THERE ARE MISSING VARS -
           . ; STRINGS MARKED AS @@X@@
-          . W "PROBLEMS Missing list: ",!
+          . W !,"PROBLEMS Missing list: ",!
           . F I=1:1:PROBSTMP(0) W PROBSTMP(I),!
           Q