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
;;
;;2008-03-18T23:10:58Z
;;
;;
;;AA0001
;;
;;
;;
;;AA0001
;;
;;
;;AA0002
;;
;;
;;
;;
;;AA0005
;;
;;Primary Provider
;;
;;
;;
;;
;;
;;CEND PHR
;;
;;
;;
;;
;;
;;@@PROBLEMOBJECTID@@
;;
;;Problem
;;
;;
;;@@PROBLEMDESCRIPTION@@
;;
;;@@PROBLEMCODEVALUE@@
;;@@PROBLEMCODINGSYSTEM@@ICD9CM
;;@@PROBLEMCODINGVERSION@@2007
;;
;;
;;
;;
;;@@PROBLEMSOURCEACTORID@@
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;AA0001
;;
;;
;;
;;AA0003
;;
;;Father
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;
;;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
;;
;;
;;
;;
;;
;;
;;
;;BB0004
;;
;;Marital Status
;;
;;
;;Married
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;BB0005
;;
;;Ethnic Origin
;;
;;
;;Not Hispanic or Latino
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;BB0006
;;
;;Race
;;
;;
;;White
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;BB0007
;;
;;Occupation
;;
;;
;;Physician
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;
;;
;;BB0008
;;
;;
;;Begin Date
;;
;;
;;42
;;
;;Years
;;
;;
;;
;;
;;Medication
;;
;;
;;Active
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;simvastatin
;;
;;36567
;;RXNORM
;;2005
;;
;;
;;
;;Simvastatin
;;
;;00093715510
;;NDC
;;2005
;;
;;
;;
;;40
;;
;;mg
;;
;;
;;
;;
;;
;;
;;
;;1 PO 1 time per day
;;
;;
;;1
;;
;;
;;PO
;;
;;
;;1 time per day
;;
;;
;;
;;
;;
;;
;;
;;@@DATAOBJECTID@@BB0009
;;
;;
;;Assessment Time
;;
;;@@HEIGHTWEIGHTDATATIME@@2008-03-18
;;
;;
;;Height & Weight
;;
;;
;;
;;@@HEIGHTWEIGHTSOURCE@@AA0001
;;
;;
;;
;;@@DATAOBJECTID@@BB0010
;;
;;Observation
;;
;;
;;Height
;;
;;50373000
;;SNOMED
;;2006
;;
;;
;;
;;
;;@@HEIGHTSOURCEID@@AA0002
;;
;;
;;
;;@@HEIGHTINCHES@@68
;;
;;in
;;
;;
;;
;;
;;@@DATAOBJECTID@@BB0011
;;
;;Observation
;;
;;
;;Weight
;;
;;363808001
;;SNOMED
;;2006
;;
;;
;;
;;
;;@@WEIGHTSOURCEID@@AA0002
;;
;;
;;
;;@@WEIGHTLBS@@180
;;
;;lb
;;
;;
;;
;;
;;
;;@@DATAOBJECTID@@BB0012
;;
;;Blood Type
;;
;;
;;
;;@@BLOODTYPESOURCEID@@AA0001
;;
;;
;;
;;@@DATAOBJECTID@@BB0013
;;
;;Result
;;
;;
;;Blood Type
;;
;;278149003
;;SNOMED
;;2005
;;
;;
;;
;;
;;@@BLOODTYPESOURCEID2@@AA0002
;;
;;
;;
;;@@BLOODTYPERESULT@@A+
;;
;;
;;
;;
;;
;;
;;AA0005
;;
;;Primary Provider
;;
;;
;;
;;
;;
;;
;;@@ACTOROBJECTID@@
;;
;;
;;
;;@@ACTORGIVENNAME@@
;;@@ACTORMIDDLENAME@@
;;@@ACTORFAMILYNAME@@
;;
;;
;;
;;@@ACTORDATEOFBIRTH@@
;;
;;
;;@@ACTORGENDER@@
;;
;;
;;
;;
;;SSN
;;
;;@@ACTORSSN@@
;;
;;
;;@@ACTORSSNSOURCEID@@
;;
;;
;;
;;
;;
;;@@ACTORADDRESSTYPE@@
;;
;;@@ACTORADDRESSLINE1@@
;;@@ACTORADDRESSLINE2@@
;;@@ACTORADDRESSCITY@@
;;@@ACTORADDRESSSTATE@@
;;@@ACTORADDRESSZIPCODE@@
;;
;;
;;@@ACTORTELEPHONE@@
;;
;;@@ACTORTELEPHONETYPE@@
;;
;;
;;
;;@@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
;;
;;
;;
;;
;;
;;
;;
;;
;