Changeset 33 for ccr/trunk


Ignore:
Timestamp:
Jul 2, 2008, 11:19:41 AM (16 years ago)
Author:
George Lilly
Message:

Took the call for actor processing out of the body loop

File:
1 edited

Legend:

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

    r32 r33  
    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) ; GEN THE ACTOR LIST
     64        D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
    6565        Q
    6666        ;
     
    9292        ; EACH ACTOR RECORD HAS 3 PARTS - IE IF OBJECTID=ACTORPATIENT_2
    9393        ; P1= OBJECTID - ACTORPATIENT_2
    94         ; P2= OBJECT TYPE - PATIENT OR PROVIDER
     94        ; P2= OBJECT TYPE - PATIENT OR PROVIDER OR SOFTWARE OR INSTITUTION
     95        ;     OR PERSON(IN PATIENT FILE IE NOK)
    9596        ; P3= IEN RECORD NUMBER FOR ACTOR - 2
    9697        N I,J,K,L
     
    135136;;>>?@GPL@(@GPL@(0))="</Problems>"
    136137;;><CCR>
     138;;>>>D ^%ZTER
    137139;;>>>K GPL S GPL=""
    138140;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","")
Note: See TracChangeset for help on using the changeset viewer.