Changeset 32 for ccr/trunk/p


Ignore:
Timestamp:
Jul 1, 2008, 7:01:27 PM (16 years ago)
Author:
George Lilly
Message:

Added comments for actor routines

File:
1 edited

Legend:

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

    r31 r32  
    55 ;
    66EXPORT ; EXPORT ENTRY POINT FOR CCR
    7         ; Select a patient for real.
     7        ; Select a patient.
    88        S DIC=2,DIC(0)="AEMQ" D ^DIC
    99        I Y<1 Q ; EXIT
     
    2626        ; HDRARY IS THE HEADER ARRAY DEFINING THE "FROM" AND "TO" VARIABLES
    2727        ;    IF NULL WILL DEFAULT TO "FROM" DUZ AND "TO" DFN
    28         S DEBUG=0
     28        S DEBUG=1
    2929        S TGLOBAL=$NA(^TMP($J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
    3030        S CCRGLO=$NA(^TMP($J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR
     
    6262        . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
    6363        . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
    64         . D ACTLST^GPLCCR(CCRGLO,ACTGLO)
     64        . D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
    6565        Q
    6666        ;
     
    132132;;><PROBLEMS>
    133133;;>>>K GPL S GPL=""
    134 ;;>>>D CCRRPC^GPLCCR(.GPL,"2","PROBLEMS")
     134;;>>>D CCRRPC^GPLCCR(.GPL,"2","PROBLEMS","","","")
    135135;;>>?@GPL@(@GPL@(0))="</Problems>"
    136136;;><CCR>
    137137;;>>>K GPL S GPL=""
    138 ;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR")
     138;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","")
    139139;;>>?@GPL@(@GPL@(0))="</ContinutiyOfCareRecord>"
    140140;;><ACTLST>
    141141;;>>>N TCCR
    142 ;;>>>D CCRRPC^GPLCCR(.TCCR,"2","CCR")
     142;;>>>D CCRRPC^GPLCCR(.TCCR,"2","CCR","","","")
    143143;;>>>D ACTLST^GPLCCR("TCCR","ACTTEST")
    144144;;></TEST>
Note: See TracChangeset for help on using the changeset viewer.