source: ccr/branches/ohum/p/C0CPARMS.m@ 1544

Last change on this file since 1544 was 1448, checked in by Sam Habiel, 12 years ago

Parms file with no lines longer than 255 chars. Passes XINDEX.
File size: 4.6 KB
Line 
1C0CPARMS ; CCDCCR/GPL - CCR/CCD PARAMETER PROCESSING ; 1/29/09 ; 6/15/12 3:46pm
2 ;;1.2;C0C;;May 11, 2012;Build 49
3 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
4 ;General Public License See attached copy of the License.
5 ;
6 ;This program is free software; you can redistribute it and/or modify
7 ;it under the terms of the GNU General Public License as published by
8 ;the Free Software Foundation; either version 2 of the License, or
9 ;(at your option) any later version.
10 ;
11 ;This program is distributed in the hope that it will be useful,
12 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;GNU General Public License for more details.
15 ;
16 ;You should have received a copy of the GNU General Public License along
17 ;with this program; if not, write to the Free Software Foundation, Inc.,
18 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19 ;
20SET(INPARMS) ;INITIALIZE RUNTIME PARMS USING INPARMS TO OVERRIDE DEFAULTS
21 ; PARAMETERS ARE PASSED AS A STRING: "PARM1:VALUE1^PARM2:VALUE2^ETC"
22 ; THE SAME FORMAT IS USED BY RPC AND COMMAND LINE ENTRY POINTS
23 ;
24 N PTMP ;
25 S C0CPARMS=$NA(^TMP("C0CPARMS",$J)) ;BASE FOR THIS RUN
26 K @C0CPARMS ;START WITH EMPTY PARMS; MAY NOT WANT TO DO THIS KILL
27 I $G(INPARMS)'="" D ; OVERRIDES PROVIDED
28 . N C0CI S C0CI=""
29 . N C0CN S C0CN=1
30 . F S C0CI=$P(INPARMS,"^",C0CN) Q:C0CI="" D ;
31 . . S C0CN=C0CN+1 ;NEXT PARM
32 . . N C1,C2
33 . . S C1=$P(C0CI,":",1) ; PARAMETER
34 . . S C2=$P(C0CI,":",2) ; VALUE
35 . . I C2="" S C2=1
36 . . S @C0CPARMS@(C1)=C2
37 . I C0CN=1 S @C0CPARMS@($P(INPARMS,":",1))=$P(C0CI,":",2) ; ONLY ONE
38 ; THIS IS WHERE WE WILL INSERT CALLS TO THE PARAMETER FILE FOR DEFAULTS
39 ; IF THEY FAIL, THE FOLLOWING WILL BE HARDCODED DEFAULTS
40 ;OHUM/RUT commented the hardcoded limits
41 ;I '$D(@C0CPARMS@("LABLIMIT")) S @C0CPARMS@("LABLIMIT")="T-360" ;ONE YR WORTH
42 ;I '$D(@C0CPARMS@("LABSTART")) S @C0CPARMS@("LABSTART")="T" ;TODAY
43 ;I '$D(@C0CPARMS@("VITLIMIT")) S @C0CPARMS@("VITLIMIT")="T-360" ;ONE YR VITALS
44 ;I '$D(@C0CPARMS@("VITSTART")) S @C0CPARMS@("VITSTART")="T" ;TODAY
45 ;I '$D(@C0CPARMS@("MEDSTART")) S @C0CPARMS@("MEDSTART")="T" ; TODAY
46 ;I '$D(@C0CPARMS@("MEDSLIMIT")) S @C0CPARMS@("MEDLIMIT")="T-360" ; ONE YR MEDS
47 ;I '$D(@C0CPARMS@("MEDACTIVE")) S @C0CPARMS@("MEDACTIVE")=1 ; YES
48 ;I '$D(@C0CPARMS@("MEDPENDING")) S @C0CPARMS@("MEDPENDING")=0 ; NO
49 ;I '$D(@C0CPARMS@("MEDALL")) S @C0CPARMS@("MEDALL")=0 ; NON-PENDING NON-ACTIVE
50 ;OHUM/RUT 3120109 ; commented all limits
51 ;S @C0CPARMS@("LABLIMIT")=^TMP("C0CCCR","LABLIMIT"),@C0CPARMS@("VITLIMIT")=^TMP("C0CCCR","VITLIMIT"),@C0CPARMS@("TIULIMIT")=^TMP("C0CCCR","TIULIMIT"),@C0CPARMS@("MEDLIMIT")=^TMP("C0CCCR","MEDLIMIT")
52 ;I '$D(@C0CPARMS@("LABSTART")) S @C0CPARMS@("LABSTART")="T" ;TODAY
53 ;I '$D(@C0CPARMS@("VITSTART")) S @C0CPARMS@("VITSTART")="T" ;TODAY
54 ;I '$D(@C0CPARMS@("MEDSTART")) S @C0CPARMS@("MEDSTART")="T" ; TODAY
55 ;I '$D(@C0CPARMS@("MEDACTIVE")) S @C0CPARMS@("MEDACTIVE")=1 ; YES
56 ;I '$D(@C0CPARMS@("MEDPENDING")) S @C0CPARMS@("MEDPENDING")=0 ; NO
57 ;I '$D(@C0CPARMS@("MEDALL")) S @C0CPARMS@("MEDALL")=1 ; NON-PENDING NON-ACTIVE
58 ;;I '$D(@C0CPARMS@("RALIMIT")) S @C0CPARMS@("RALIMIT")="T-36500" ;ONE YR WORTH
59 ;;I '$D(@C0CPARMS@("RASTART")) S @C0CPARMS@("RASTART")="T" ;TODAY
60 ;I '$D(@C0CPARMS@("TIUSTART")) S @C0CPARMS@("TIUSTART")="T" ;TODAY
61 ;;OHUM/RUT
62 S @C0CPARMS@("LABLIMIT")=$P(^C0CPARM(1,0),"^",2)
63 S @C0CPARMS@("LABSTART")=$P(^C0CPARM(1,0),"^",3)
64 S @C0CPARMS@("VITLIMIT")=$P(^C0CPARM(1,0),"^",4)
65 S @C0CPARMS@("VITSTART")=$P(^C0CPARM(1,1),"^",1)
66 S @C0CPARMS@("MEDLIMIT")=$P(^C0CPARM(1,1),"^",2)
67 S @C0CPARMS@("MEDSTART")=$P(^C0CPARM(1,1),"^",3)
68 S @C0CPARMS@("MEDACTIVE")=0
69 S @C0CPARMS@("MEDPENDING")=0
70 S @C0CPARMS@("MEDALL")=0 ;OHUM/RUT 3120504 INITIALISING MEDICATION STATUS VARIABLES WITH ZERO
71 I $P(^C0CPARM(1,1),"^",4)="ACT" S @C0CPARMS@("MEDACTIVE")=1
72 I $P(^C0CPARM(1,1),"^",4)="PEN" S @C0CPARMS@("MEDPENDING")=1
73 I $P(^C0CPARM(1,1),"^",4)="ALL" S @C0CPARMS@("MEDALL")=1,@C0CPARMS@("MEDPENDING")=1 ;OHUM/RUT 3120504 ADDED FOR INCLUDING PENDING MEDICATIONS FOR STATUS "ALL"
74 ;S ^TMP("C0CCCR","TIULIMIT")="",^TMP("C0CCCR","TIUSTART")=""
75 I $P(^C0CPARM(1,2),"^",3)=1 S @C0CPARMS@("TIULIMIT")=$P(^C0CPARM(1,2),"^",1),@C0CPARMS@("TIUSTART")=$P(^C0CPARM(1,2),"^",2)
76 ;OHUM/RUT
77 Q
78 ;
79CHECK ; CHECK TO SEE IF PARMS ARE PRESENT, ELSE RUN SET
80 ;
81 I '$D(C0CPARMS) S C0CPARMS=$NA(^TMP("C0CPARMS",$J)) ;SHOULDN'T HAPPEN
82 I '$D(@C0CPARMS) D SET("SETWITHCHECK:1")
83 Q
84 ;
85GET(WHICHP) ;EXTRINSIC TO RETURN THE VALUE OF PARAMETER WHICHP
86 ;
87 D CHECK ; SHOULDN'T HAPPEN BUT TO BE SAFE
88 N GTMP
89 Q $G(@C0CPARMS@(WHICHP)) ;PULL THE PARM FROM THE TABLE
90 ;
Note: See TracBrowser for help on using the repository browser.