Changeset 135 for ccr/trunk


Ignore:
Timestamp:
Sep 3, 2008, 7:54:55 PM (16 years ago)
Author:
George Lilly
Message:

more extraneous write cleanup

Location:
ccr/trunk/p
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLACTOR.m

    r122 r135  
    3737           D CP^GPLXPATH(IPXML,AXML) ; MAKE A COPY OF ACTORS XML
    3838           D REPLACE^GPLXPATH(AXML,"","//Actors") ; DELETE THE INSIDES
    39            W "PROCESSING ACTORS ",!
     39           I DEBUG W "PROCESSING ACTORS ",!
    4040           F I=1:1:@ALST@(0) D  ; PROCESS ALL ACTORS IN THE LIST
    4141           . I @ALST@(I)["@@" Q  ; NOT A VALID ACTOR
     
    4545           . I ATYP="" Q  ; NOT A VALID ACTOR
    4646           . ;
    47            . W AOID_" "_ATYP_" "_AIEN,!
     47           . I DEBUG W AOID_" "_ATYP_" "_AIEN,!
    4848           . I ATYP="PATIENT" D  ; PATIENT ACTOR TYPE
    4949           . . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-PATIENT","ATMP")
     
    7878PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
    7979     ;
    80      W "PROCESSING ACTOR PATIENT ",AIEN,!
     80     I DEBUG W "PROCESSING ACTOR PATIENT ",AIEN,!
    8181     N AMAP,ZX
    8282     S AMAP=$NA(^TMP($J,"AMAP"))
  • ccr/trunk/p/GPLCCR.m

    r134 r135  
    9494    . ; W OXML,!
    9595    . S CALL="D "_TAG_"^"_RTN_"(IXML,DFN,OXML)" ; SETUP THE CALL
    96     . W "RUNNING ",CALL,!
     96    . I DEBUG W "RUNNING ",CALL,!
    9797    . X CALL
    9898    . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
     
    107107    F TRIMI=0:0 D  Q:DONE  ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE
    108108    . S J=$$TRIM^GPLXPATH(CCRGLO) ; DELETE EMPTY ELEMENTS
    109     . W "TRIMMED",J,!
     109    . I DEBUG W "TRIMMED",J,!
    110110    . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE
    111111    Q
     
    113113INITSTPS(TAB)  ; INITIALIZE CCR PROCESSING STEPS
    114114    ; TAB IS PASSED BY NAME
    115     W "TAB= ",TAB,!
     115    I DEBUG W "TAB= ",TAB,!
    116116    ; ORDER FOR CCR IS PROBLEMS,FAMILYHISTORY,SOCIALHISTORY,MEDICATIONS,VITALSIGNS,RESULTS,HEALTHCAREPROVIDERS
    117117    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLPROBS;//ContinuityOfCareRecord/Body/Problems;^TMP(""GPLCCR"",$J,DFN,""PROBLEMS"")")
     
    153153    . I @AXML@(I)?.E1"<ActorID>".E D  ; THERE IS AN ACTOR THIS LINE
    154154    . . S J=$P($P(@AXML@(I),"<ActorID>",2),"</ActorID>",1)
    155     . . W "<ActorID>=>",J,!
     155    . . I DEBUG W "<ActorID>=>",J,!
    156156    . . I J'="" S K(J)="" ; HASHING ACTOR
    157157    . . ;  TO GET RID OF DUPLICATES
  • ccr/trunk/p/GPLMEDS.m

    r130 r135  
    8484   . I ZK>2 D  ; THIRD THROUGH 2+N LINES OF MED ARE INSTRUCTIONS
    8585   . . N TMPTXT S TMPTXT="" ; BUILD UP INSTRUCTION LINE
    86    . . S ZN=0 ; DON'T KNOW WHY
    8786   . . F ZN=2:1:ZK-1 D  ; REMAINING LINES IN EACH MED
    8887   . . . I MEDRSLT(ZJ+ZN)]"\ Sig: " D  ; REMOVE THIS MARKUP
  • ccr/trunk/p/GPLPROBS.m

    r122 r135  
    4242          . S VMAP=$NA(@TVMAP@(J))
    4343          . K @VMAP
    44           . W "VMAP= ",VMAP,!
     44          . I DEBUG W "VMAP= ",VMAP,!
    4545          . S PTMP=RPCRSLT(J) ; PULL OUT PROBLEM FROM RPC RETURN ARRAY
    4646          . S @VMAP@("PROBLEMOBJECTID")="PROBLEM"_J ; UNIQUE OBJID FOR PROBLEM
     
    8282          . F GPLPROBI=1:1:RPCRSLT(0) D  ; FOR EACH PROBLEM
    8383          . . S VMAP=$NA(@TVMAP@(GPLPROBI))
    84           . . W "VMAP =",VMAP,!
     84          . . I DEBUG W "VMAP =",VMAP,!
    8585          . . D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Body/PROBLEMS-HTML","HTMP") ; GET THE HTML FROM THE TEMPLATE
    8686          . . D UNMARK^GPLXPATH("HTMP") ; REMOVE <PROBLEMS-HTML> MARKUP
     
    9191          . . . D CP^GPLXPATH("HOUT","HTMLO")
    9292          . . I GPLPROBI>1 D  ; AFTER THE FIRST, INSERT INNER HTML
    93           . . . W "DOING INNER",!
     93          . . . I DEBUG W "DOING INNER",!
    9494          . . . N HTMLBLD,HTMLTMP
    9595          . . . D QUEUE^GPLXPATH("HTMLBLD","HTMLO",1,HTMLO(0)-1)
     
    105105          I PROBSTMP(0)>0  D  ; IF THERE ARE MISSING VARS -
    106106          . ; STRINGS MARKED AS @@X@@
    107           . W "PROBLEMS Missing list: ",!
     107          . W !,"PROBLEMS Missing list: ",!
    108108          . F I=1:1:PROBSTMP(0) W PROBSTMP(I),!
    109109          Q
  • ccr/trunk/p/GPLVITAL.m

    r132 r135  
    171171          . . . ; W "FIRST ONE",!
    172172          . . . D CP^GPLXPATH(VITARYTMP,VITOUTXML)
    173           . . . W "VITOUTXML ",VITOUTXML,!
     173          . . . I DEBUG W "VITOUTXML ",VITOUTXML,!
    174174          . . I J>1 D  ; AFTER THE FIRST, INSERT INNER XML
    175175          . . . D INSINNER^GPLXPATH(VITOUTXML,VITARYTMP)
Note: See TracChangeset for help on using the changeset viewer.