Global: ^BCHR

FileMan FileNo	FileMan Filename	Package
90002	CHR RECORD	IHS RPMS CHR System

Package	Total	Routines
IHS RPMS CHR System	52	BCH10P10 BCH10P6 BCHADRS BCHDHS BCHEGP1 BCHEGR BCHEGR1 BCHEXC1 BCHEXCP BCHEXD BCHEXD2 BCHEXD21 BCHEXRE BCHFC1 BCHFORM BCHPCCBL BCHPOST BCHRC11 BCHRC2 BCHRC51 BCHRC6 BCHRC8 BCHRC9 BCHRCH1 BCHRL1 BCHRLP BCHRP1 BCHRP21 BCHRP31 BCHRP4 BCHRPT4 BCHRPTST BCHRU11 BCHUADD BCHUADD1 BCHUARL BCHUDEL BCHUDISP BCHUDSP BCHUEDT BCHUFP BCHUFPP BCHULKUP BCHUTIL BCHVD ^BCHR BCHVDO CANNED NARRATIVES REFERRED BY CHR TO REFERRED TO CHR BY V FILES CREATED ^BCHRPROB
Health Summary Components	1	BHSBCH
Local Area Programs	1	AZAXDPM1

Package	Total	Routines
IHS RPMS CHR System	16	BCH10P9 BCHADRS BCHEGP1 BCHEGR BCHEXCP BCHEXD BCHEXRE BCHFORM BCHHL7F BCHMNRP BCHUADD BCHUADD1 BCHUDEL BCHUDSP BCHUEDT BCHUTIL
IHS Support HL7 Interfaces	2	BHLBCH1 BHLBCH2

Package	Total	FileMan Files
IHS RPMS CHR System	5	CHR GROUP FORM TEMP FILE(#90002.97)[#90002.972101(.01)] BCH GROUP DEFINITION(#90002.67)[#90002.6761(.01)] CHR EDUCATION PROVIDED(#90002.02)[.03] CHR POV(#90002.01)[.03] CHR EXTRACT LOG(#90002.91)[#90002.912101(.01), #90002.915101(.01)]

Package	Total	FileMan Files
IHS RPMS CHR System	7	CHR NON REGISTERED PATIENTS(#90002.11)[1112, 8901] CHR ACTIVITY LOCATIONS(#90002.56)[.06] CHR CANNED NARRATIVES(#90002.59)[#90002.81(.01)] CHR FAMILY PLANNING METHODS(#90002.55)[.14] CHR LOCATIONS(#90002.61)[1501] CHR PROGRAMS(#90002.51)[.02] CHR REFERRALS(#90002.52)[.07, .08, #90002.141(.01), #90002.142(.01)]
Utility Tables	3	COMMUNITY(#9999999.05)[1106] LOCATION(#9999999.06)[.05, 1109] TRIBE(#9999999.03)[1105]
IHS Patient	2	PATIENT(#9000001)[.04, 8901] VISIT(#9000010)[.15]
Kernel	2	STATE(#5)[1503] NEW PERSON(#200)[.03, .16]
VA Fileman	1	FILE(#1)[#90002.03101(.01)]

Fields, Total: 81

Field #	Name	Loc	Type	Details
.01	DATE OF SERVICE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 21, 1999` HELP-PROMPT: `Enter the Date of Service from the lower corner of the form. E.G. 02/20/95 or 02-23-95 or 03/20 or JAN 20,1995` DESCRIPTION: Date of Service. No Time entered. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90002^B` 1)= S ^BCHR("B",$E(X,1,30),DA)="" 2)= K ^BCHR("B",$E(X,1,30),DA) Regular B cross reference. CROSS-REFERENCE: `90002^AA2^MUMPS` 1)= I $P(^BCHR(DA,0),U,3)]"" S ^BCHR("AA",$P(X,"."),$P(^BCHR(DA,0),U,3),DA)="" 2)= I $P(^BCHR(DA,0),U,3)]"" K ^BCHR("AA",X,$P(^BCHR(DA,0),U,3),DA) Indexes by date and CHR. Used to get list of records on that date for that CHR. CROSS-REFERENCE: `90002^AE^MUMPS` 1)= I $P(^BCHR(DA,0),U,4)]"" S ^BCHR("AE",$P(^BCHR(DA,0),U,4),9999999-$P(X,"."),DA)="" 2)= I $P(^BCHR(DA,0),U,4)]"" K ^BCHR("AE",$P(^BCHR(DA,0),U,4),9999999-$P(X,"."),DA) Indexes encounters by inverse date and patient. Used by CHR health summary. CROSS-REFERENCE: `90002^AF^MUMPS` 1)= D SET1^BCHFORM 2)= D KILL1^BCHFORM Computes and sets form #.
.02	PROGRAM	0;2	POINTER TO CHR PROGRAMS FILE (#90002.51)	**********************REQUIRED FIELD********************** CHR PROGRAMS(#90002.51) LAST EDITED: `NOV 28, 1994` HELP-PROMPT: `Enter the program name or code to which the CHR belongs.` DESCRIPTION: Program to which the CHR is employed. CROSS-REFERENCE: `^^TRIGGER^90002^.24` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(90002,.02,1,1,1.1) X ^DD(90002,.02,1,1,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCHTPROG(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHTPROG(D0,0)):^(0),1:"") S X=$P(Y(101),U,5) S D0=I(0,0) 1.4)= S DIH=$S($D(^BCHR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=90002,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,0)):^(0),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y X ^DD(90002,.02,1,1,2.1) X ^DD(90002,.02,1,1,2.4) 2.1)= S X=DIV X ^DD(90002,.02,1,1,59.2) S X=$P(Y(101),U,5) S D0=I(0,0) 2.4)= S DIH=$S($D(^BCHR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,24)=DIV,DIH=90002,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHR(D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^BCHTPROG(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHTPROG(D0,0)):^(0),1:"") CREATE VALUE)= #.02:#.05 DELETE VALUE)= #.02:#.05 FIELD)= #.24 Triggers the program code # into the Program Code field. CROSS-REFERENCE: `90002^AF2^MUMPS` 1)= D SET2^BCHFORM 2)= D KILL2^BCHFORM Computes and sets form #.
.029	PROGRAM CODE (C)		COMPUTED	MUMPS CODE: `X ^DD(90002,.029,9.2) S Y(90002,.029,101)=$S($D(^BCHTPROG(D0,0)):^(0),1:"") S X=$P(Y(90002,.029,101),U,5) S D0=Y(90002,.029,80)` 9.2 = S Y(90002,.029,80)=$S($D(D0):D0,1:""),Y(90002,.029,1)=$S($D(^BCHR(D0,0)):^(0),1:""),D0=$P(Y(90002,.029,1),U,2) S:'$D(^BCHTPROG(+D0,0)) D0=-1 ALGORITHM: `#.02:PROGRAM CODE`
.03	CHR PROVIDER	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(AUMC):1,'$D(^VA(200,+Y,""I""))#2:1,'^(""I""):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 28, 1994` HELP-PROMPT: `Enter the CHR's code or name.` DESCRIPTION: CHR providing the service. SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(AUMC):1,'$D(^VA(200,+Y,""I""))#2:1,'^(""I""):1,1:0),$$PROVCLSC^XBFUNC1(+Y)=53"` EXPLANATION: `MUST BE A CHR (PROVIDER CLASS CODE IS 53).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90002^AA^MUMPS` 1)= S ^BCHR("AA",$P($P(^BCHR(DA,0),U),"."),X,DA)="" 2)= K ^BCHR("AA",$P($P(^BCHR(DA,0),U),"."),X,DA) Used by list manager to get list of records by date/chr. CROSS-REFERENCE: `^^TRIGGER^90002^.23` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,0)):^(0),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y X ^DD(90002,.03,1,2,1.1) X ^DD(90002,.03,1,2,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^VA(200,+D0,0)) D0=-1 S Y(101)=$S($D(^VA(200,D0,9999999)):^(9999999),1:"") S X=$P(Y(101),U,9) S D0=I(0,0) 1.4)= S DIH=$S($D(^BCHR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,23)=DIV,DIH=90002,DIG=.23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,0)):^(0),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y X ^DD(90002,.03,1,2,2.1) X ^DD(90002,.03,1,2,2.4) 2.1)= S X=DIV X ^DD(90002,.03,1,2,59.2) S X=$P(Y(101),U,9) S D0=I(0,0) 2.4)= S DIH=$S($D(^BCHR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,23)=DIV,DIH=90002,DIG=.23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHR(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(101)=$S($D(^VA(200,D0,9999999)):^(9999999),1:"") CREATE VALUE)= #.03:IHS ADC INDEX DELETE VALUE)= #.03:IHS ADC INDEX FIELD)= #.23 Triggers the affl/disc/code into field #.23. CROSS-REFERENCE: `90002^AF3^MUMPS` 1)= D SET3^BCHFORM 2)= D KILL3^BCHFORM Computes and sets form #.
.04	PATIENT	0;4	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) INPUT TRANSFORM: `I $D(X) D ^BCHPEDIT` LAST EDITED: `MAY 23, 2011` DESCRIPTION: The patient treated. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^90002^1106` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(90002,.04,1,1,1.1) X ^DD(90002,.04,1,1,1.4) 1.1)= S X=DIV X ^DD(90002,.04,1,1,49.2) S D0=$P(Y(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S X=$P(Y(103),U,17),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,6)=DIV,DIH=90002,DIG=1106 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(90002,.04,1,1,2.1) X ^DD(90002,.04,1,1,2.4) 2.1)= S X=DIV X ^DD(90002,.04,1,1,59.2) S X=$P(Y(101),U,17),X=X S X=X S D0=I(0,0) 2.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,6)=DIV,DIH=90002,DIG=1106 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUPNPAT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),Y(103)=$S($D(^AUPNPAT(D0,11)):^(11),1:"") 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHR(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUPNPAT(D0,11)):^(11),1:"") CREATE VALUE)= INTERNAL(#.04:#.01:#1117) DELETE VALUE)= INTERNAL(#.04:#1117) FIELD)= #1106 CROSS-REFERENCE: `^^TRIGGER^90002^1101` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(90002,.04,1,2,1.1) X ^DD(90002,.04,1,2,1.4) 1.1)= S X=DIV X ^DD(90002,.04,1,2,49.2) S D0=$P(Y(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(201),U,1) S D0=I(0,0) 1.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,1)=DIV,DIH=90002,DIG=1101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(90002,.04,1,2,2.1) X ^DD(90002,.04,1,2,2.4) 2.1)= S X=DIV X ^DD(90002,.04,1,2,59.2) S D0=$P(Y(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(201),U,1) S D0=I(0,0) 2.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,1)=DIV,DIH=90002,DIG=1101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUPNPAT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHR(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") CREATE VALUE)= PATIENT:#.01:#.01 DELETE VALUE)= PATIENT:#.01:#.01 FIELD)= PATIENT NAME CROSS-REFERENCE: `^^TRIGGER^90002^1102` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(90002,.04,1,3,1.1) X ^DD(90002,.04,1,3,1.4) 1.1)= S X=DIV X ^DD(90002,.04,1,3,49.2) S D0=$P(Y(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(201),U,3) S D0=I(0,0) 1.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,2)=DIV,DIH=90002,DIG=1102 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(90002,.04,1,3,2.1) X ^DD(90002,.04,1,3,2.4) 2.1)= S X=DIV X ^DD(90002,.04,1,3,59.2) S D0=$P(Y(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(201),U,3) S D0=I(0,0) 2.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,2)=DIV,DIH=90002,DIG=1102 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUPNPAT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHR(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") CREATE VALUE)= PATIENT:#.01:#.03 DELETE VALUE)= PATIENT:#.01:#.03 FIELD)= DOB CROSS-REFERENCE: `^^TRIGGER^90002^1103` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90002,.04,1,4,1.1) X ^DD(90002,.04,1,4,1.4) 1.1)= S X=DIV X ^DD(90002,.04,1,4,49.2) S D0=$P(Y(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(201),U,2),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,3)=DIV,DIH=90002,DIG=1103 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90002,.04,1,4,2.1) X ^DD(90002,.04,1,4,2.4) 2.1)= S X=DIV X ^DD(90002,.04,1,4,59.2) S D0=$P(Y(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(201),U,2),X=X S X=X S D0=I(0,0) 2.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,3)=DIV,DIH=90002,DIG=1103 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUPNPAT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHR(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") CREATE VALUE)= INTERNAL(#.04:#.01:#.02) DELETE VALUE)= INTERNAL(#.04:#.01:#.02) FIELD)= #1103 CROSS-REFERENCE: `^^TRIGGER^90002^1104` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(90002,.04,1,5,1.1) X ^DD(90002,.04,1,5,1.4) 1.1)= S X=DIV X ^DD(90002,.04,1,5,49.3) S Y=$P(Y(201),U,9) X:$D(^DD(2,.09,2)) ^(2) S X=Y S D0=I(0,0) 1.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,4)=DIV,DIH=90002,DIG=1104 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(90002,.04,1,5,2.1) X ^DD(90002,.04,1,5,2.4) 2.1)= S X=DIV X ^DD(90002,.04,1,5,59.3) S Y=$P(Y(201),U,9) X:$D(^DD(2,.09,2)) ^(2) S X=Y S D0=I(0,0) 2.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,4)=DIV,DIH=90002,DIG=1104 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUPNPAT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") 49.3)= X ^DD(90002,.04,1,5,49.2) S D0=$P(Y(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:""),Y(202)=X 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHR(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") 59.3)= X ^DD(90002,.04,1,5,59.2) S D0=$P(Y(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,0)):^(0),1:""),Y(202)=X CREATE VALUE)= PATIENT:#.01:#.09 DELETE VALUE)= PATIENT:#.01:#.09 FIELD)= SSN CROSS-REFERENCE: `90002^C` 1)= S ^BCHR("C",$E(X,1,30),DA)="" 2)= K ^BCHR("C",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^90002^1107` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(90002,.04,1,7,1.1) X ^DD(90002,.04,1,7,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUPNPAT(D0,11)):^(11),1:"") S X=$P(Y(101),U,18) S D0=I(0,0) 1.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,7)=DIV,DIH=90002,DIG=1107 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(90002,.04,1,7,2.1) X ^DD(90002,.04,1,7,2.4) 2.1)= S X=DIV X ^DD(90002,.04,1,7,59.2) S X=$P(Y(101),U,18) S D0=I(0,0) 2.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,7)=DIV,DIH=90002,DIG=1107 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHR(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUPNPAT(D0,11)):^(11),1:"") CREATE VALUE)= PATIENT:#1118 DELETE VALUE)= PATIENT:#1118 FIELD)= #1107 CROSS-REFERENCE: `^^TRIGGER^90002^1105` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(90002,.04,1,8,1.1) X ^DD(90002,.04,1,8,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUPNPAT(D0,11)):^(11),1:"") S X=$P(Y(101),U,8),X=X S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,5)=DIV,DIH=90002,DIG=1105 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(90002,.04,1,8,2.1) X ^DD(90002,.04,1,8,2.4) 2.1)= S X=DIV X ^DD(90002,.04,1,8,59.2) S X=$P(Y(101),U,8),X=X S X=X S D0=I(0,0) 2.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,5)=DIV,DIH=90002,DIG=1105 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHR(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUPNPAT(D0,11)):^(11),1:"") CREATE VALUE)= INTERNAL(#.04:#1108) DELETE VALUE)= INTERNAL(#.04:#1108) FIELD)= #1105 CROSS-REFERENCE: `^^TRIGGER^90002^1111` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(90002,.04,1,9,1.1) X ^DD(90002,.04,1,9,1.4) 1.1)= S X=DIV X ^DD(90002,.04,1,9,49.2) S X=$S('$D(DUZ(2)):"",$D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),U,2),1:"") S X=X S D0=I(0,0) 1.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,11)=DIV,DIH=90002,DIG=1111 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(90002,.04,1,9,2.1) X ^DD(90002,.04,1,9,2.4) 2.1)= S X=DIV X ^DD(90002,.04,1,9,59.2) S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)),X=$S('$D(DUZ(2)):"",$D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),U,2),1:"") S X=X S D0=I(0,0) 2.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,11)=DIV,DIH=90002,DIG=1111 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) 59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHR(D0,0)):^(0),1:""),D0=$P(Y(1),U,4) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") CREATE VALUE)= AFUN CHART(#.04) DELETE VALUE)= AFUN CHART(#.04) FIELD)= HEALTH RECORD NUMBER CROSS-REFERENCE: `^^TRIGGER^90002^1109` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DUZ(2) X ^DD(90002,.04,1,10,1.4) 1.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,9)=DIV,DIH=90002,DIG=1109 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DUZ(2) X ^DD(90002,.04,1,10,2.4) 2.4)= S DIH=$S($D(^BCHR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,9)=DIV,DIH=90002,DIG=1109 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=DUZ(2) DELETE VALUE)= S X=DUZ(2) FIELD)= CHART FA CROSS-REFERENCE: `90002^AE2^MUMPS` 1)= S ^BCHR("AE",X,9999999-$P(+^BCHR(DA,0),"."),DA)="" 2)= K ^BCHR("AE",X,9999999-$P(+^BCHR(DA,0),"."),DA) Used by chr health summary component.
.05	LOCATION OF ENCOUNTER	0;5	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `OCT 18, 1994` HELP-PROMPT: `Enter the name of the facility where the encounter took place.` DESCRIPTION: If the activity location is hospital/clinic this field will contain the name (ptr. to location) of the facility.
.06	ACTIVITY LOCATION	0;6	POINTER TO CHR ACTIVITY LOCATIONS FILE (#90002.56)	**********************REQUIRED FIELD********************** CHR ACTIVITY LOCATIONS(#90002.56) LAST EDITED: `OCT 25, 2011` HELP-PROMPT: `Enter the activity location as entered on the form. You may enter the full name or code.` DESCRIPTION: Activity location.
.07	*REFERRED TO CHR BY	0;7	POINTER TO CHR REFERRALS FILE (#90002.52)	**********************REQUIRED FIELD********************** CHR REFERRALS(#90002.52) LAST EDITED: `APR 05, 2012` HELP-PROMPT: `Enter the appropriate referral source.` DESCRIPTION: Referred by CHR to.
.08	*REFERRED BY CHR TO	0;8	POINTER TO CHR REFERRALS FILE (#90002.52)	**********************REQUIRED FIELD********************** CHR REFERRALS(#90002.52) LAST EDITED: `APR 05, 2012` HELP-PROMPT: `Enter the referral to.` DESCRIPTION: Referred by CHR to.
.09	*EVALUATION	0;9	SET	'UI' FOR LEVEL OF UNDERSTANDING IMPROVED; 'CI' FOR LEVEL OF COMPLIANCE IMPROVED; 'FI' FOR LEVEL OF FUNCTIONING IMPROVED; 'PR' FOR PROBLEM RESOLVED; LAST EDITED: `MAY 23, 2011` HELP-PROMPT: `Enter the evaluation code from the form.` DESCRIPTION: The level of understanding/evaluation.
.11	TRAVEL TIME	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1)!'(X?.N) X` LAST EDITED: `APR 05, 2012` HELP-PROMPT: `Answer must be 1-4 characters in length.` DESCRIPTION: The travel time as entered on the form. 0-9999.
.12	NUMBER OF CLIENTS SERVED	0;12	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1)!'(X?.N) X` LAST EDITED: `NOV 01, 2011` HELP-PROMPT: `Answer must be 1-4 characters in length.` DESCRIPTION: The number served. 0-999 NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.13	LMP	0;13	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 21, 1999` HELP-PROMPT: `Enter the date of the Patient's LMP. May be imprecise.` DESCRIPTION: The patient's Last Menstrual Period. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.14	FAMILY PLANNING METHOD	0;14	POINTER TO CHR FAMILY PLANNING METHODS FILE (#90002.55)	CHR FAMILY PLANNING METHODS(#90002.55) LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `Enter the Patient's Family Planning Method. Choose one from the list.` DESCRIPTION: The Patient's Family Planning Method.
.15	PCC VISIT	0;15	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `JAN 23, 1995` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: Pointer to the visit file. CROSS-REFERENCE: `90002^AVSIT` 1)= S ^BCHR("AVSIT",$E(X,1,30),DA)="" 2)= K ^BCHR("AVSIT",$E(X,1,30),DA) Used to see if a visit was created by CHR>
.16	WHO ENTERED RECORD	0;16	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: The person entering the record.
.17	DATE LAST MODIFIED	0;17	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `Answer must be 1-9 characters in length.` DESCRIPTION: The date this record was last modified. CROSS-REFERENCE: `90002^AEX^MUMPS` 1)= I '$D(DIU(0)) S ^BCHR("AEX",X,DA)="" 2)= I '$D(DIU(0)) K ^BCHR("AEX",X,DA) Used to control the export of records to CHRIS II. This cross reference is killed by the export software and should not be re-indexed.
.19	DATE EXTRACTED	0;19	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 13, 1994` DESCRIPTION: Date this record was sent to the CHRIS II system.
.21	UNIQUE ID FOR RECORD	0;21	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<1) X` LAST EDITED: `SEP 04, 1996` HELP-PROMPT: `Answer must be 1-16 characters in length.` DESCRIPTION: Unique ID identifying this record. This keeps the remote and host in sync. Form NNNNNNNNNNNNNN (6 digit ASUFAC for host plus 3 digit number plus 5 digit consecutive number.) CROSS-REFERENCE: `90002^CUI` 1)= S ^BCHR("CUI",$E(X,1,30),DA)="" 2)= K ^BCHR("CUI",$E(X,1,30),DA) This cross reference allows lookup of a record by it's unique ID. Only those records loaded from the Remote device will have a unique id. This allows access of records when modifications occur on the host.
.22	POSTING DATE	0;22	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 13, 1994` DESCRIPTION: Date this record was added to the file. CROSS-REFERENCE: `90002^AD` 1)= S ^BCHR("AD",$E(X,1,30),DA)="" 2)= K ^BCHR("AD",$E(X,1,30),DA) Indexes by posting date.
.23	CHR (AFFL/DISC/CODE)	0;23	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `NOV 28, 1994` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: The affl/disc/code of the CHR. This field is triggered. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the CHR PROVIDER field of the CHR RECORD File`
.24	PROGRAM CODE	0;24	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<7) X` LAST EDITED: `NOV 28, 1994` HELP-PROMPT: `Answer must be 7 characters in length.` DESCRIPTION: PROGRAM CODE. This field is triggered. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the PROGRAM field of the CHR RECORD File`
.25	FORM #	0;25	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 27, 1996` HELP-PROMPT: `Type a Number between 1 and 99999, 0 Decimal Digits` DESCRIPTION: A computed consecutive number identifying this form for the CHRIS II system. Form number is a consecutive number by date/chr. CROSS-REFERENCE: `90002^AF4^MUMPS` 1)= I $P(^BCHR(DA,0),U,3)]"",$P(^(0),U,2)]"",$P(^(0),U)]"" S ^BCHR("AF",$P(^BCHR(DA,0),U,3),$P(^(0),U,2),$P($P(^(0),U),"."),X,DA)="" 2)= I $P(^BCHR(DA,0),U,3)]"",$P(^(0),U,2)]"",$P(^(0),U)]"" K ^BCHR("AF",$P(^BCHR(DA,0),U,3),$P(^(0),U,2),$P($P(^(0),U),"."),X,DA)
.26	SYSTEM OF ORIGIN	0;26	SET	'H' FOR HOST; 'R' FOR REMOTE; LAST EDITED: `NOV 28, 1994` DESCRIPTION: Host or remote.
.27	TOTAL SERVICE TIME	0;27	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 12, 1995` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: Total service time in minutes. Computed from all of the POV's NOTES: `TRIGGERED by the SERVICE MINUTES field of the CHR POV File` TRIGGERED by the SERVICE MINUTES field of the BCH GROUP ASSESSMENTS File
.28	REMOTE DUPLICATE FLAG	0;28	SET	'1' FOR DUPLICATE; LAST EDITED: `DEC 10, 2001`
.29	GROUP?	0;29	SET	'1' FOR YES; LAST EDITED: `OCT 27, 2011`
1101	PATIENT NAME	11;1	FREE TEXT	INPUT TRANSFORM: `D NAME^AUPNPED` LAST EDITED: `AUG 12, 1996` HELP-PROMPT: `Enter the patient's name in format LAST,FIRST MI. Answer must be 3-30 characters in length.` WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the PATIENT field of the CHR RECORD File TRIGGERED by the PATIENT (NON-REGISTERED) field of the CHR RECORD File
1102	DOB	11;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 21, 1999` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the PATIENT field of the CHR RECORD File TRIGGERED by the PATIENT (NON-REGISTERED) field of the CHR RECORD File
1103	SEX	11;3	SET	'F' FOR FEMALE; 'M' FOR MALE; LAST EDITED: `MAY 23, 1994` NOTES: `TRIGGERED by the PATIENT field of the CHR RECORD File` TRIGGERED by the PATIENT (NON-REGISTERED) field of the CHR RECORD File
1104	SSN	11;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<9) X` LAST EDITED: `SEP 16, 1994` HELP-PROMPT: `Answer must be 9-11 characters in length.` NOTES: `TRIGGERED by the PATIENT field of the CHR RECORD File` TRIGGERED by the PATIENT (NON-REGISTERED) field of the CHR RECORD File
1105	TRIBE	11;5	POINTER TO TRIBE FILE (#9999999.03)	TRIBE(#9999999.03) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,7)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 16, 1994` SCREEN: `S DIC("S")="I $P(^(0),U,7)'=""Y"""` EXPLANATION: `MUST BE VALID TRIBE` NOTES: `TRIGGERED by the PATIENT field of the CHR RECORD File` TRIGGERED by the PATIENT (NON-REGISTERED) field of the CHR RECORD File
1106	COMMUNITY OF RESIDENCE	11;6	POINTER TO COMMUNITY FILE (#9999999.05)	COMMUNITY(#9999999.05) LAST EDITED: `APR 15, 2011` NOTES: `TRIGGERED by the PATIENT field of the CHR RECORD File` TRIGGERED by the PATIENT (NON-REGISTERED) field of the CHR RECORD File
1107	COMMUNITY (FT)	11;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAY 23, 1994` HELP-PROMPT: `Answer must be 2-30 characters in length.` NOTES: `TRIGGERED by the PATIENT field of the CHR RECORD File` TRIGGERED by the PATIENT (NON-REGISTERED) field of the CHR RECORD File
1108	TEMPORARY RESIDENCE	11;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 23, 1994` HELP-PROMPT: `If the patient is temporarily residing somewhere other than primary residence enter it here. (3-30 characters)`
1109	CHART FACILITY	11;9	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `MAY 23, 1994` NOTES: `TRIGGERED by the PATIENT field of the CHR RECORD File` TRIGGERED by the PATIENT (NON-REGISTERED) field of the CHR RECORD File
1111	HEALTH RECORD NUMBER	11;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 23, 1994` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits` NOTES: `TRIGGERED by the PATIENT field of the CHR RECORD File` TRIGGERED by the PATIENT (NON-REGISTERED) field of the CHR RECORD File
1112	PATIENT (NON-REGISTERED)	11;12	POINTER TO CHR NON REGISTERED PATIENTS FILE (#90002.11)	CHR NON REGISTERED PATIENTS(#90002.11) LAST EDITED: `OCT 27, 2011` CROSS-REFERENCE: `^^TRIGGER^90002^1101` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(90002,1112,1,1,1.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,1)=DIV,DIH=90002,DIG=1101 D ^DICR 1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(90002,1112,1,1,2.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,1)=DIV,DIH=90002,DIG=1101 D ^DICR 2.1)= S X=DIV S I(0,0)=$G(D0),Y(1)=$S($D(^BCHR(D0,11)):^(11),1:""),D0=$P(Y(1),U,12) S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) CREATE VALUE)= #1112:#.01 DELETE VALUE)= #1112:#.01 FIELD)= #1101 CROSS-REFERENCE: `^^TRIGGER^90002^1102` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(90002,1112,1,2,1.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,2)=DIV,DIH=90002,DIG=1102 D ^DICR 1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(90002,1112,1,2,2.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,2)=DIV,DIH=90002,DIG=1102 D ^DICR 2.1)= S X=DIV S I(0,0)=$G(D0),Y(1)=$S($D(^BCHR(D0,11)):^(11),1:""),D0=$P(Y(1),U,12) S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) CREATE VALUE)= #1112:#.02 DELETE VALUE)= #1112:#.02 FIELD)= #1102 CROSS-REFERENCE: `^^TRIGGER^90002^1103` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90002,1112,1,3,1.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,3)=DIV,DIH=90002,DIG=1103 D ^DICR 1.1)= S X=DIV X ^DD(90002,1112,1,3,49.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,3)_":",2),$C(59)) S D0=I(0,0) 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90002,1112,1,3,2.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,3)=DIV,DIH=90002,DIG=1103 D ^DICR 2.1)= S X=DIV X ^DD(90002,1112,1,3,59.2) S Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,3)_":",2),$C(59)) S D0=I(0,0) 49.2)= S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(102)=$C(59)_$P($G(^DD(90002.11,.03,0)),U,3),Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") 59.2)= S I(0,0)=$G(D0),Y(1)=$S($D(^BCHR(D0,11)):^(11),1:""),D0=$P(Y(1),U,12) S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(102)=$C(59)_$P($G(^DD(90002.11,.03,0)),U,3) CREATE VALUE)= #1112:#.03 DELETE VALUE)= #1112:#.03 FIELD)= #1103 CROSS-REFERENCE: `^^TRIGGER^90002^1104` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(90002,1112,1,4,1.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,4)=DIV,DIH=90002,DIG=1104 D ^DICR 1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(101),U,4) S D0=I(0,0) 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(90002,1112,1,4,2.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,4)=DIV,DIH=90002,DIG=1104 D ^DICR 2.1)= S X=DIV S I(0,0)=$G(D0),Y(1)=$S($D(^BCHR(D0,11)):^(11),1:""),D0=$P(Y(1),U,12) S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(101),U,4) S D0=I(0,0) CREATE VALUE)= #1112:#.04 DELETE VALUE)= #1112:#.04 FIELD)= #1104 CROSS-REFERENCE: `^^TRIGGER^90002^1105` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(90002,1112,1,5,1.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,5)=DIV,DIH=90002,DIG=1105 D ^DICR 1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(102)=$S($D(^BCHRPAT(D0,0)):^(0),1:""),Y(101)=$G(X) S X=$P(Y(102),U,5),X=X S X=X S D0=I(0,0) 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV X ^DD(90002,1112,1,5,59.2) S X=$P(Y(102),U,5),X=X S X=X S D0=I(0,0) X ^DD(90002,1112,1,5,2.4) 2.4)= S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,5)=DIV,DIH=90002,DIG=1105 D ^DICR 59.2)= S I(0,0)=$G(D0),Y(1)=$S($D(^BCHR(D0,11)):^(11),1:""),D0=$P(Y(1),U,12) S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(102)=$S($D(^BCHRPAT(D0,0)):^(0),1:""),Y(101)=$G(X) CREATE VALUE)= #1112:INTERNAL(#.05) DELETE VALUE)= #1112:INTERNAL(#.05) FIELD)= #1105 CROSS-REFERENCE: `^^TRIGGER^90002^1106` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(90002,1112,1,6,1.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,6)=DIV,DIH=90002,DIG=1106 D ^DICR 1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(102)=$S($D(^BCHRPAT(D0,0)):^(0),1:""),Y(101)=$G(X) S X=$P(Y(102),U,6),X=X S X=X S D0=I(0,0) 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV X ^DD(90002,1112,1,6,59.2) S X=$P(Y(102),U,6),X=X S X=X S D0=I(0,0) X ^DD(90002,1112,1,6,2.4) 2.4)= S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,6)=DIV,DIH=90002,DIG=1106 D ^DICR 59.2)= S I(0,0)=$G(D0),Y(1)=$S($D(^BCHR(D0,11)):^(11),1:""),D0=$P(Y(1),U,12) S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(102)=$S($D(^BCHRPAT(D0,0)):^(0),1:""),Y(101)=$G(X) CREATE VALUE)= #1112:INTERNAL(#.06) DELETE VALUE)= #1112:INTERNAL(#.06) FIELD)= #1106 CROSS-REFERENCE: `^^TRIGGER^90002^1107` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(90002,1112,1,7,1.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,7)=DIV,DIH=90002,DIG=1107 D ^DICR 1.1)= S X=DIV X ^DD(90002,1112,1,7,49.2) S D0=$P(Y(101),U,6) S:'D0!'$D(^AUTTCOM(+D0,0)) D0=-1 S Y(201)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") S X=$P(Y(201),U,1) S D0=I(0,0) 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(90002,1112,1,7,2.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,7)=DIV,DIH=90002,DIG=1107 D ^DICR 2.1)= S X=DIV X ^DD(90002,1112,1,7,59.2) S Y(102)=$G(X),D0=$P(Y(101),U,6) S:'D0!'$D(^AUTTCOM(+D0,0)) D0=-1 S Y(201)=$S($D(^AUTTCOM(D0,0)):^(0),1:"") S X=$P(Y(201),U,1) S D0=I(0,0) 49.2)= S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S I(100,0)=$G(D0),Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:""),Y(102)=$G(X) 59.2)= S I(0,0)=$G(D0),Y(1)=$S($D(^BCHR(D0,11)):^(11),1:""),D0=$P(Y(1),U,12) S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S I(100,0)=$G(D0),Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") CREATE VALUE)= #1112:#.06:#.01 DELETE VALUE)= #1112:#.06:#.01 FIELD)= #1107 CROSS-REFERENCE: `^^TRIGGER^90002^1109` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(90002,1112,1,8,1.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,9)=DIV,DIH=90002,DIG=1109 D ^DICR 1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(102)=$S($D(^BCHRPAT(D0,0)):^(0),1:""),Y(101)=$G(X) S X=$P(Y(102),U,8),X=X S X=X S D0=I(0,0) 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV X ^DD(90002,1112,1,8,59.2) S X=$P(Y(102),U,8),X=X S X=X S D0=I(0,0) X ^DD(90002,1112,1,8,2.4) 2.4)= S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,9)=DIV,DIH=90002,DIG=1109 D ^DICR 59.2)= S I(0,0)=$G(D0),Y(1)=$S($D(^BCHR(D0,11)):^(11),1:""),D0=$P(Y(1),U,12) S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(102)=$S($D(^BCHRPAT(D0,0)):^(0),1:""),Y(101)=$G(X) CREATE VALUE)= #1112:INTERNAL(#.08) DELETE VALUE)= #1112:INTERNAL(#.08) FIELD)= #1109 CROSS-REFERENCE: `^^TRIGGER^90002^1111` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(90002,1112,1,9,1.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,11)=DIV,DIH=90002,DIG=1111 D ^DICR 1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(101),U,7) S D0=I(0,0) 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(90002,1112,1,9,2.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,11)=DIV,DIH=90002,DIG=1111 D ^DICR 2.1)= S X=DIV S I(0,0)=$G(D0),Y(1)=$S($D(^BCHR(D0,11)):^(11),1:""),D0=$P(Y(1),U,12) S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(101),U,7) S D0=I(0,0) CREATE VALUE)= #1112:#.07 DELETE VALUE)= #1112:#.07 FIELD)= #1111 CROSS-REFERENCE: `^^TRIGGER^90002^1113` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(90002,1112,1,10,1.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,13)=DIV,DIH=90002,DIG=1113 D ^DICR 1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(101),U,9) S D0=I(0,0) 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHR(D0,11)):^(11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(90002,1112,1,10,2.1) S DIH=$G(^BCHR(DIV(0),11)),DIV=X S $P(^(11),U,13)=DIV,DIH=90002,DIG=1113 D ^DICR 2.1)= S X=DIV S I(0,0)=$G(D0),Y(1)=$S($D(^BCHR(D0,11)):^(11),1:""),D0=$P(Y(1),U,12) S:'D0!'$D(^BCHRPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(101),U,9) S D0=I(0,0) CREATE VALUE)= #1112:#.09 DELETE VALUE)= #1112:#.09 FIELD)= #1113 CROSS-REFERENCE: `90002^ANRE^MUMPS` 1)= S ^BCHR("ANRE",X,$P(^BCHR(DA,0),U,1),DA)="" 2)= K ^BCHR("ANRE",X,$P(^BCHR(DA,0),U,1),DA) CROSS-REFERENCE: `90002^ANRP` 1)= S ^BCHR("ANRP",$E(X,1,30),DA)="" 2)= K ^BCHR("ANRP",$E(X,1,30),DA)
1113	CHR ID FOR NON-REG PATIENT	11;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `MAY 23, 2011` HELP-PROMPT: `Answer must be 1-20 characters in length.` NOTES: `TRIGGERED by the PATIENT (NON-REGISTERED) field of the CHR RECORD File`
1201	BLOOD PRESSURE	12;1	FREE TEXT	INPUT TRANSFORM: `D BP^BCHMSRE` LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `Answer must be 3-7 characters in length.` EXECUTABLE HELP: `S BCHMTYP="HBP" D ^BCHMSRH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1202	WEIGHT	12;2	FREE TEXT	INPUT TRANSFORM: `D WT^BCHMSRE` LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `ENTER A WEIGHT VALUE` EXECUTABLE HELP: `S BCHMTYP="HWT" D ^BCHMSRH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1203	HEIGHT	12;3	NUMBER	INPUT TRANSFORM: `D HT^BCHMSRE` LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `ENTER A HEIGHT VALUE` EXECUTABLE HELP: `S BCHMTYP="HHT" D ^BCHMSRH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1204	HEAD CIRCUMFERENCE	12;4	NUMBER	INPUT TRANSFORM: `D HC^BCHMSRE` LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `ENTER A HEAD CIRCUMFERENCE VALUE` EXECUTABLE HELP: `S BCHMTYP="HHC" D ^BCHMSRH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1205	VISION UNCORRECTED	12;5	FREE TEXT	INPUT TRANSFORM: `D VU^BCHMSRE` LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `Answer must be 1-9 characters in length.` EXECUTABLE HELP: `S BCHMTYP="HVC" D ^BCHMSRH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1206	VISION CORRECTED	12;6	FREE TEXT	INPUT TRANSFORM: `D VC^BCHMSRE` LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `Answer must be 1-9 characters in length.` EXECUTABLE HELP: `S BCHMTYP="HVC" D ^BCHMSRH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1207	TEMPERATURE	12;7	FREE TEXT	INPUT TRANSFORM: `D TMP^BCHMSRE` LAST EDITED: `OCT 17, 2000` HELP-PROMPT: `Answer must be 1-5 characters in length.` EXECUTABLE HELP: `S BCHMTYP="HTMP" D ^BCHMSRH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1208	PULSE	12;8	FREE TEXT	INPUT TRANSFORM: `D PU^BCHMSRE` LAST EDITED: `OCT 06, 1994` HELP-PROMPT: `Answer must be 1-3 characters in length.` EXECUTABLE HELP: `S BCHMTYP="HPU" D ^BCHMSRH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1209	RESPIRATIONS	12;9	FREE TEXT	INPUT TRANSFORM: `D RS^BCHMSRE` LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `Answer must be 1-3 characters in length.` EXECUTABLE HELP: `S BCHMTYP="HRS" D ^BCHMSRH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1210	PPD READING	12;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>40)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `Type a Number between 0 and 40, 0 Decimal Digits`
1211	WAIST CIRCUMFERENCE	12;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<20)!(X?.E1"."3N.N) X` LAST EDITED: `DEC 13, 2004` HELP-PROMPT: `Type a Number between 20 and 99, 2 Decimal Digits`
1212	BMI	12;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>80)!(X<9)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 27, 2006` HELP-PROMPT: `Type a Number between 9 and 80, 2 Decimal Digits`
1301	BLOOD SUGAR COLLECTION DATE	13;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 26, 1995` HELP-PROMPT: `Enter the date the blood sugar specimen was collected.`
1302	BLOOD SUGAR RESULT	13;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>2500)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 26, 1995` HELP-PROMPT: `Type a Number between 0 and 2500, 0 Decimal Digits`
1303	THRT CULTURE COLLECTION DATE	13;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 26, 1995` HELP-PROMPT: `Enter the date the throat culture was collected.`
1304	THRT CULTURE VALUE	13;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `JAN 26, 1995` HELP-PROMPT: `Answer must be 2-30 characters in length.`
1305	UA COLLECTION DATE	13;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 26, 1995` HELP-PROMPT: `Enter the date the UA specimen was collected.`
1306	UA VALUE	13;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<2) X` LAST EDITED: `APR 20, 1995` HELP-PROMPT: `Answer must be 2-60 characters in length.`
1307	HCT COLLECTION DATE	13;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 26, 1995` HELP-PROMPT: `Enter the date the HCT was collected.`
1308	HCT VALUE	13;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `JAN 26, 1995` HELP-PROMPT: `Answer must be 2-30 characters in length.`
1309	Hemoglobin A1c	13;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 16, 2006` HELP-PROMPT: `Answer must be 1-20 characters in length.`
1310	TOTAL CHOLESTEROL	13;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `APR 25, 2007` HELP-PROMPT: `Type a number between 1 and 9999, 0 Decimal Digits`
1401	UNIQUE ID FROM REMOTE	14;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `JUL 03, 2002` HELP-PROMPT: `Answer must be 1-40 characters in length.`
1402	UNIQUE ID (MACHINE)	14;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `JUL 03, 2002` HELP-PROMPT: `Answer must be 1-40 characters in length.`
1501	LOCATION	15;1	POINTER TO CHR LOCATIONS FILE (#90002.61)	CHR LOCATIONS(#90002.61) LAST EDITED: `MAR 23, 2011`
1502	CITY	15;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 23, 2011` HELP-PROMPT: `Answer must be 1-30 characters in length.`
1503	STATE	15;3	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `MAR 23, 2011`
2101	PURPOSE OF REFERRAL	21;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `JAN 11, 1995` HELP-PROMPT: `Answer must be 2-80 characters in length.`
2102	INSURER	21;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `FEB 13, 1995` HELP-PROMPT: `Enter the patient's insurer. Must be 1-50 characters in length.`
3101	V FILES CREATED	31;0	POINTER Multiple #90002.03101	90002.03101
4101	REFERRED TO CHR BY	41;0	POINTER Multiple #90002.141	90002.141
4201	REFERRED BY CHR TO	42;0	POINTER Multiple #90002.142	90002.142
5101	SUBJECTIVE	51;0	WORD-PROCESSING #90002.05101
6101	OBJECTIVE	61;0	WORD-PROCESSING #90002.06101
7101	PLANS/TREATMENTS	71;0	WORD-PROCESSING #90002.07101	LAST EDITED: `JAN 25, 1995`
8101	CANNED NARRATIVES	81;0	POINTER Multiple #90002.81	90002.81
8601	REFERRED TO CHR BY (ALL)	86;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<1) X` LAST EDITED: `NOV 22, 2011` HELP-PROMPT: `Answer must be 1-120 characters in length.`
8602	REFERRED BY CHR TO (ALL)	86;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<1) X` LAST EDITED: `NOV 22, 2011` HELP-PROMPT: `Answer must be 1-120 characters in length.`
8701	REFERRED TO CHR BY	87;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>220!($L(X)<1) X D REFIT^BCHUTIL` LAST EDITED: `NOV 16, 2011` HELP-PROMPT: `Please enter a list or referral types separated by commas. E.g.1,3 or NUR,MED No spaces before or after the commas.` EXECUTABLE HELP: `D HELPREF^BCHUTIL` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8901	PATIENT	89;1	VARIABLE POINTER	PATIENT(#9000001) CHR NON REGISTERED PATIENTS(#90002.11) LAST EDITED: `MAY 23, 2011`
8902	REFERRED BY CHR TO	89;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>220!($L(X)<1) X D REFIT^BCHUTIL` LAST EDITED: `NOV 16, 2011` HELP-PROMPT: `Please enter a list or referral types separated by commas. E.g. 1,3 or NUR,MED No spaces before or after the commas.` EXECUTABLE HELP: `D HELPREF^BCHUTIL` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
9999	LOOKUP		COMPUTED	MUMPS CODE: S X=$S($D(BCHLOOK):$S(BCHLOOK=+BCHLOOK:"`"_BCHLOOK,1:BCHLOOK),1:"") ALGORITHM: S X=$S($D(BCHLOOK):$S(BCHLOOK=+BCHLOOK:"`"_BCHLOOK,1:BCHLOOK),1:"")

Name	Field # of Occurrence
^%DT	.01+1, .13+1, .17+1, .19+1, .22+1, 1102+1, 1301+1, 1303+1, 1305+1, 1307+1
NAME^AUPNPED	1101+1
KILL1^BCHFORM	.01(XREF 4K)
KILL2^BCHFORM	.02(XREF 2K)
KILL3^BCHFORM	.03(XREF 3K)
SET1^BCHFORM	.01(XREF 4S)
SET2^BCHFORM	.02(XREF 2S)
SET3^BCHFORM	.03(XREF 3S)
BP^BCHMSRE	1201+1
HC^BCHMSRE	1204+1
HT^BCHMSRE	1203+1
PU^BCHMSRE	1208+1
RS^BCHMSRE	1209+1
TMP^BCHMSRE	1207+1
VC^BCHMSRE	1206+1
VU^BCHMSRE	1205+1
WT^BCHMSRE	1202+1
^BCHMSRH	1201(HELP ), 1202(HELP ), 1203(HELP ), 1204(HELP ), 1205(HELP ), 1206(HELP ), 1207(HELP ), 1208(HELP ), 1209(HELP )
^BCHPEDIT	.04+1
HELPREF^BCHUTIL	8701(HELP ), 8902(HELP )
REFIT^BCHUTIL	8701+1, 8902+1
^DIC	.03+1, 1105+1
^DICR	.02(XREF 1n1.4), .02(XREF 1n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .04(XREF 1n1.4), .04(XREF 1n2.4), .04(XREF 2n1.4), .04(XREF 2n2.4), .04(XREF 3n1.4), .04(XREF 3n2.4) , .04(XREF 4n1.4), .04(XREF 4n2.4), .04(XREF 5n1.4), .04(XREF 5n2.4), .04(XREF 7n1.4), .04(XREF 7n2.4), .04(XREF 8n1.4), .04(XREF 8n2.4), .04(XREF 9n1.4), .04(XREF 9n2.4) , .04(XREF 10n1.4), .04(XREF 10n2.4), 1112(XREF 1S), 1112(XREF 1K), 1112(XREF 2S), 1112(XREF 2K), 1112(XREF 3S), 1112(XREF 3K), 1112(XREF 4S), 1112(XREF 4K) , 1112(XREF 5S), 1112(XREF 5n2.4), 1112(XREF 6S), 1112(XREF 6n2.4), 1112(XREF 7S), 1112(XREF 7K), 1112(XREF 8S), 1112(XREF 8n2.4), 1112(XREF 9S), 1112(XREF 9K) , 1112(XREF 10S), 1112(XREF 10K)

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	.04(XREF 1n49.2), .04(XREF 1n59.2), .04(XREF 2n49.2), .04(XREF 2n59.2), .04(XREF 3n49.2), .04(XREF 3n59.2), .04(XREF 4n49.2), .04(XREF 4n59.2), .04(XREF 5n49.2), .04(XREF 5n59.2) , .04(XREF 7n1.1), .04(XREF 7n59.2), .04(XREF 8n1.1), .04(XREF 8n59.2), .04(XREF 9n1.1), .04(XREF 9n2.1), .04(XREF 9n49.2), .04(XREF 9n59.2)
^AUTTCOM - [#9999999.05]	1112(XREF 7n1.1), 1112(XREF 7n2.1)
^BCHR - [#90002]	.01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 1n59.2), .029OF9.2+1 , .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 2n59.2), .04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1K) , .04(XREF 1n2.4), .04(XREF 1n59.2), .04(XREF 2S), .04(XREF 2n1.4), .04(XREF 2K), .04(XREF 2n2.4), .04(XREF 2n59.2), .04(XREF 3S), .04(XREF 3n1.4), .04(XREF 3K) , .04(XREF 3n2.4), .04(XREF 3n59.2), .04(XREF 4S), .04(XREF 4n1.4), .04(XREF 4K), .04(XREF 4n2.4), .04(XREF 4n59.2), .04(XREF 5S), .04(XREF 5n1.4), .04(XREF 5K) , .04(XREF 5n2.4), .04(XREF 5n59.2), .04(XREF 7S), .04(XREF 7n1.4), .04(XREF 7K), .04(XREF 7n2.4), .04(XREF 7n59.2), .04(XREF 8S), .04(XREF 8n1.4), .04(XREF 8K) , .04(XREF 8n2.4), .04(XREF 8n59.2), .04(XREF 9S), .04(XREF 9n1.4), .04(XREF 9K), .04(XREF 9n2.4), .04(XREF 9n59.2), .04(XREF 10S), .04(XREF 10n1.4), .04(XREF 10K) , .04(XREF 10n2.4), .04(XREF 11S), .04(XREF 11K), .25(XREF 1S), .25(XREF 1K), 1112(XREF 1S), 1112(XREF 1K), 1112(XREF 1n2.1), 1112(XREF 2S), 1112(XREF 2K) , 1112(XREF 2n2.1), 1112(XREF 3S), 1112(XREF 3K), 1112(XREF 3n59.2), 1112(XREF 4S), 1112(XREF 4K), 1112(XREF 4n2.1), 1112(XREF 5S), 1112(XREF 5K), 1112(XREF 5n2.4) , 1112(XREF 5n59.2), 1112(XREF 6S), 1112(XREF 6K), 1112(XREF 6n2.4), 1112(XREF 6n59.2), 1112(XREF 7S), 1112(XREF 7K), 1112(XREF 7n59.2), 1112(XREF 8S), 1112(XREF 8K) , 1112(XREF 8n2.4), 1112(XREF 8n59.2), 1112(XREF 9S), 1112(XREF 9K), 1112(XREF 9n2.1), 1112(XREF 10S), 1112(XREF 10K), 1112(XREF 10n2.1), 1112(XREF 11S), 1112(XREF 11K)
^BCHR("AA"	.01(XREF 2S), .01(XREF 2K), .03(XREF 1S), .03(XREF 1K)
^BCHR("AD"	.22(XREF 1S), .22(XREF 1K)
^BCHR("AE"	.01(XREF 3S), .01(XREF 3K), .04(XREF 11S), .04(XREF 11K)
^BCHR("AEX"	.17(XREF 1S), .17(XREF 1K)
^BCHR("AF"	.25(XREF 1S), .25(XREF 1K)
^BCHR("ANRE"	1112(XREF 11S), 1112(XREF 11K)
^BCHR("ANRP"	1112(XREF 12S), 1112(XREF 12K)
^BCHR("AVSIT"	.15(XREF 1S), .15(XREF 1K)
^BCHR("B"	.01(XREF 1S), .01(XREF 1K)
^BCHR("C"	.04(XREF 6S), .04(XREF 6K)
^BCHR("CUI"	.21(XREF 1S), .21(XREF 1K)
^BCHRPAT - [#90002.11]	1112(XREF 1n1.1), 1112(XREF 1n2.1), 1112(XREF 2n1.1), 1112(XREF 2n2.1), 1112(XREF 3n2.1), 1112(XREF 3n49.2), 1112(XREF 3n59.2), 1112(XREF 4n1.1), 1112(XREF 4n2.1), 1112(XREF 5n1.1) , 1112(XREF 5n59.2), 1112(XREF 6n1.1), 1112(XREF 6n59.2), 1112(XREF 7n49.2), 1112(XREF 7n59.2), 1112(XREF 8n1.1), 1112(XREF 8n59.2), 1112(XREF 9n1.1), 1112(XREF 9n2.1), 1112(XREF 10n1.1) , 1112(XREF 10n2.1)
^BCHTPROG - [#90002.51]	.02(XREF 1n1.1), .02(XREF 1n59.2), .029+1, .029OF9.2+1
^DD(	.02(XREF 1n1.4), .02(XREF 1n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .04(XREF 1n1.4), .04(XREF 1n2.4), .04(XREF 2n1.4), .04(XREF 2n2.4), .04(XREF 3n1.4), .04(XREF 3n2.4) , .04(XREF 4n1.4), .04(XREF 4n2.4), .04(XREF 5n1.4), .04(XREF 5n2.4), .04(XREF 7n1.4), .04(XREF 7n2.4), .04(XREF 8n1.4), .04(XREF 8n2.4), .04(XREF 9n1.4), .04(XREF 9n2.4) , .04(XREF 10n1.4), .04(XREF 10n2.4)
^DD(2	.04(XREF 5n1.1), .04(XREF 5n2.1)
^DD(90002	.02(XREF 1S), .02(XREF 1K), .02(XREF 1n2.1), .029+1, .03(XREF 2S), .03(XREF 2K), .03(XREF 2n2.1), .04(XREF 1S), .04(XREF 1n1.1), .04(XREF 1K) , .04(XREF 1n2.1), .04(XREF 2S), .04(XREF 2n1.1), .04(XREF 2K), .04(XREF 2n2.1), .04(XREF 3S), .04(XREF 3n1.1), .04(XREF 3K), .04(XREF 3n2.1), .04(XREF 4S) , .04(XREF 4n1.1), .04(XREF 4K), .04(XREF 4n2.1), .04(XREF 5S), .04(XREF 5n1.1), .04(XREF 5K), .04(XREF 5n2.1), .04(XREF 5n49.3), .04(XREF 5n59.3), .04(XREF 7S) , .04(XREF 7K), .04(XREF 7n2.1), .04(XREF 8S), .04(XREF 8K), .04(XREF 8n2.1), .04(XREF 9S), .04(XREF 9n1.1), .04(XREF 9K), .04(XREF 9n2.1), .04(XREF 10S) , .04(XREF 10K), 1112(XREF 1S), 1112(XREF 1K), 1112(XREF 2S), 1112(XREF 2K), 1112(XREF 3S), 1112(XREF 3n1.1), 1112(XREF 3K), 1112(XREF 3n2.1), 1112(XREF 4S) , 1112(XREF 4K), 1112(XREF 5S), 1112(XREF 5K), 1112(XREF 6S), 1112(XREF 6K), 1112(XREF 7S), 1112(XREF 7n1.1), 1112(XREF 7K), 1112(XREF 7n2.1), 1112(XREF 8S) , 1112(XREF 8K), 1112(XREF 9S), 1112(XREF 9K), 1112(XREF 10S), 1112(XREF 10K)
^DD(90002.11	1112(XREF 3n49.2), 1112(XREF 3n59.2)
^DPT - [#2]	.04(XREF 1n1.1), .04(XREF 2n1.1), .04(XREF 2n2.1), .04(XREF 3n1.1), .04(XREF 3n2.1), .04(XREF 4n1.1), .04(XREF 4n2.1), .04(XREF 5n49.3), .04(XREF 5n59.3), .04(XREF 9n2.1) , .04(XREF 9n49.2)
^VA(200 - [#200]	.03(XREF 2n1.1), .03(XREF 2n59.2)

Name	Field # of Occurrence
^(0	.02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 1n59.2), .029+1, .029OF9.2+1, .03(XREF 2S), .03(XREF 2n1.4) , .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 2n59.2), .04(XREF 1n49.2), .04(XREF 1n59.2), .04(XREF 2n1.1), .04(XREF 2n2.1), .04(XREF 2n49.2), .04(XREF 2n59.2), .04(XREF 3n1.1) , .04(XREF 3n2.1), .04(XREF 3n49.2), .04(XREF 3n59.2), .04(XREF 4n1.1), .04(XREF 4n2.1), .04(XREF 4n49.2), .04(XREF 4n59.2), .04(XREF 5n49.2), .04(XREF 5n49.3), .04(XREF 5n59.2) , .04(XREF 5n59.3), .04(XREF 7n59.2), .04(XREF 8n59.2), .04(XREF 9n1.1), .04(XREF 9n2.1), .04(XREF 9n49.2), .04(XREF 9n59.2), .25(XREF 1S), .25(XREF 1K), 1112(XREF 1n1.1) , 1112(XREF 1n2.1), 1112(XREF 2n1.1), 1112(XREF 2n2.1), 1112(XREF 3n2.1), 1112(XREF 3n49.2), 1112(XREF 4n1.1), 1112(XREF 4n2.1), 1112(XREF 5n1.1), 1112(XREF 5n59.2), 1112(XREF 6n1.1) , 1112(XREF 6n59.2), 1112(XREF 7n1.1), 1112(XREF 7n2.1), 1112(XREF 7n49.2), 1112(XREF 7n59.2), 1112(XREF 8n1.1), 1112(XREF 8n59.2), 1112(XREF 9n1.1), 1112(XREF 9n2.1), 1112(XREF 10n1.1) , 1112(XREF 10n2.1)
^(11	.04(XREF 1S), .04(XREF 1n1.4), .04(XREF 1K), .04(XREF 1n2.4), .04(XREF 1n49.2), .04(XREF 1n59.2), .04(XREF 2S), .04(XREF 2n1.4), .04(XREF 2K), .04(XREF 2n2.4) , .04(XREF 3S), .04(XREF 3n1.4), .04(XREF 3K), .04(XREF 3n2.4), .04(XREF 4S), .04(XREF 4n1.4), .04(XREF 4K), .04(XREF 4n2.4), .04(XREF 5S), .04(XREF 5n1.4) , .04(XREF 5K), .04(XREF 5n2.4), .04(XREF 7S), .04(XREF 7n1.1), .04(XREF 7n1.4), .04(XREF 7K), .04(XREF 7n2.4), .04(XREF 7n59.2), .04(XREF 8S), .04(XREF 8n1.1) , .04(XREF 8n1.4), .04(XREF 8K), .04(XREF 8n2.4), .04(XREF 8n59.2), .04(XREF 9S), .04(XREF 9n1.4), .04(XREF 9K), .04(XREF 9n2.4), .04(XREF 10S), .04(XREF 10n1.4) , .04(XREF 10K), .04(XREF 10n2.4), 1112(XREF 1S), 1112(XREF 1K), 1112(XREF 1n2.1), 1112(XREF 2S), 1112(XREF 2K), 1112(XREF 2n2.1), 1112(XREF 3S), 1112(XREF 3K) , 1112(XREF 3n59.2), 1112(XREF 4S), 1112(XREF 4K), 1112(XREF 4n2.1), 1112(XREF 5S), 1112(XREF 5K), 1112(XREF 5n2.4), 1112(XREF 5n59.2), 1112(XREF 6S), 1112(XREF 6K) , 1112(XREF 6n2.4), 1112(XREF 6n59.2), 1112(XREF 7S), 1112(XREF 7K), 1112(XREF 7n59.2), 1112(XREF 8S), 1112(XREF 8K), 1112(XREF 8n2.4), 1112(XREF 8n59.2), 1112(XREF 9S) , 1112(XREF 9K), 1112(XREF 9n2.1), 1112(XREF 10S), 1112(XREF 10K), 1112(XREF 10n2.1)
^(2	.04(XREF 5n1.1), .04(XREF 5n2.1)
^(9999999	.03(XREF 2n1.1), .03(XREF 2n59.2)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, .13+1, .17+1, .19+1, .22+1, 1102+1, 1301+1, 1303+1, 1305+1, 1307+1
>> BCHLOOK	9999+1
>> BCHMTYP	1201(HELP ), 1202(HELP ), 1203(HELP ), 1204(HELP ), 1205(HELP ), 1206(HELP ), 1207(HELP ), 1208(HELP ), 1209(HELP )
>> D0	.02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1K), .02(XREF 1n2.1), .02(XREF 1n59.2), .029+1, .029OF9.2+1, .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2K) , .03(XREF 2n2.1), .03(XREF 2n59.2), .04(XREF 1S), .04(XREF 1n1.1), .04(XREF 1K), .04(XREF 1n2.1), .04(XREF 1n49.2), .04(XREF 1n59.2), .04(XREF 2S), .04(XREF 2n1.1) , .04(XREF 2K), .04(XREF 2n2.1), .04(XREF 2n49.2), .04(XREF 2n59.2), .04(XREF 3S), .04(XREF 3n1.1), .04(XREF 3K), .04(XREF 3n2.1), .04(XREF 3n49.2), .04(XREF 3n59.2) , .04(XREF 4S), .04(XREF 4n1.1), .04(XREF 4K), .04(XREF 4n2.1), .04(XREF 4n49.2), .04(XREF 4n59.2), .04(XREF 5S), .04(XREF 5n1.1), .04(XREF 5K), .04(XREF 5n2.1) , .04(XREF 5n49.2), .04(XREF 5n49.3), .04(XREF 5n59.2), .04(XREF 5n59.3), .04(XREF 7S), .04(XREF 7n1.1), .04(XREF 7K), .04(XREF 7n2.1), .04(XREF 7n59.2), .04(XREF 8S) , .04(XREF 8n1.1), .04(XREF 8K), .04(XREF 8n2.1), .04(XREF 8n59.2), .04(XREF 9S), .04(XREF 9n1.1), .04(XREF 9K), .04(XREF 9n2.1), .04(XREF 9n49.2), .04(XREF 9n59.2) , .04(XREF 10S), .04(XREF 10K), 1112(XREF 1S), 1112(XREF 1n1.1), 1112(XREF 1K), 1112(XREF 1n2.1), 1112(XREF 2S), 1112(XREF 2n1.1), 1112(XREF 2K), 1112(XREF 2n2.1) , 1112(XREF 3S), 1112(XREF 3n1.1), 1112(XREF 3K), 1112(XREF 3n2.1), 1112(XREF 3n49.2), 1112(XREF 3n59.2), 1112(XREF 4S), 1112(XREF 4n1.1), 1112(XREF 4K), 1112(XREF 4n2.1) , 1112(XREF 5S), 1112(XREF 5n1.1), 1112(XREF 5K), 1112(XREF 5n59.2), 1112(XREF 6S), 1112(XREF 6n1.1), 1112(XREF 6K), 1112(XREF 6n59.2), 1112(XREF 7S), 1112(XREF 7n1.1) , 1112(XREF 7K), 1112(XREF 7n2.1), 1112(XREF 7n49.2), 1112(XREF 7n59.2), 1112(XREF 8S), 1112(XREF 8n1.1), 1112(XREF 8K), 1112(XREF 8n59.2), 1112(XREF 9S), 1112(XREF 9n1.1) , 1112(XREF 9K), 1112(XREF 9n2.1), 1112(XREF 10S), 1112(XREF 10n1.1), 1112(XREF 10K), 1112(XREF 10n2.1)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .04(XREF 4S), .04(XREF 4K) , .04(XREF 5S), .04(XREF 5K), .04(XREF 6S), .04(XREF 6K), .04(XREF 7S), .04(XREF 7K), .04(XREF 8S), .04(XREF 8K), .04(XREF 9S), .04(XREF 9K) , .04(XREF 10S), .04(XREF 10K), .04(XREF 11S), .04(XREF 11K), .15(XREF 1S), .15(XREF 1K), .17(XREF 1S), .17(XREF 1K), .21(XREF 1S), .21(XREF 1K) , .22(XREF 1S), .22(XREF 1K), .25(XREF 1S), .25(XREF 1K), 1112(XREF 1S), 1112(XREF 1K), 1112(XREF 2S), 1112(XREF 2K), 1112(XREF 3S), 1112(XREF 3K) , 1112(XREF 4S), 1112(XREF 4K), 1112(XREF 5S), 1112(XREF 5K), 1112(XREF 6S), 1112(XREF 6K), 1112(XREF 7S), 1112(XREF 7K), 1112(XREF 8S), 1112(XREF 8K) , 1112(XREF 9S), 1112(XREF 9K), 1112(XREF 10S), 1112(XREF 10K), 1112(XREF 11S), 1112(XREF 11K), 1112(XREF 12S), 1112(XREF 12K)
DIC	.03+1!, 1105+1!
DIC("S"	.03+1, .03SCR+1, 1105+1, 1105SCR+1
>> DIE	.03+1, 1105+1
>> DIG	.02(XREF 1n1.4), .02(XREF 1n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .04(XREF 1n1.4), .04(XREF 1n2.4), .04(XREF 2n1.4), .04(XREF 2n2.4), .04(XREF 3n1.4), .04(XREF 3n2.4) , .04(XREF 4n1.4), .04(XREF 4n2.4), .04(XREF 5n1.4), .04(XREF 5n2.4), .04(XREF 7n1.4), .04(XREF 7n2.4), .04(XREF 8n1.4), .04(XREF 8n2.4), .04(XREF 9n1.4), .04(XREF 9n2.4) , .04(XREF 10n1.4), .04(XREF 10n2.4), 1112(XREF 1S), 1112(XREF 1K), 1112(XREF 2S), 1112(XREF 2K), 1112(XREF 3S), 1112(XREF 3K), 1112(XREF 4S), 1112(XREF 4K) , 1112(XREF 5S), 1112(XREF 5n2.4), 1112(XREF 6S), 1112(XREF 6n2.4), 1112(XREF 7S), 1112(XREF 7K), 1112(XREF 8S), 1112(XREF 8n2.4), 1112(XREF 9S), 1112(XREF 9K) , 1112(XREF 10S), 1112(XREF 10K)
>> DIH	.02(XREF 1n1.4), .02(XREF 1n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .04(XREF 1n1.4), .04(XREF 1n2.4), .04(XREF 2n1.4), .04(XREF 2n2.4), .04(XREF 3n1.4), .04(XREF 3n2.4) , .04(XREF 4n1.4), .04(XREF 4n2.4), .04(XREF 5n1.4), .04(XREF 5n2.4), .04(XREF 7n1.4), .04(XREF 7n2.4), .04(XREF 8n1.4), .04(XREF 8n2.4), .04(XREF 9n1.4), .04(XREF 9n2.4) , .04(XREF 10n1.4), .04(XREF 10n2.4), 1112(XREF 1S), 1112(XREF 1K), 1112(XREF 2S), 1112(XREF 2K), 1112(XREF 3S), 1112(XREF 3K), 1112(XREF 4S), 1112(XREF 4K) , 1112(XREF 5S), 1112(XREF 5n2.4), 1112(XREF 6S), 1112(XREF 6n2.4), 1112(XREF 7S), 1112(XREF 7K), 1112(XREF 8S), 1112(XREF 8n2.4), 1112(XREF 9S), 1112(XREF 9K) , 1112(XREF 10S), 1112(XREF 10K)
>> DIU	.02(XREF 1S), .02(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K) , .04(XREF 4S), .04(XREF 4K), .04(XREF 5S), .04(XREF 5K), .04(XREF 7S), .04(XREF 7K), .04(XREF 8S), .04(XREF 8K), .04(XREF 9S), .04(XREF 9K) , .04(XREF 10S), .04(XREF 10K), 1112(XREF 1S), 1112(XREF 1K), 1112(XREF 2S), 1112(XREF 2K), 1112(XREF 3S), 1112(XREF 3K), 1112(XREF 4S), 1112(XREF 4K) , 1112(XREF 5S), 1112(XREF 5K), 1112(XREF 6S), 1112(XREF 6K), 1112(XREF 7S), 1112(XREF 7K), 1112(XREF 8S), 1112(XREF 8K), 1112(XREF 9S), 1112(XREF 9K) , 1112(XREF 10S), 1112(XREF 10K)
>> DIU(0	.17(XREF 1S), .17(XREF 1K)
DIV	.02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.1), .02(XREF 1n2.4), .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K) , .03(XREF 2n2.1), .03(XREF 2n2.4), .04(XREF 1S), .04(XREF 1n1.1), .04(XREF 1n1.4), .04(XREF 1K), .04(XREF 1n2.1), .04(XREF 1n2.4), .04(XREF 1n49.2), .04(XREF 2S) , .04(XREF 2n1.1), .04(XREF 2n1.4), .04(XREF 2K), .04(XREF 2n2.1), .04(XREF 2n2.4), .04(XREF 2n49.2), .04(XREF 3S), .04(XREF 3n1.1), .04(XREF 3n1.4), .04(XREF 3K) , .04(XREF 3n2.1), .04(XREF 3n2.4), .04(XREF 3n49.2), .04(XREF 4S), .04(XREF 4n1.1), .04(XREF 4n1.4), .04(XREF 4K), .04(XREF 4n2.1), .04(XREF 4n2.4), .04(XREF 4n49.2) , .04(XREF 5S), .04(XREF 5n1.1), .04(XREF 5n1.4), .04(XREF 5K), .04(XREF 5n2.1), .04(XREF 5n2.4), .04(XREF 5n49.2), .04(XREF 7S), .04(XREF 7n1.1), .04(XREF 7n1.4) , .04(XREF 7K), .04(XREF 7n2.1), .04(XREF 7n2.4), .04(XREF 8S), .04(XREF 8n1.1), .04(XREF 8n1.4), .04(XREF 8K), .04(XREF 8n2.1), .04(XREF 8n2.4), .04(XREF 9S) , .04(XREF 9n1.1), .04(XREF 9n1.4), .04(XREF 9K), .04(XREF 9n2.1), .04(XREF 9n2.4), .04(XREF 9n49.2), .04(XREF 10S), .04(XREF 10n1.4), .04(XREF 10K), .04(XREF 10n2.4) , 1112(XREF 1S), 1112(XREF 1n1.1), 1112(XREF 1K), 1112(XREF 1n2.1), 1112(XREF 2S), 1112(XREF 2n1.1), 1112(XREF 2K), 1112(XREF 2n2.1), 1112(XREF 3S), 1112(XREF 3n1.1) , 1112(XREF 3K), 1112(XREF 3n2.1), 1112(XREF 3n49.2), 1112(XREF 4S), 1112(XREF 4n1.1), 1112(XREF 4K), 1112(XREF 4n2.1), 1112(XREF 5S), 1112(XREF 5n1.1), 1112(XREF 5K) , 1112(XREF 5n2.4), 1112(XREF 6S), 1112(XREF 6n1.1), 1112(XREF 6K), 1112(XREF 6n2.4), 1112(XREF 7S), 1112(XREF 7n1.1), 1112(XREF 7K), 1112(XREF 7n2.1), 1112(XREF 7n49.2) , 1112(XREF 8S), 1112(XREF 8n1.1), 1112(XREF 8K), 1112(XREF 8n2.4), 1112(XREF 9S), 1112(XREF 9n1.1), 1112(XREF 9K), 1112(XREF 9n2.1), 1112(XREF 10S), 1112(XREF 10n1.1) , 1112(XREF 10K), 1112(XREF 10n2.1)
DIV(0	.02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .04(XREF 1S), .04(XREF 1n1.4) , .04(XREF 1K), .04(XREF 1n2.4), .04(XREF 2S), .04(XREF 2n1.4), .04(XREF 2K), .04(XREF 2n2.4), .04(XREF 3S), .04(XREF 3n1.4), .04(XREF 3K), .04(XREF 3n2.4) , .04(XREF 4S), .04(XREF 4n1.4), .04(XREF 4K), .04(XREF 4n2.4), .04(XREF 5S), .04(XREF 5n1.4), .04(XREF 5K), .04(XREF 5n2.4), .04(XREF 7S), .04(XREF 7n1.4) , .04(XREF 7K), .04(XREF 7n2.4), .04(XREF 8S), .04(XREF 8n1.4), .04(XREF 8K), .04(XREF 8n2.4), .04(XREF 9S), .04(XREF 9n1.4), .04(XREF 9K), .04(XREF 9n2.4) , .04(XREF 10S), .04(XREF 10n1.4), .04(XREF 10K), .04(XREF 10n2.4), 1112(XREF 1S), 1112(XREF 1K), 1112(XREF 2S), 1112(XREF 2K), 1112(XREF 3S), 1112(XREF 3K) , 1112(XREF 4S), 1112(XREF 4K), 1112(XREF 5S), 1112(XREF 5K), 1112(XREF 5n2.4), 1112(XREF 6S), 1112(XREF 6K), 1112(XREF 6n2.4), 1112(XREF 7S), 1112(XREF 7K) , 1112(XREF 8S), 1112(XREF 8K), 1112(XREF 8n2.4), 1112(XREF 9S), 1112(XREF 9K), 1112(XREF 10S), 1112(XREF 10K)
DUZ(2	.04(XREF 9n1.1), .04(XREF 9n2.1), .04(XREF 10S), .04(XREF 10K)
>> I(0	.02(XREF 1n1.1), .02(XREF 1n2.1), .02(XREF 1n59.2), .03(XREF 2n1.1), .03(XREF 2n2.1), .03(XREF 2n59.2), .04(XREF 1n1.1), .04(XREF 1n2.1), .04(XREF 1n49.2), .04(XREF 1n59.2) , .04(XREF 2n1.1), .04(XREF 2n2.1), .04(XREF 2n49.2), .04(XREF 2n59.2), .04(XREF 3n1.1), .04(XREF 3n2.1), .04(XREF 3n49.2), .04(XREF 3n59.2), .04(XREF 4n1.1), .04(XREF 4n2.1) , .04(XREF 4n49.2), .04(XREF 4n59.2), .04(XREF 5n1.1), .04(XREF 5n2.1), .04(XREF 5n49.2), .04(XREF 5n59.2), .04(XREF 7n1.1), .04(XREF 7n2.1), .04(XREF 7n59.2), .04(XREF 8n1.1) , .04(XREF 8n2.1), .04(XREF 8n59.2), .04(XREF 9n1.1), .04(XREF 9n2.1), .04(XREF 9n49.2), .04(XREF 9n59.2), 1112(XREF 1n1.1), 1112(XREF 1n2.1), 1112(XREF 2n1.1), 1112(XREF 2n2.1) , 1112(XREF 3n1.1), 1112(XREF 3n2.1), 1112(XREF 3n49.2), 1112(XREF 3n59.2), 1112(XREF 4n1.1), 1112(XREF 4n2.1), 1112(XREF 5n1.1), 1112(XREF 5K), 1112(XREF 5n59.2), 1112(XREF 6n1.1) , 1112(XREF 6K), 1112(XREF 6n59.2), 1112(XREF 7n1.1), 1112(XREF 7n2.1), 1112(XREF 7n49.2), 1112(XREF 7n59.2), 1112(XREF 8n1.1), 1112(XREF 8K), 1112(XREF 8n59.2), 1112(XREF 9n1.1) , 1112(XREF 9n2.1), 1112(XREF 10n1.1), 1112(XREF 10n2.1)
>> I(100	.04(XREF 1n49.2), .04(XREF 2n49.2), .04(XREF 2n59.2), .04(XREF 3n49.2), .04(XREF 3n59.2), .04(XREF 4n49.2), .04(XREF 4n59.2), .04(XREF 5n49.2), .04(XREF 5n59.2), 1112(XREF 7n49.2) , 1112(XREF 7n59.2)
U	.01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.1), .02(XREF 1n2.4) , .02(XREF 1n59.2), .029+1, .029OF9.2+1, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.1) , .03(XREF 2n2.4), .03(XREF 2n59.2), .04(XREF 1S), .04(XREF 1n1.1), .04(XREF 1n1.4), .04(XREF 1K), .04(XREF 1n2.1), .04(XREF 1n2.4), .04(XREF 1n59.2), .04(XREF 2S) , .04(XREF 2n1.1), .04(XREF 2n1.4), .04(XREF 2K), .04(XREF 2n2.1), .04(XREF 2n2.4), .04(XREF 2n59.2), .04(XREF 3S), .04(XREF 3n1.1), .04(XREF 3n1.4), .04(XREF 3K) , .04(XREF 3n2.1), .04(XREF 3n2.4), .04(XREF 3n59.2), .04(XREF 4S), .04(XREF 4n1.1), .04(XREF 4n1.4), .04(XREF 4K), .04(XREF 4n2.1), .04(XREF 4n2.4), .04(XREF 4n59.2) , .04(XREF 5S), .04(XREF 5n1.1), .04(XREF 5n1.4), .04(XREF 5K), .04(XREF 5n2.1), .04(XREF 5n2.4), .04(XREF 5n49.3), .04(XREF 5n59.2), .04(XREF 5n59.3), .04(XREF 7S) , .04(XREF 7n1.1), .04(XREF 7n1.4), .04(XREF 7K), .04(XREF 7n2.1), .04(XREF 7n2.4), .04(XREF 7n59.2), .04(XREF 8S), .04(XREF 8n1.1), .04(XREF 8n1.4), .04(XREF 8K) , .04(XREF 8n2.1), .04(XREF 8n2.4), .04(XREF 8n59.2), .04(XREF 9S), .04(XREF 9n1.1), .04(XREF 9n1.4), .04(XREF 9K), .04(XREF 9n2.1), .04(XREF 9n2.4), .04(XREF 9n49.2) , .04(XREF 9n59.2), .04(XREF 10S), .04(XREF 10n1.4), .04(XREF 10K), .04(XREF 10n2.4), .25(XREF 1S), .25(XREF 1K), 1112(XREF 1S), 1112(XREF 1n1.1), 1112(XREF 1K) , 1112(XREF 1n2.1), 1112(XREF 2S), 1112(XREF 2n1.1), 1112(XREF 2K), 1112(XREF 2n2.1), 1112(XREF 3S), 1112(XREF 3n1.1), 1112(XREF 3K), 1112(XREF 3n2.1), 1112(XREF 3n49.2) , 1112(XREF 3n59.2), 1112(XREF 4S), 1112(XREF 4n1.1), 1112(XREF 4K), 1112(XREF 4n2.1), 1112(XREF 5S), 1112(XREF 5n1.1), 1112(XREF 5K), 1112(XREF 5n2.4), 1112(XREF 5n59.2) , 1112(XREF 6S), 1112(XREF 6n1.1), 1112(XREF 6K), 1112(XREF 6n2.4), 1112(XREF 6n59.2), 1112(XREF 7S), 1112(XREF 7n1.1), 1112(XREF 7K), 1112(XREF 7n2.1), 1112(XREF 7n59.2) , 1112(XREF 8S), 1112(XREF 8n1.1), 1112(XREF 8K), 1112(XREF 8n2.4), 1112(XREF 8n59.2), 1112(XREF 9S), 1112(XREF 9n1.1), 1112(XREF 9K), 1112(XREF 9n2.1), 1112(XREF 10S) , 1112(XREF 10n1.1), 1112(XREF 10K), 1112(XREF 10n2.1), 1112(XREF 11S), 1112(XREF 11K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1n1.4) , .02(XREF 1K), .02(XREF 1n2.1), .02(XREF 1n2.4), .029+1, .03+1!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4) , .03(XREF 2K), .03(XREF 2n2.1), .03(XREF 2n2.4), .04+1, .04(XREF 1S), .04(XREF 1n1.1), .04(XREF 1n1.4), .04(XREF 1K), .04(XREF 1n2.1), .04(XREF 1n2.4) , .04(XREF 2S), .04(XREF 2n1.1), .04(XREF 2n1.4), .04(XREF 2K), .04(XREF 2n2.1), .04(XREF 2n2.4), .04(XREF 3S), .04(XREF 3n1.1), .04(XREF 3n1.4), .04(XREF 3K) , .04(XREF 3n2.1), .04(XREF 3n2.4), .04(XREF 4S), .04(XREF 4n1.1), .04(XREF 4n1.4), .04(XREF 4K), .04(XREF 4n2.1), .04(XREF 4n2.4), .04(XREF 5S), .04(XREF 5n1.1) , .04(XREF 5n1.4), .04(XREF 5K), .04(XREF 5n2.1), .04(XREF 5n2.4), .04(XREF 5n49.3), .04(XREF 5n59.3), .04(XREF 6S), .04(XREF 6K), .04(XREF 7S), .04(XREF 7n1.1) , .04(XREF 7n1.4), .04(XREF 7K), .04(XREF 7n2.1), .04(XREF 7n2.4), .04(XREF 8S), .04(XREF 8n1.1), .04(XREF 8n1.4), .04(XREF 8K), .04(XREF 8n2.1), .04(XREF 8n2.4) , .04(XREF 9S), .04(XREF 9n1.1), .04(XREF 9n1.4), .04(XREF 9K), .04(XREF 9n2.1), .04(XREF 9n2.4), .04(XREF 9n49.2), .04(XREF 10S), .04(XREF 10n1.4), .04(XREF 10K) , .04(XREF 10n2.4), .04(XREF 11S), .04(XREF 11K), .11+1!, .12+1!, .13+1!, .15(XREF 1S), .15(XREF 1K), .17+1!, .17(XREF 1S) , .17(XREF 1K), .19+1!, .21+1!, .21(XREF 1S), .21(XREF 1K), .22+1!, .22(XREF 1S), .22(XREF 1K), .23+1!, .24+1! , .25+1!, .25(XREF 1S), .25(XREF 1K), .27+1!, 1102+1!, 1104+1!, 1105+1!, 1107+1!, 1108+1!, 1111+1! , 1112(XREF 1S), 1112(XREF 1n1.1), 1112(XREF 1K), 1112(XREF 1n2.1), 1112(XREF 2S), 1112(XREF 2n1.1), 1112(XREF 2K), 1112(XREF 2n2.1), 1112(XREF 3S), 1112(XREF 3n1.1) , 1112(XREF 3K), 1112(XREF 3n2.1), 1112(XREF 4S), 1112(XREF 4n1.1), 1112(XREF 4K), 1112(XREF 4n2.1), 1112(XREF 5S), 1112(XREF 5n1.1), 1112(XREF 5K), 1112(XREF 5n2.4) , 1112(XREF 5n59.2), 1112(XREF 6S), 1112(XREF 6n1.1), 1112(XREF 6K), 1112(XREF 6n2.4), 1112(XREF 6n59.2), 1112(XREF 7S), 1112(XREF 7n1.1), 1112(XREF 7K), 1112(XREF 7n2.1) , 1112(XREF 7n49.2), 1112(XREF 8S), 1112(XREF 8n1.1), 1112(XREF 8K), 1112(XREF 8n2.4), 1112(XREF 8n59.2), 1112(XREF 9S), 1112(XREF 9n1.1), 1112(XREF 9K), 1112(XREF 9n2.1) , 1112(XREF 10S), 1112(XREF 10n1.1), 1112(XREF 10K), 1112(XREF 10n2.1), 1112(XREF 11S), 1112(XREF 11K), 1112(XREF 12S), 1112(XREF 12K), 1113+1!, 1210+1! , 1211+1!, 1212+1!, 1301+1!, 1302+1!, 1303+1!, 1304+1!, 1305+1!, 1306+1!, 1307+1!, 1308+1! , 1309+1!, 1310+1!, 1401+1!, 1402+1!, 1502+1!, 2101+1!, 2102+1!, 8601+1!, 8602+1!, 8701+1! , 8902+1!, 9999+1
Y	.01+1, .02(XREF 1S), .02(XREF 1K), .03+1, .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K) , .04(XREF 3S), .04(XREF 3K), .04(XREF 4S), .04(XREF 4K), .04(XREF 5S), .04(XREF 5n1.1), .04(XREF 5K), .04(XREF 5n2.1), .04(XREF 7S), .04(XREF 7K) , .04(XREF 8S), .04(XREF 8K), .04(XREF 9S), .04(XREF 9K), .04(XREF 10S), .04(XREF 10K), .13+1, .17+1, .19+1, .22+1 , 1102+1, 1105+1, 1112(XREF 1S), 1112(XREF 1K), 1112(XREF 2S), 1112(XREF 2K), 1112(XREF 3S), 1112(XREF 3K), 1112(XREF 4S), 1112(XREF 4K) , 1112(XREF 5S), 1112(XREF 5K), 1112(XREF 6S), 1112(XREF 6K), 1112(XREF 7S), 1112(XREF 7K), 1112(XREF 8S), 1112(XREF 8K), 1112(XREF 9S), 1112(XREF 9K) , 1112(XREF 10S), 1112(XREF 10K), 1301+1, 1303+1, 1305+1, 1307+1
Y(1	.02(XREF 1S), .02(XREF 1K), .02(XREF 1n59.2), .03(XREF 2S), .03(XREF 2K), .03(XREF 2n59.2), .04(XREF 1S), .04(XREF 1K), .04(XREF 1n59.2), .04(XREF 2S) , .04(XREF 2K), .04(XREF 2n59.2), .04(XREF 3S), .04(XREF 3K), .04(XREF 3n59.2), .04(XREF 4S), .04(XREF 4K), .04(XREF 4n59.2), .04(XREF 5S), .04(XREF 5K) , .04(XREF 5n59.2), .04(XREF 7S), .04(XREF 7K), .04(XREF 7n59.2), .04(XREF 8S), .04(XREF 8K), .04(XREF 8n59.2), .04(XREF 9S), .04(XREF 9K), .04(XREF 9n59.2) , .04(XREF 10S), .04(XREF 10K), 1112(XREF 1S), 1112(XREF 1K), 1112(XREF 1n2.1), 1112(XREF 2S), 1112(XREF 2K), 1112(XREF 2n2.1), 1112(XREF 3S), 1112(XREF 3K) , 1112(XREF 3n59.2), 1112(XREF 4S), 1112(XREF 4K), 1112(XREF 4n2.1), 1112(XREF 5S), 1112(XREF 5K), 1112(XREF 5n59.2), 1112(XREF 6S), 1112(XREF 6K), 1112(XREF 6n59.2) , 1112(XREF 7S), 1112(XREF 7K), 1112(XREF 7n59.2), 1112(XREF 8S), 1112(XREF 8K), 1112(XREF 8n59.2), 1112(XREF 9S), 1112(XREF 9K), 1112(XREF 9n2.1), 1112(XREF 10S) , 1112(XREF 10K), 1112(XREF 10n2.1)
Y(101	.02(XREF 1n1.1), .02(XREF 1n2.1), .02(XREF 1n59.2), .03(XREF 2n1.1), .03(XREF 2n2.1), .03(XREF 2n59.2), .04(XREF 1n1.1), .04(XREF 1n2.1), .04(XREF 1n49.2), .04(XREF 1n59.2) , .04(XREF 2n1.1), .04(XREF 2n2.1), .04(XREF 2n49.2), .04(XREF 2n59.2), .04(XREF 3n1.1), .04(XREF 3n2.1), .04(XREF 3n49.2), .04(XREF 3n59.2), .04(XREF 4n1.1), .04(XREF 4n2.1) , .04(XREF 4n49.2), .04(XREF 4n59.2), .04(XREF 5n49.2), .04(XREF 5n49.3), .04(XREF 5n59.2), .04(XREF 5n59.3), .04(XREF 7n1.1), .04(XREF 7n2.1), .04(XREF 7n59.2), .04(XREF 8n1.1) , .04(XREF 8n2.1), .04(XREF 8n59.2), .04(XREF 9n2.1), .04(XREF 9n49.2), .04(XREF 9n59.2), 1112(XREF 1n1.1), 1112(XREF 1n2.1), 1112(XREF 2n1.1), 1112(XREF 2n2.1), 1112(XREF 3n1.1) , 1112(XREF 3n2.1), 1112(XREF 3n49.2), 1112(XREF 4n1.1), 1112(XREF 4n2.1), 1112(XREF 5n1.1), 1112(XREF 5n59.2), 1112(XREF 6n1.1), 1112(XREF 6n59.2), 1112(XREF 7n1.1), 1112(XREF 7n2.1) , 1112(XREF 7n49.2), 1112(XREF 7n59.2), 1112(XREF 8n1.1), 1112(XREF 8n59.2), 1112(XREF 9n1.1), 1112(XREF 9n2.1), 1112(XREF 10n1.1), 1112(XREF 10n2.1)
Y(102	1112(XREF 3n1.1), 1112(XREF 3n2.1), 1112(XREF 3n49.2), 1112(XREF 3n59.2), 1112(XREF 5n1.1), 1112(XREF 5K), 1112(XREF 5n59.2), 1112(XREF 6n1.1), 1112(XREF 6K), 1112(XREF 6n59.2) , 1112(XREF 7n2.1), 1112(XREF 7n49.2), 1112(XREF 8n1.1), 1112(XREF 8K), 1112(XREF 8n59.2)
Y(103	.04(XREF 1n1.1), .04(XREF 1n49.2)
Y(201	.04(XREF 2n1.1), .04(XREF 2n2.1), .04(XREF 3n1.1), .04(XREF 3n2.1), .04(XREF 4n1.1), .04(XREF 4n2.1), .04(XREF 5n1.1), .04(XREF 5n2.1), .04(XREF 5n49.3), .04(XREF 5n59.3) , 1112(XREF 7n1.1), 1112(XREF 7n2.1)
Y(202	.04(XREF 5n49.3), .04(XREF 5n59.3)
Y(90002	.029+1, .029OF9.2+1

Customize PDF page

Package: IHS RPMS CHR System

Global: ^BCHR

Information

Description

Directly Accessed By Routines, Total: 62

Accessed By FileMan Db Calls, Total: 18

Pointed To By FileMan Files, Total: 5

Pointer To FileMan Files, Total: 15

Fields, Total: 81

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: