Changeset 57 for ccr/trunk/p/GPLACTORS.m
- Timestamp:
- Jul 11, 2008, 7:08:09 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLACTORS.m
r54 r57 3 3 ; 4 4 ; PROCESS THE ACTORS SECTION OF THE CCR 5 6 7 8 9 5 ; 6 ; ===Revision History=== 7 ; 0.1 Initial Writing of Skeleton--GPL 8 ; 0.2 Patient Data Extraction--SMH 9 ; 0.3 Information System Info Extraction--SMH 10 10 ; 11 11 EXTRACT(IPXML,ALST,AXML) ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE 12 12 ; IPXML is the Input Actor Template into which we are going to substitute values 13 14 15 16 17 18 19 13 ; This is straight XML. Values to be substituted are in @@VAL@@ format. 14 15 ; ALST is the actor list global generated by ACTLST^GPLCCR and is in the following format 16 ; ^TMP(7542,1,"ACTORS",0)=Count 17 ; ^TMP(7542,1,"ACTORS",n)="ActorID^ActorType^ActorIEN" 18 ; ActorType is an enum containing either "PROVIDER" "PATIENT" "SYSTEM" 19 20 20 ; AXML is the output arrary, to contain XML. 21 21 … … 48 48 . . D PROVIDER("ATMP",@ALST@(I),"ATMP2") 49 49 . ; 50 . I ATYP="ORGANIZATION" D ; PROVIDER ACTOR TYPE 51 . . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-ORG","ATMP") 52 . . D ORG("ATMP",@ALST@(I),"ATMP2") 53 . ; 50 54 . D INSINNER^GPLXPATH(AXML,"ATMP2") ; INSERT INTO ROOT 51 55 ; … … 62 66 ; N AMAP 63 67 S AMAP=$NA(^TMP($J,"AMAP")) 64 68 D INIT^CCRDPT(AIEN) 65 69 S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID 66 70 S @AMAP@("ACTORGIVENNAME")=$$GIVEN^CCRDPT … … 79 83 S @AMAP@("ACTORRESTEL")=$$RESTEL^CCRDPT 80 84 S @AMAP@("ACTORWORKTEL")=$$WORKTEL^CCRDPT 81 85 S @AMAP@("ACTORCELLTEL")=$$CELLTEL^CCRDPT 82 86 S @AMAP@("ACTOREMAIL")=$$EMAIL^CCRDPT 83 87 S @AMAP@("ACTORADDRESSSOURCEID")=AOID 84 88 D DESTROY^CCRDPT 85 89 D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE 86 90 Q … … 92 96 S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID 93 97 S @AMAP@("ACTORINFOSYSNAME")=$$SYSNAME^CCRSYS 94 98 S @AMAP@("ACTORINFOSYSVER")=$$SYSVER^CCRSYS 95 99 S @AMAP@("ACTORINFOSYSSOURCEID")=AOID 96 100 D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE … … 105 109 S @AMAP@("ACTORRELATION")="" 106 110 S @AMAP@("ACTORRELATIONSOURCEID")="" 111 D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE 112 Q 113 ; 114 ORG(INXML,ACTREC,OUTXML) ; PROCESS AN ORGANIZATION TYPE ACTOR 115 ; 116 ; N AMAP 117 S AMAP=$NA(^TMP($J,"AMAP")) 118 S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID 119 S @AMAP@("ORGANIZATIONNAME")="WORLDVISTA EHR CLINIC" 120 S @AMAP@("ACTORSOURCEID")="ACTORSYSTEM_1" 107 121 D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE 108 122 Q
Note:
See TracChangeset
for help on using the changeset viewer.