GPLCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08
;;0.1;CCDCCR;nopatch;noreleasedate
W "This is a CCR TEMPLATE with processing routines",!
W !
Q
;
ZT(ZARY,BAT,LINE) ; private routine to add a line to the ZARY array
; ZARY IS PASSED BY NAME
; BAT is a string identifying the section
; LINE is a test which will evaluate to true or false
; I '$G(@ZARY) D
. S @ZARY@(0)=0 ; initially there are no elements
. W "GOT HERE LOADING "_LINE,!
N CNT ; count of array elements
S CNT=@ZARY@(0) ; contains array count
S CNT=CNT+1 ; increment count
S @ZARY@(CNT)=LINE ; put the line in the array
; S @ZARY@(BAT,CNT)="" ; index the test by battery
S @ZARY@(0)=CNT ; update the array counter
Q
;
ZLOAD(ZARY,ROUTINE) ; load tests into ZARY which is passed by reference
; ZARY IS PASSED BY NAME
; ZARY = name of the root, closed array format (e.g., "^TMP($J)")
; ROUTINE = NAME OF THE ROUTINE - PASSED BY VALUE
K @ZARY S @ZARY=""
S @ZARY@(0)=0 ; initialize array count
N LINE,LABEL,BODY
N INTEST S INTEST=0 ; switch for in the TEMPLATE section
N SECTION S SECTION="[anonymous]" ; NO section LABEL
;
N NUM F NUM=1:1 S LINE=$T(+NUM^@ROUTINE) Q:LINE="" D
. I LINE?." "1";".E S INTEST=1 ; entering section
. I LINE?." "1";".E S INTEST=0 ; leaving section
. I INTEST D ; within the section
. . I LINE?." "1";><".E D ; sub-section name found
. . . S SECTION=$P($P(LINE,";><",2),">",1) ; pull out name
. . I LINE?." "1";;".E D ; line found
. . . D ZT(ZARY,SECTION,$P(LINE,";;",2)) ; put the line in the array
Q
;
LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
D ZLOAD(ARY,"GPLCCR0")
; ZWR @ARY
Q
;
;
;;
;;
;;
;;871bd605-e8f8-4b80-9918-4b03f781129e
;;
;;English
;;
;;V1.0
;;
;;@@DATETIME@@
;;
;;
;;@@ACTORPATIENT@@
;;
;;
;;
;;@@ACTORFROM@@
;;
;;
;;@@ACTORFROM2@@
;;
;;
;;
;;
;;@@ACTORTO@@
;;
;;@@ACTORTOTEXT@@
;;
;;
;;
;;
;;
;;@@PURPOSEDESCRIPTION@@
;;
;;
;;
;;
;;
;;@@PROBLEMOBJECTID@@
;;
;;Problem
;;
;;
;;@@PROBLEMDESCRIPTION@@
;;
;;@@PROBLEMCODEVALUE@@
;;ICD9CM
;;@@PROBLEMCODINGVERSION@@
;;
;;
;;
;;
;;@@PROBLEMSOURCEACTORID@@
;;
;;
;;
;;
;;
;;
;;@@FAMILYHISTORYOBJECTID@@
;;
;;
;;@@FAMILYHISTORYACTORID@@
;;
;;
;;
;;@@FAMILYMEMBERACTORID@@
;;
;;@@FAMILYMEMBERACTORROLETEXT@@
;;
;;
;;
;;@@FAMILYMEMBERSOURCACTORID@@
;;
;;
;;
;;
;;
;;Problem
;;
;;
;;Heart Disease
;;
;;C0018799
;;UMLS Concept
;;2006
;;
;;
;;429.9
;;ICD9CM
;;2006
;;
;;
;;56265001
;;SNOMEDCT
;;2006
;;
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;
;;BB0003
;;
;;
;;AA0001
;;
;;
;;
;;AA0004
;;
;;Grandparents
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;
;;Problem
;;
;;
;;Arthritis
;;
;;C0003873
;;UMLS Concept
;;2006
;;
;;
;;714.0
;;ICD9CM
;;2006
;;
;;
;;69896004
;;SNOMEDCT
;;2006
;;
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;
;;Problem
;;
;;
;;Diabetes Mellitus
;;
;;C0375113
;;UMLS Concept
;;2006
;;
;;
;;250.00
;;ICD9CM
;;2006
;;
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;
;;Problem
;;
;;
;;Parkinson's disease NOS
;;
;;332.0
;;ICD9CM
;;2007
;;
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;
;;
;;
;;@@SOCIALHISTORYOBJECTID@@
;;
;;@@SOCIALHISTORYTYPETEXT@@
;;
;;
;;@@SOCIALHISTORYDESCRIPTIONTEXT@@
;;
;;
;;
;;@@SOCIALHISTORYSOURCACTORID@@
;;
;;
;;
;;
;;BB0005
;;
;;Ethnic Origin
;;
;;
;;Not Hispanic or Latino
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;BB0006
;;
;;Race
;;
;;
;;White
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;BB0007
;;
;;Occupation
;;
;;
;;Physician
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;
;;
;;@@MEDICATIONOBJECTID@@
;;
;;
;;@@MEDICATIONDATETIMETEXT@@
;;
;;
;;@@MEDICATIONDATETIMEAGE@@
;;
;;@@MEDICATIONDATETIMEAGEUNITS@@
;;
;;
;;
;;
;;@@MEDICATIONTYPETEXT@@
;;
;;
;;@@MEDICATIONSTATUSTEXT@@
;;
;;
;;
;;@@MEDICATIONSOURCEACTORID@@
;;
;;
;;
;;
;;@@MEDICATIONPRODUCTNAMETEXT@@
;;
;;@@MEDICATIONPRODUCTNAMECODEVALUE@@
;;@@MEDICATIONPRODUCTNAMECODINGINGSYSTEM@@
;;@@MEDICATIONPRODUCTNAMECODEVERSION@@
;;
;;
;;
;;@@MEDICATIONBRANDNAMETEXT@@
;;
;;@@MEDICATIONBRANDNAMECODEVALUE@@
;;@@MEDICATIONBRANDNAMECODINGSYSTEM@@
;;@@MEDICATIONBRANDNAMECODEVERSION@@
;;
;;
;;
;;@@MEDICATIONSTRENGTHVALUE@@
;;
;;@@MEDICATIONSTRENGTHUNIT@@
;;
;;
;;
;;
;;
;;
;;
;;@@MEDICATIONDIRECTIONDESCRIPTIONTEXT@@
;;
;;
;;@@MEDICATIONDIRECTIONDOSEVALUE@@
;;
;;
;;@@MEDICATIONDIRECTIONROUTETEXT@@
;;
;;
;;@@MEDICATIONDIRECTIONFREQUENCYVALUE@@
;;
;;
;;
;;
;;
;;
;;
;;@@VITALSIGNSDATAOBJECTID@@
;;
;;
;;@@VITALSIGNSDATETIMETYPETEXT@@
;;
;;@@VITALSIGNSEXACTDATETIME@@
;;
;;
;;@@VITALSIGNSDESCRIPTIONTEXT@@
;;
;;
;;
;;@@VITALSIGNSSOURCEACTORID@@
;;
;;
;;
;;@@VITALSIGNSTESTOBJECTID@@
;;
;;@@VITALSIGNSTESTTYPETEXT@@
;;
;;
;;@@VITALSIGNSDESCRIPTIONTEXT@@
;;
;;@@VITALSIGNSDESCRIPTIONCODEVALUE@@
;;@@VITALSIGNSDESCRIPTIONCODINGSYSTEM@@
;;@@VITALSIGNSCODEVERSION@@
;;
;;
;;
;;
;;@@VITALSIGNSTESTSOURCEACTORID@@
;;
;;
;;
;;@@VITALSIGNSTESTRESULTVALUE@@
;;
;;@@VITALSIGNSTESTRESULTUNIT@@
;;
;;
;;
;;
;;
;;
;;
;;AA0005
;;
;;Primary Provider
;;
;;
;;
;;
;;
;;
;;
;;@@ACTOROBJECTID@@
;;
;;
;;
;;@@ACTORGIVENNAME@@
;;@@ACTORMIDDLENAME@@
;;@@ACTORFAMILYNAME@@
;;
;;
;;
;;@@ACTORDATEOFBIRTH@@
;;
;;
;;
;;@@ACTORGENDER@@
;;@@ACTORGENDER@@
;;2.16.840.1.113883.5.1
;;
;;
;;
;;
;;
;;SSN
;;
;;@@ACTORSSN@@
;;
;;
;;@@ACTORSSNSOURCEID@@
;;
;;
;;
;;
;;
;;@@ACTORADDRESSTYPE@@
;;
;;@@ACTORADDRESSLINE1@@
;;@@ACTORADDRESSLINE2@@
;;@@ACTORADDRESSCITY@@
;;@@ACTORADDRESSSTATE@@
;;@@ACTORADDRESSZIPCODE@@
;;
;;
;;@@ACTORRESTEL@@
;;
;;Residential Telephone
;;
;;
;;
;;@@ACTORWORKTEL@@
;;
;;Work Telephone
;;
;;
;;
;;@@ACTORCELLTEL@@
;;
;;Cell phone
;;
;;
;;
;;@@ACTOREMAIL@@
;;
;;
;;
;;@@ACTORADDRESSSOURCEID@@
;;
;;
;;
;;
;;
;;
;;@@ACTOROBJECTID@@
;;
;;@@ACTORINFOSYSNAME@@
;;@@ACTORINFOSYSVER@@
;;
;;
;;
;;@@ACTORINFOSYSSOURCEID@@
;;
;;
;;
;;
;;
;;
;;AA0003
;;
;;
;;@@ACTORDISPLAYNAME@@
;;
;;
;;
;;@@ACTORRELATION@@
;;
;;
;;
;;@@ACTORRELATIONSOURCEID@@
;;
;;
;;
;;
;;
;;
;;@@ACTOROBJECTID@@
;;
;;
;;
;;@@ACTORGIVENNAME@@
;;@@ACTORFAMILYNAME@@
;;
;;
;;
;;
;;@@ACTORSPECIALITY@@
;;
;;
;;
;;@@ACTORADDRESSTYPE@@
;;
;;@@ACTORADDRESSLINE1@@
;;@@ACTORADDRESSLINE2@@
;;@@ACTORADDRESSSTATE@@
;;
;;
;;
;;@@ACTORSOURCEID@@
;;
;;
;;
;;
;;
;;
;;
;;S0001
;;2008-03-18T23:10:58Z
;;
;;AA0001
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;YFveLLyo+75P7rSciv0/m1O6Ot4=
;;
;;
;;Bj6sACXl74hrlbUYnu8HqnRab5VGy69BOYjOH7dETxgppXMEd7AoVYaePZvgJft78JR4oQY76hbFyGcIslYauPpJxx2hCd5d56xFeaQg01R6AQOvGnhjlq63TbpFdUq0B4tYsmiibJPbQJhTQe+TcWTBvWaQt8Fkk5blO571YvI=
;;
;;
;;
;;meH817QYol+/uUEg6j8Mg89s7GTlaN9B+/CGlzrtnQH+swMigZRnEPxHVO8PhEymP/W9nlhAjTScV/CUzA9yJ9WiaOn17c+KReKhfBqL24DX9BpbJ+kLYVz7mBO5Qydk5AzUT2hFwW93irD8iRKP+/t+2Mi2CjNfj8VTjJpHpm0=
;;AQAB
;;
;;
;;
;;
;;
;;
;;
;;
;