Changeset 50 for ccr/trunk


Ignore:
Timestamp:
Jul 7, 2008, 1:30:04 AM (16 years ago)
Author:
George Lilly
Message:

Added "GPLCCR" to TMP globals for SAC compliance

Location:
ccr/trunk/p
Files:
5 edited

Legend:

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

    r47 r50  
    1111       N CCRGLO
    1212       D CCRRPC(.CCRGLO,DFN,"CCR","","","")
    13        S OARY=$NA(^TMP($J,DFN,"CCR",1))
     13       S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
    1414       S ONAM="PAT_"_DFN_"_CCR_V1.xml"
    1515       S ODIR="/home/glilly/CCROUT"
    1616       ;S ODIR="/home/cedwards/"
    17            ;S ODIR="/opt/wv/p/"
     17           ;S ODIR="/opt/wv/p/"
    1818       D OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
    1919       Q
     
    3131    ;    IF NULL WILL DEFAULT TO "FROM" DUZ AND "TO" DFN
    3232    S DEBUG=0
    33     S TGLOBAL=$NA(^TMP($J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
    34     S CCRGLO=$NA(^TMP($J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR
    35     S ACTGLO=$NA(^TMP($J,DFN,"ACTORS")) ; GLOBAL FOR ALL ACTORS
     33    S TGLOBAL=$NA(^TMP("GPLCCR",$J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
     34    S CCRGLO=$NA(^TMP("GPLCCR",$J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR
     35    S ACTGLO=$NA(^TMP("GPLCCR",$J,DFN,"ACTORS")) ; GLOBAL FOR ALL ACTORS
    3636    ; TO GET PART OF THE CCR RETURNED, PASS CCRPART="PROBLEMS" ETC
    37     S CCRGRTN=$NA(^TMP($J,DFN,CCRPART)) ; RTN GLO NM OF PART OR ALL
     37    S CCRGRTN=$NA(^TMP("GPLCCR",$J,DFN,CCRPART)) ; RTN GLO NM OF PART OR ALL
    3838    D LOAD^GPLCCR0(TGLOBAL)  ; LOAD THE CCR TEMPLATE
    3939    D CP^GPLXPATH(TGLOBAL,CCRGLO) ; COPY THE TEMPLATE TO CCR GLOBAL
     
    4848    D HDRMAP(CCRGLO,DFN,HDRARY) ; MAP HEADER VARIABLES
    4949    ;
    50     K ^TMP($J,"CCRSTEP") ; KILL GLOBAL PRIOR TO ADDING TO IT
    51     S CCRXTAB="^TMP($J,""CCRSTEP"")" ; GLOBAL TO STORE CCR STEPS
     50    K ^TMP("GPLCCR",$J,"CCRSTEP") ; KILL GLOBAL PRIOR TO ADDING TO IT
     51    S CCRXTAB=$NA(^TMP("GPLCCR",$J,"CCRSTEP")) ; GLOBAL TO STORE CCR STEPS
    5252    D INITSTPS(CCRXTAB) ; INITIALIZED CCR PROCESSING STEPS
    5353    N I,XI,TAG,RTN,CALL,XPATH,IXML,OXML,INXML,CCRBLD
     
    7575INITSTPS(TAB)  ; INITIALIZE CCR PROCESSING STEPS
    7676    ; TAB IS PASSED BY NAME
    77     ; W "TAB= ",TAB,!
    78     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLPROBS;//ContinuityOfCareRecord/Body/Problems;^TMP($J,DFN,""PROBLEMS"")")
    79     D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITALS;//ContinuityOfCareRecord/Body/VitalSigns;^TMP($J,DFN,""VITALS"")")
     77    W "TAB= ",TAB,!
     78    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLPROBS;//ContinuityOfCareRecord/Body/Problems;^TMP(""GPLCCR"",$J,DFN,""PROBLEMS"")")
     79    D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITALS;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
    8080    Q
    8181    ;
    8282HDRMAP(CXML,DFN,IHDR)   ; MAP HEADER VARIABLES: FROM, TO ECT
    83     N VMAP S VMAP=$NA(^TMP($J,DFN,"HEADER"))
     83    N VMAP S VMAP=$NA(^TMP("GPLCCR",$J,DFN,"HEADER"))
    8484    ; K @VMAP
    8585    S @VMAP@("DATETIME")=$$FMDTOUTC^CCRUTIL($$FMTHL7^XLFDT($$NOW^XLFDT),"DT")
  • ccr/trunk/p/GPLPROBS.m

    r43 r50  
    1616          I '$D(RPCRSLT(0)) W "ERROR CALLING LIST^ORQQPL3 ",! Q
    1717          ZWR RPCRSLT
    18           S TVMAP=$NA(^TMP($J,"PROBVALS"))
    19           S TARYTMP=$NA(^TMP($J,"PROBARYTMP"))
     18          S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS"))
     19          S TARYTMP=$NA(^TMP("GPLCCR",$J,"PROBARYTMP"))
    2020          F J=1:1:RPCRSLT(0)  D  ; FOR EACH PROBLEM IN THE LIST
    2121          . S VMAP=$NA(@TVMAP@(J))
     
    5252          . I J>1 D  ; AFTER THE FIRST, INSERT INNER XML
    5353          . . D INSINNER^GPLXPATH(OUTXML,ARYTMP)
    54           ; ZWR ^TMP($J,"PROBVALS",*)
    55           ; ZWR ^TMP($J,"PROBARYTMP",*) ; SHOW THE RESULTS
     54          ; ZWR ^TMP("GPLCCR",$J,"PROBVALS",*)
     55          ; ZWR ^TMP("GPLCCR",$J,"PROBARYTMP",*) ; SHOW THE RESULTS
    5656          ; ZWR @OUTXML
    5757          ; $$HTML^DILF(
  • ccr/trunk/p/GPLUNIT.m

    r43 r50  
    3939          ;
    4040          N NUM F NUM=1:1 S LINE=$T(+NUM^@ROUTINE) Q:LINE=""  D
    41           . W NUM," ",LINE,!
    4241          . I LINE?." "1";;><TEST>".E S INTEST=1 ; entering test section
    4342          . I LINE?." "1";;><TEMPLATE>".E S INTEST=1 ; entering TEMPLATE section
  • ccr/trunk/p/GPLVITALS.m

    r40 r50  
    1010          I '$D(VITRSLT(1)) W "ERROR RUNNINIG VITALS RPC",! Q
    1111          ; ZWR RPCRSLT
    12           S VITTVMAP=$NA(^TMP($J,"VITALS"))
    13           S VITTARYTMP=$NA(^TMP($J,"VITALARYTMP"))
     12          S VITTVMAP=$NA(^TMP("GPLCCR",$J,"VITALS"))
     13          S VITTARYTMP=$NA(^TMP("GPLCCR",$J,"VITALARYTMP"))
    1414          F J=1:1:VITRSLT(1)  D  ; FOR EACH VITAL IN THE LIST
    15           . I $D(VITRSLT(J)) D 
     15          . I $D(VITRSLT(J)) D
    1616          . . S VITVMAP=$NA(@VITTVMAP@(J))
    1717          . . K @VITVMAP
  • ccr/trunk/p/GPLXPATH.m

    r43 r50  
    331331         Q
    332332         ;
     333TRIM(THEXML) ; TAKES OUT ALL NULL ELEMENTS
     334       ; THEXML IS PASSED BY NAME
     335       N I,J,TMPXML,DEL
     336       F I=1:1:@THEXML@(0) D  ; LOOP THROUGH ENTIRE ARRAY
     337       . I @THEXML@(I)'["><" D PUSH("TMPXML",@THEXML@(I))
     338       D INDEX("TMPXML") ; MAKE AN XPATH INDEX
     339       S I="" S I=$O(TMPXML(I))
     340       F K=0:0  D  Q:I="" ; NOW LOOK FOR EMPTY SECTIONS
     341       . I I["//" D  ;
     342       . . W I,TMPXML(I),!
     343       . . S J=$P(TMPXML(I),"^",1)
     344       . . I J+1=$P(TMPXML(I),"^",2) D  ;
     345       . . . W I,!
     346       . . . S DEL(J)=""
     347       . . . S DEL(J+1)=""
     348       . S I=$O(TMPXML(I))
     349       F I=1:1:TMPXML(0) D  ;
     350       . I '$D(DEL(I))
     351       . D PUSH("TMPXML2",TMPXML(I))
     352       D CP("TMPXML2",THEXML)
     353       Q
     354       ;
    333355PARY(GLO)       ;PRINT AN ARRAY
    334356        N I
Note: See TracChangeset for help on using the changeset viewer.