ZGPLCCR0 ; 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,"ZGPLCCR0")
; ZWR @ARY
Q
;
;
;;
;;
;;871bd605-e8f8-4b80-9918-4b03f781129e
;;
;;English
;;
;;V1.0
;;
;;2008-03-18T23:10:58Z
;;
;;
;;AA0001
;;
;;
;;
;;AA0001
;;
;;
;;AA0002
;;
;;
;;
;;
;;AA0005
;;
;;Primary Provider
;;
;;
;;
;;
;;
;;CEND PHR
;;
;;
;;
;;
;;
;;BB0001
;;
;;Problem
;;
;;
;;Hyperlipidemia
;;
;;272.4
;;ICD9CM
;;2007
;;
;;
;;
;;
;;AA0001
;;
;;
;;
;;
;;
;;
;;BB0002
;;
;;
;;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
;;
;;
;;
;;
;;
;;
;;
;;BB0009
;;
;;
;;Assessment Time
;;
;;2008-03-18
;;
;;
;;Height & Weight
;;
;;
;;
;;AA0001
;;
;;
;;
;;BB0010
;;
;;Observation
;;
;;
;;Height
;;
;;50373000
;;SNOMED
;;2006
;;
;;
;;
;;
;;AA0002
;;
;;
;;
;;68
;;
;;in
;;
;;
;;
;;
;;BB0011
;;
;;Observation
;;
;;
;;Weight
;;
;;363808001
;;SNOMED
;;2006
;;
;;
;;
;;
;;AA0002
;;
;;
;;
;;180
;;
;;lb
;;
;;
;;
;;
;;
;;BB0012
;;
;;Blood Type
;;
;;
;;
;;AA0001
;;
;;
;;
;;BB0013
;;
;;Result
;;
;;
;;Blood Type
;;
;;278149003
;;SNOMED
;;2005
;;
;;
;;
;;
;;AA0002
;;
;;
;;
;;A+
;;
;;
;;
;;
;;
;;
;;AA0005
;;
;;Primary Provider
;;
;;
;;
;;
;;
;;
;;AA0001
;;
;;
;;
;;Kevin
;;A
;;Peterson
;;
;;
;;
;;1955-05-28T04:00:00Z
;;
;;
;;M
;;
;;
;;
;;
;;SSN
;;
;;999-99-9999
;;
;;
;;AA0002
;;
;;
;;
;;
;;
;;Home
;;
;;Suite 425
;;717 Delaware Street SE
;;Minneapolis
;;MN
;;55414
;;
;;
;;612-625-0931
;;
;;Home
;;
;;
;;
;;peter223@umn.edu
;;
;;
;;
;;AA0002
;;
;;
;;
;;
;;AA0002
;;
;;Solventus CEND/PHR
;;V1.0
;;
;;
;;
;;AA0002
;;
;;
;;
;;
;;AA0003
;;
;;
;;Unknown
;;
;;
;;
;;Father
;;
;;
;;
;;AA0002
;;
;;
;;
;;
;;AA0004
;;
;;
;;Unknown
;;
;;
;;
;;Grandparents
;;
;;
;;
;;AA0002
;;
;;
;;
;;
;;AA0005
;;
;;
;;
;;Walid
;;Mikhail
;;
;;
;;
;;
;;Family Medicine
;;
;;
;;
;;Office
;;
;;Allina Clinic
;;Cottage Grove
;;MN
;;
;;
;;
;;AA0002
;;
;;
;;
;;
;;
;;
;;S0001
;;2008-03-18T23:10:58Z
;;
;;AA0001
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;YFveLLyo+75P7rSciv0/m1O6Ot4=
;;
;;
;;Bj6sACXl74hrlbUYnu8HqnRab5VGy69BOYjOH7dETxgppXMEd7AoVYaePZvgJft78JR4oQY76hbFyGcIslYauPpJxx2hCd5d56xFeaQg01R6AQOvGnhjlq63TbpFdUq0B4tYsmiibJPbQJhTQe+TcWTBvWaQt8Fkk5blO571YvI=
;;
;;
;;
;;meH817QYol+/uUEg6j8Mg89s7GTlaN9B+/CGlzrtnQH+swMigZRnEPxHVO8PhEymP/W9nlhAjTScV/CUzA9yJ9WiaOn17c+KReKhfBqL24DX9BpbJ+kLYVz7mBO5Qydk5AzUT2hFwW93irD8iRKP+/t+2Mi2CjNfj8VTjJpHpm0=
;;AQAB
;;
;;
;;
;;
;;
;;
;;
;;
;