Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^BCHR

Package: IHS RPMS CHR System

Global: ^BCHR


Information

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

Description

Directly Accessed By Routines, Total: 62

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    

Accessed By FileMan Db Calls, Total: 18

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    

Pointed To By FileMan Files, Total: 5

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)]    

Pointer To FileMan Files, Total: 15

Package Total FileMan Files
IHS RPMS CHR System 7 CHR NON REGISTERED PATIENTS(#90002.11)[11128901]    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)[.051109]    TRIBE(#9999999.03)[1105]    
IHS Patient 2 PATIENT(#9000001)[.048901]    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:"")

External References

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)

Global Variables Directly Accessed

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)

Naked Globals

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*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All