C0CCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08
;;0.1;CCDCCR;nopatch;noreleasedate
;Copyright 2008,2009 George Lilly, University of Minnesota.
;Licensed under the terms of the GNU General Public License.
;See attached copy of the License.
;
;This program is free software; you can redistribute it and/or modify
;it under the terms of the GNU General Public License as published by
;the Free Software Foundation; either version 2 of the License, or
;(at your option) any later version.
;
;This program is distributed in the hope that it will be useful,
;but WITHOUT ANY WARRANTY; without even the implied warranty of
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;GNU General Public License for more details.
;
;You should have received a copy of the GNU General Public License along
;with this program; if not, write to the Free Software Foundation, Inc.,
;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
;
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,"C0CCCR0")
; ZWR @ARY
Q
;
;
;;
;;
;;
;;871bd605-e8f8-4b80-9918-4b03f781129e
;;
;;English
;;
;;V1.0
;;
;;@@DATETIME@@
;;
;;
;;@@ACTORPATIENT@@
;;
;;
;;
;;@@ACTORFROM@@
;;
;;
;;@@ACTORFROM2@@
;;
;;
;;
;;
;;@@ACTORTO@@
;;
;;@@ACTORTOTEXT@@
;;
;;
;;
;;
;;
;;@@PURPOSEDESCRIPTION@@
;;
;;
;;
;;
;;
;;@@PROBLEMOBJECTID@@
;;
;;Problem
;;
;;
;;@@PROBLEMSTATUS@@
;;
;;
;;@@PROBLEMDESCRIPTION@@
;;
;;@@PROBLEMCODEVALUE@@
;;ICD9CM
;;@@PROBLEMCODINGVERSION@@
;;
;;
;;
;;@@PROBLEMDATEMOD@@
;;
;;
;;
;;
;;
;;
;;@@IMMUNEOBJECTID@@
;;
;;
;;@@IMMUNEDATETIMETYPETEXT@@
;;
;;@@IMMUNEDATETIME@@
;;
;;
;;
;;
;;@@IMMUNEPRODUCTNAMETEXT@@
;;
;;@@IMMUNEPRODUCTCODE@@
;;@@IMMUNEPRODUCTCODESYSTEM@@
;;
;;
;;
;;
;;
;;
;;
;;@@FAMILYHISTORYOBJECTID@@
;;
;;
;;@@FAMILYMEMBERACTORID@@
;;
;;@@FAMILYMEMBERACTORROLETEXT@@
;;
;;
;;
;;
;;
;;Problem
;;
;;
;;@@FAMILYMEMBERPROBLEMDESCRIPTION@@
;;
;;@@FAMILYMEMBERPROBLEMCODE@@
;;@@FAMILYMEMBERCODESYSTEM@@
;;@@FAMILYMEMBERCODEVERSION@@
;;
;;
;;
;;
;;
;;
;;
;;
;;@@SOCIALHISTORYOBJECTID@@
;;
;;@@SOCIALHISTORYTYPETEXT@@
;;
;;
;;@@SOCIALHISTORYDESCRIPTIONTEXT@@
;;
;;
;;
;;
;;BB0005
;;
;;Ethnic Origin
;;
;;
;;Not Hispanic or Latino
;;
;;
;;
;;
;;BB0006
;;
;;Race
;;
;;
;;White
;;
;;
;;
;;
;;BB0007
;;
;;Occupation
;;
;;
;;Physician
;;
;;
;;
;;
;;
;;
;;@@ALERTOBJECTID@@
;;
;;@@ALERTTYPE@@
;;
;;
;;@@ALERTDESCRIPTIONTEXT@@
;;
;;@@ALERTCODEVALUE@@
;;@@ALERTCODESYSTEM@@
;;
;;
;;
;;@@ALERTSTATUSTEXT@@
;;
;;
;;@@ALERTDATETIME@@
;;
;;
;;
;;
;;
;;@@ALERTAGENTPRODUCTOBJECTID@@
;;
;;
;;@@ALERTAGENTPRODUCTNAMETEXT@@
;;
;;@@ALERTAGENTPRODUCTCODEVALUE@@
;;@@ALERTAGENTPRODUCTCODESYSTEM@@
;;
;;
;;
;;
;;
;;
;;
;;@@ALERTREACTIOINDESCRIPTIONTEXT@@
;;
;;@@ALERTREACTIONCODEVALUE@@
;;@@ALERTREACTIONCODESYSTEM@@
;;
;;
;;
;;
;;
;;
;;
;;@@MEDOBJECTID@@
;;
;;
;;@@MEDISSUEDATETXT@@
;;
;;@@MEDISSUEDATE@@
;;
;;@@MEDLASTFILLDATETXT@@
;;
;;@@MEDLASTFILLDATE@@
;;
;;
;;
;;@@MEDRXNOTXT@@
;;
;;@@MEDRXNO@@
;;
;;
;;@@MEDTYPETEXT@@
;;
;;
;;@@MEDDETAILUNADORNED@@
;;
;;
;;@@MEDSTATUSTEXT@@
;;
;;
;;
;;
;;@@MEDPRODUCTNAMETEXT@@
;;
;;@@MEDPRODUCTNAMECODEVALUE@@
;;@@MEDPRODUCTNAMECODINGINGSYSTEM@@
;;@@MEDPRODUCTNAMECODEVERSION@@
;;
;;
;;
;;@@MEDBRANDNAMETEXT@@
;;
;;
;;@@MEDSTRENGTHVALUE@@
;;
;;@@MEDSTRENGTHUNIT@@
;;
;;
;;
;;
;;@@MEDCONCVALUE@@
;;
;;@@MEDCONCUNIT@@
;;
;;
;;
;;
;;@@MEDQUANTITYVALUE@@
;;
;;@@MEDQUANTITYUNIT@@
;;
;;
;;
;;
;;
;;@@MEDDIRECTIONDESCRIPTIONTEXT@@
;;
;;
;;@@MEDDOSEINDICATOR@@
;;
;;
;;@@MEDDELIVERYMETHOD@@
;;
;;
;;@@MEDDOSEVALUE@@
;;
;;@@MEDDOSEUNIT@@
;;
;;
;;@@MEDRATEVALUE@@
;;
;;@@MEDRATEUNIT@@
;;
;;
;;
;;
;;@@MEDVEHICLETEXT@@
;;
;;
;;@@MEDDIRECTIONROUTETEXT@@
;;
;;
;;@@MEDFREQUENCYVALUE@@
;;
;;
;;@@MEDINTERVALVALUE@@
;;
;;@@MEDINTERVALUNIT@@
;;
;;
;;
;;@@MEDDURATIONVALUE@@
;;
;;@@MEDDURATIONUNIT@@
;;
;;
;;
;;
;;@@MEDPRNFLAG@@
;;
;;
;;@@MEDPROBLEMOBJECTID@@
;;
;;@@MEDPROBLEMTYPETXT@@
;;
;;
;;@@MEDPROBLEMDESCRIPTION@@
;;
;;@@MEDPROBLEMCODEVALUE@@
;;@@MEDPROBLEMCODINGSYSTEM@@
;;@@MEDPROBLEMCODINGVERSION@@
;;
;;
;;
;;
;;
;;
;;@@MEDSTOPINDICATOR@@
;;
;;@@MEDDIRSEQ@@
;;
;;@@MEDMULDIRMOD@@
;;
;;
;;
;;
;;@@MEDPTINSTRUCTIONS@@
;;
;;
;;@@MEDFULLFILLMENTINSTRUCTIONS@@
;;
;;
;;
;;@@MEDRFNO@@
;;
;;
;;
;;
;;
;;
;;@@VITALSIGNSDATAOBJECTID@@
;;
;;
;;@@VITALSIGNSDATETIMETYPETEXT@@
;;
;;@@VITALSIGNSEXACTDATETIME@@
;;
;;
;;@@VITALSIGNSDESCRIPTIONTEXT@@
;;
;;
;;
;;@@VITALSIGNSTESTOBJECTID@@
;;
;;@@VITALSIGNSTESTTYPETEXT@@
;;
;;
;;@@VITALSIGNSDESCRIPTIONTEXT@@
;;
;;@@VITALSIGNSDESCCODEVALUE@@
;;@@VITALSIGNSDESCCODINGSYSTEM@@
;;@@VITALSIGNSCODEVERSION@@
;;
;;
;;
;;
;;@@VITALSIGNSTESTRESULTVALUE@@
;;
;;@@VITALSIGNSTESTRESULTUNIT@@
;;
;;
;;
;;
;;
;;
;;
;;@@RESULTOBJECTID@@
;;
;;
;;Assessment Time
;;
;;@@RESULTASSESSMENTDATETIME@@
;;
;;
;;@@RESULTDESCRIPTIONTEXT@@
;;
;;@@RESULTCODE@@
;;@@RESULTCODINGSYSTEM@@
;;
;;
;;
;;@@RESULTSTATUS@@
;;
;;
;;
;;@@RESULTTESTOBJECTID@@
;;
;;
;;Assessment Time
;;
;;@@RESULTTESTDATETIME@@
;;
;;
;;@@RESULTTESTDESCRIPTIONTEXT@@
;;
;;@@RESULTTESTCODEVALUE@@
;;@@RESULTTESTCODINGSYSTEM@@
;;
;;
;;
;;@@RESULTTESTSTATUSTEXT@@
;;
;;
;;
;;@@RESULTTESTVALUE@@
;;
;;@@RESULTTESTUNITS@@
;;
;;
;;
;;
;;
;;@@RESULTTESTNORMALDESCTEXT@@
;;
;;
;;
;;
;;
;;@@RESULTTESTFLAG@@
;;
;;
;;
;;
;;
;;
;;AA0005
;;
;;Primary Provider
;;
;;
;;
;;
;;
;;
;;
;;@@ACTOROBJECTID@@
;;
;;
;;
;;@@ACTORGIVENNAME@@
;;@@ACTORMIDDLENAME@@
;;@@ACTORFAMILYNAME@@
;;
;;
;;
;;@@ACTORDATEOFBIRTH@@
;;
;;
;;@@ACTORGENDER@@
;;
;;@@ACTORGENDER@@
;;2.16.840.1.113883.5.1
;;
;;
;;
;;
;;
;;@@ACTORSSNTEXT@@
;;
;;@@ACTORSSN@@
;;
;;
;;
;;
;;@@ACTORADDRESSTYPE@@
;;
;;@@ACTORADDRESSLINE1@@
;;@@ACTORADDRESSLINE2@@
;;@@ACTORADDRESSCITY@@
;;@@ACTORADDRESSSTATE@@
;;@@ACTORADDRESSZIPCODE@@
;;
;;
;;@@ACTORRESTEL@@
;;
;;@@ACTORRESTELTEXT@@
;;
;;
;;
;;@@ACTORWORKTEL@@
;;
;;@@ACTORWORKTELTEXT@@
;;
;;
;;
;;@@ACTORCELLTEL@@
;;
;;@@ACTORCELLTELTEXT@@
;;
;;
;;
;;@@ACTOREMAIL@@
;;
;;
;;
;;
;;
;;
;;@@ACTOROBJECTID@@
;;
;;@@ACTORINFOSYSNAME@@
;;@@ACTORINFOSYSVER@@
;;
;;
;;
;;
;;
;;
;;AA0003
;;
;;
;;@@ACTORDISPLAYNAME@@
;;
;;
;;
;;@@ACTORRELATION@@
;;
;;
;;
;;
;;
;;
;;@@ACTOROBJECTID@@
;;
;;
;;
;;@@ACTORGIVENNAME@@
;;@@ACTORMIDDLENAME@@
;;@@ACTORFAMILYNAME@@
;;@@ACTORTITLE@@
;;
;;
;;
;;
;;
;;@@IDTYPE@@
;;
;;@@ID@@
;;
;;
;;@@IDDESC@@
;;
;;
;;
;;
;;@@ACTORSPECIALITY@@
;;
;;
;;
;;@@ACTORADDRESSTYPE@@
;;
;;@@ACTORADDRESSLINE1@@
;;@@ACTORADDRESSCITY@@
;;@@ACTORADDRESSSTATE@@
;;@@ACTORPOSTALCODE@@
;;
;;
;;@@ACTORTELEPHONE@@
;;
;;@@ACTORTELEPHONETYPE@@
;;
;;
;;
;;@@ACTOREMAIL@@
;;
;;
;;
;;
;;
;;
;;@@ACTOROBJECTID@@
;;
;;@@ORGANIZATIONNAME@@
;;
;;
;;
;;
;;
;;
;;
;;S0001
;;2008-03-18T23:10:58Z
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;YFveLLyo+75P7rSciv0/m1O6Ot4=
;;
;;
;;Bj6sACXl74hrlbUYnu8HqnRab5VGy69BOYjOH7dETxgppXMEd7AoVYaePZvgJft78JR4oQY76hbFyGcIslYauPpJxx2hCd5d56xFeaQg01R6AQOvGnhjlq63TbpFdUq0B4tYsmiibJPbQJhTQe+TcWTBvWaQt8Fkk5blO571YvI=
;;
;;
;;
;;meH817QYol+/uUEg6j8Mg89s7GTlaN9B+/CGlzrtnQH+swMigZRnEPxHVO8PhEymP/W9nlhAjTScV/CUzA9yJ9WiaOn17c+KReKhfBqL24DX9BpbJ+kLYVz7mBO5Qydk5AzUT2hFwW93irD8iRKP+/t+2Mi2CjNfj8VTjJpHpm0=
;;AQAB
;;
;;
;;
;;
;;
;;
;;
;;
;