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 |  All
Print Page as PDF
Global: ^AMHREC

Package: Mental Health Social Services

Global: ^AMHREC


Information

FileMan FileNo FileMan Filename Package
9002011 MHSS RECORD Mental Health Social Services

Description

Directly Accessed By Routines, Total: 291

Package Total Routines
Mental Health Social Services 160 AMH30P3    AMH30P4    AMH30P8    AMH40ENV    AMHAPRB    AMHBHDEL    AMHBHRP5    AMHBHRP8
AMHBHRP9    AMHBHRU    AMHBHSC    AMHBL    AMHBPL    AMHBPL1    AMHBS    AMHCDBL
AMHDPEE    AMHEGR    AMHEGR1    AMHEGRCP    AMHEGRPV    AMHEGS    AMHEHR    AMHEHR1
AMHESIG    AMHEXC1    AMHEXCP    AMHEXD    AMHEXD2    AMHEXRE    AMHEYC1    AMHEYCP
AMHEYD    AMHEYD2    AMHEYRE    AMHEYREX    AMHFC1    AMHGAFS    AMHGBDSP    AMHGD
AMHGDA    AMHGDAD    AMHGDCOM    AMHGDVF    AMHGDVF2    AMHGEVF    AMHGOM    AMHGPCC
AMHGPCCL    AMHGRU    AMHGSGP    AMHGU    AMHGVDEL    AMHHS    AMHLE2    AMHLEA
AMHLEA1    AMHLEA2    AMHLEDEL    AMHLEDV    AMHLEDV1    AMHLEE    AMHLEER    AMHLEFP
AMHLEFP1    AMHLEFP2    AMHLEFP3    AMHLEFP4    AMHLEFPP    AMHLEGP1    AMHLEI    AMHLEIC
AMHLEIV    AMHLEL    AMHLENS    AMHLENS1    AMHLEP1    AMHLEP2    AMHLEP3    AMHLEP4
AMHLEPOV    AMHLESA2    AMHLESAN    AMHLESEA    AMHLESED    AMHLESEP    AMHLESEX    AMHLESHF
AMHLESM    AMHLETM    AMHLRDSP    AMHNAVR    AMHNAVRP    AMHPCCL    AMHPCCL1    AMHPHQM
AMHPHQO    AMHPOST    AMHPST    AMHRAS1    AMHRAS2    AMHRAS31    AMHRAS5    AMHRBV1
AMHRBV2    AMHRC1    AMHRC3    AMHRC4    AMHRDE1    AMHRDE2    AMHRDE31    AMHRDE5
AMHRDSP    AMHRDV1    AMHRDV2    AMHRDV31    AMHRDV4    AMHRDV5    AMHRE1    AMHRE2
AMHRGADM    AMHRGADO    AMHRL1    AMHRLKUP    AMHRLP    AMHRLU2    AMHRNOAT    AMHRNS
AMHRNSIG    AMHRNSM    AMHRP1    AMHRP21    AMHRP31    AMHRP4P    AMHRP8P    AMHRP9P
AMHRPPA    AMHRPPD    AMHRPS1    AMHRPSI    AMHRPT4    AMHRPTP    AMHRPTST    AMHRSB1
AMHRSR1    AMHRSR2    AMHRSR31    AMHRSR4    AMHRSR5    AMHRSU5    AMHUTIL    AMHUTIL1
AMHUTIL2    AMHUTIL3    AMHVD    AMHVD1    AMHVDL    AMHVDSG    AMHVDSG1    AMHVRL
IHS GPRA Information System 61 BGP0D24    BGP0D25    BGP0D26    BGP0D5    BGP0D51    BGP0D55    BGP1D24    BGP1D25
BGP1D26    BGP1D5    BGP1D51    BGP1D55    BGP2D24    BGP2D25    BGP2D26    BGP2D5
BGP2D51    BGP2D55    BGP3D24    BGP3D25    BGP3D26    BGP3D5    BGP3D51    BGP3D55
BGP4D24    BGP4D25    BGP4D26    BGP4D5    BGP4D51    BGP4D55    BGP5D24    BGP5D25
BGP5D26    BGP5D27    BGP5D5    BGP5D51    BGP5D55    BGP6D25    BGP6D26    BGP6D27
BGP6D5    BGP6D51    BGP6D55    BGP7D25    BGP7D26    BGP7D27    BGP7D5    BGP7D51
BGP7D55    BGP8D25    BGP8D27    BGP8D5    BGP8D51    BGP8D55    BGP8PC11    BGP8PC12
BGP8PC13    BGP9D24    BGP9D25    BGP9D5    BGP9D51    
Patient Care Component Reports 20 APCLAL1    APCLAL1A    APCLAL2    APCLAL31    APCLAL5    APCLAPI    APCLAPIU    APCLD512
APCLD612    APCLD712    APCLD812    APCLDE1    APCLDE2    APCLDE31    APCLDE5    APCLDV1
APCLDV2    APCLDV31    APCLDV4    APCLDV5    
Diabetes Registry 17 BDMAPIU    BDMD012    BDMD112    BDMD412    BDMD512    BDMD612    BDMD712    BDMD812
BDMD912    BDMDA12    BDMDB12    BDMDC12    BDMDD12    BDMDE12    BDMDF12    BDMDG12
BDMS9B1    
IHS Uniform Data System 8 BUDBRP6Q    BUDCRP6Q    BUDDRP6M    BUDDRP6Q    BUDERP6M    BUDERP6Q    BUDHRP6M    BUDHRP6Q
Patient Chart 8 BPCBHADM    BPCBHDEL    BPCBHDSP    BPCBHRP5    BPCBHRP8    BPCBHRP9    BPCBHRU    BPCBHSC
Patient Care Component 6 APCDCAF    APCDCAF2    APCHS9B1    APCHSM02    APCHSM03    APCHSM05    
Health Summary Components 2 BHSBH    BHSDM1    
iCare 2 BQICAEXP    BQICAVAL    
IHS HIV Management System 1 BKMIXX2    
IHS Patient 1 AUPNVSIT    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 60

Package Total Routines
Mental Health Social Services 58 AMH30P1    AMH30P10    AMH40ENV    AMHAPRB    AMHBHDEL    AMHBHRU    AMHCDBL    AMHCDBL1
AMHCDBL2    AMHDLOG    AMHEGR    AMHEGR1    AMHEGS    AMHEHR    AMHEHR1    AMHESIG
AMHEXCP    AMHEXD    AMHEXRE    AMHEYCP    AMHEYD    AMHEYRE    AMHEYREX    AMHGD
AMHGDA    AMHGDAD    AMHGDCOM    AMHGDVF    AMHGDVF1    AMHGDVF2    AMHGESIG    AMHGPCC
AMHGPCCL    AMHGU    AMHGUA    AMHGVDEL    AMHLE2    AMHLEA    AMHLEA1    AMHLEA2
AMHLEAR1    AMHLEDEL    AMHLEDV    AMHLEE    AMHLEER    AMHLEGP1    AMHLEIC    AMHLENS
AMHLENS1    AMHLEP1    AMHLEP2    AMHLEPOV    AMHLESAN    AMHLRDEL    AMHPCCL    AMHRBV1
AMHRDSP    AMHUTIL1    
Patient Chart 2 BPCBHDEL    BPCBHRU    

Pointed To By FileMan Files, Total: 13

Package Total FileMan Files
Mental Health Social Services 13 MHSS GROUP(#9002011.67)[#9002011.6761(.01)]    BH CD STAGING TOOL(#9002011.06)[.01]    MHSS RECORD PATIENT EDUCATION(#9002011.05)[.03]    MHSS RECORD HEALTH FACTORS(#9002011.08)[.03]    MHSS RECORD MEASUREMENTS(#9002011.12)[.03]    MHSS RECORD NAVAJO REFERRAL FORM(#9002011.11)[.03]    MHSS RECORD PREVENTION ACTIVITES(#9002011.09)[.03]    MHSS RECORD PROBLEMS (POVS)(#9002011.01)[.03]    MHSS RECORD PROCEDURES (CPT)(#9002011.04)[.03]    MHSS RECORD PROVIDERS(#9002011.02)[.03]    MHSS RECORD UPDATED/REVIEWED(#9002011.14)[.03]    MHSS RECORD TREATED MEDICAL PROBS(#9002011.03)[.03]    MHSS EXTRACT LOG(#9002014)[#9002014.05101(.01), #9002014.2101(.01)]    

Pointer To FileMan Files, Total: 15

Package Total FileMan Files
Mental Health Social Services 6 MHSS LOCAL SERVICE SITES(#9002013.9)[.31]    MHSS ACTIVITY CODES(#9002012)[.06]    MHSS AXIS IV CODES(#9002012.9)[.13, 8801, #9002011.06101(.01)]
MHSS CDMIS COMPONENT(#9002013.7)[1101]    MHSS PLACEMENT TYPES(#9002013.6)[.17]    MHSS TYPE OF CONTACT(#9002012.1)[.07]    
IHS Patient 2 PATIENT(#9000001)[.08]    VISIT(#9000010)[.16]    
Scheduling 2 CLINIC STOP(#40.7)[.25]    HOSPITAL LOCATION(#44)[1117]    
Utility Tables 2 COMMUNITY(#9999999.05)[.05]    LOCATION(#9999999.06)[.04]    
CPT Files 1 CPT(#81)[.29]    
Kernel 1 NEW PERSON(#200)[.19, .28, 1402, 1404, 1406, 1408, 1802, 1804, 1806, #9002011.052(.01), #9002011.5101(.02), #9002011.97(.02)]    
Text Integration Utility 1 TIU DOCUMENT(#8925)[1108, #9002011.054(.01)]    

Fields, Total: 122

Field # Name Loc Type Details
.01 DATE OF SERVICE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:DT_".9999"X) X
  • LAST EDITED:  JAN 27, 2009
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1900 AND TODAY
  • CROSS-REFERENCE:  9002011^B
    1)= S ^AMHREC("B",$E(X,1,30),DA)=""
    2)= K ^AMHREC("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011^AA2^MUMPS
    1)= I $P(^AMHREC(DA,0),U,4)]"" S ^AMHREC("AA",$P(X,"."),$P(^AMHREC(DA,0),U,4),DA)=""
    2)= I $P(^AMHREC(DA,0),U,4)]"" K ^AMHREC("AA",$P(X,"."),$P(^AMHREC(DA,0),U,4),DA)
  • CROSS-REFERENCE:  9002011^AE^MUMPS
    1)= I $P(^AMHREC(DA,0),U,8)]"" S ^AMHREC("AE",$P(^AMHREC(DA,0),U,8),((9999999-$P(X,"."))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)=""
    2)= I $P(^AMHREC(DA,0),U,8)]"" K ^AMHREC("AE",$P(^AMHREC(DA,0),U,8),((9999999-$P(X,"."))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)
  • CROSS-REFERENCE:  9002011^AZ1^MUMPS
    1)= S:$D(AMHLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9002011^AF2^MUMPS
    1)= I $P(^AMHREC(DA,0),U,8) S ^AMHREC("AF",$P(^AMHREC(DA,0),U,8),$P(X,"."),DA)=""
    2)= I $P(^AMHREC(DA,0),U,8) K ^AMHREC("AF",$P(^AMHREC(DA,0),U,8),$P(X,"."),DA)
  • CROSS-REFERENCE:  9002011^AB^MUMPS
    1)= S ^AMHREC("AB",(9999999-X),DA)=""
    2)= K ^AMHREC("AB",(9999999-X),DA)
.02 PROGRAM 0;2 SET
************************REQUIRED FIELD************************
  • 'M' FOR MENTAL HEALTH;
  • 'S' FOR SOCIAL SERVICES;
  • 'O' FOR OTHER;
  • 'C' FOR CHEMICAL DEPENDENCY;

  • LAST EDITED:  MAY 29, 2000
.03 POSTING DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 05, 1994
  • CROSS-REFERENCE:  9002011^AD
    1)= S ^AMHREC("AD",$E(X,1,30),DA)=""
    2)= K ^AMHREC("AD",$E(X,1,30),DA)
.04 LOCATION OF ENCOUNTER 0;4 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,21)="""",$$ALLOWV^AMHUTIL(DUZ,Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 22, 2009
  • SCREEN:  S DIC("S")="I $P(^(0),U,21)="""",$$ALLOWV^AMHUTIL(DUZ,Y)"
  • EXPLANATION:  Must be an active location and user must have access to the location
  • CROSS-REFERENCE:  9002011^AA^MUMPS
    1)= I $P(^AMHREC(DA,0),U)]"" S ^AMHREC("AA",$P(+^AMHREC(DA,0),"."),X,DA)=""
    2)= I $P(^AMHREC(DA,0),U)]"" K ^AMHREC("AA",$P(+^AMHREC(DA,0),"."),X,DA)
    This cross reference is used to determine and list all visits to one location on any date.
    "AA", FM DATE, LOCATION IEN, DA
.05 COMMUNITY OF SERVICE 0;5 POINTER TO COMMUNITY FILE (#9999999.05)
************************REQUIRED FIELD************************
COMMUNITY(#9999999.05)

  • LAST EDITED:  JUL 05, 1994
.06 ACTIVITY TYPE 0;6 POINTER TO MHSS ACTIVITY CODES FILE (#9002012)
************************REQUIRED FIELD************************
MHSS ACTIVITY CODES(#9002012)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,9)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 09, 2004
  • SCREEN:  S DIC("S")="I '$P(^(0),U,9)"
  • EXPLANATION:  Active codes only.
  • EXECUTABLE HELP:  D LISTAT^AMHUTIL
.069 ACTIVITY TYPE NAME COMPUTED

  • MUMPS CODE:  X ^DD(9002011,.069,9.2) S Y(9002011,.069,101)=$S($D(^AMHTACT(D0,0)):^(0),1:"") S X=$P(Y(9002011,.069,101),U,2) S D0=Y(9002011,.069,80)
    9.2 = S Y(9002011,.069,80)=$G(D0),Y(9002011,.069,1)=$S($D(^AMHREC(D0,0)):^(0),1:""),D0=$P(Y(9002011,.069,1),U,6) S:'D0!'$D(^AMHTACT(+D0,0)) D0=-1
  • ALGORITHM:  #.06:#.02
.07 TYPE OF CONTACT 0;7 POINTER TO MHSS TYPE OF CONTACT FILE (#9002012.1)
************************REQUIRED FIELD************************
MHSS TYPE OF CONTACT(#9002012.1)

  • LAST EDITED:  JUN 30, 1993
.08 PATIENT 0;8 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • INPUT TRANSFORM:  I $D(X) D ^AMHPEDIT
  • LAST EDITED:  NOV 16, 2009
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002011^C
    1)= S ^AMHREC("C",$E(X,1,30),DA)=""
    2)= K ^AMHREC("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011^AE2^MUMPS
    1)= S ^AMHREC("AE",X,((9999999-$P(+^AMHREC(DA,0),"."))_$S($P(+^AMHREC(DA,0),".",2)'="":"."_$P(+^AMHREC(DA,0),".",2),1:"")),DA)=""
    2)= K ^AMHREC("AE",X,((9999999-$P(+^AMHREC(DA,0),"."))_$S($P(+^AMHREC(DA,0),".",2)'="":"."_$P(+^AMHREC(DA,0),".",2),1:"")),DA)
  • CROSS-REFERENCE:  9002011^AF^MUMPS
    1)= S ^AMHREC("AF",X,$P($P(^AMHREC(DA,0),U),"."),DA)=""
    2)= K ^AMHREC("AF",X,$P($P(^AMHREC(DA,0),U),"."),DA)
  • CROSS-REFERENCE:  9002011^AIN^MUMPS
    1)= I $P(^AMHREC(DA,0),U,32)]"" S ^AMHREC("AIN",X,$P(^AMHREC(DA,0),U,32),DA)=""
    2)= I $P(^AMHREC(DA,0),U,32)]"" K ^AMHREC("AIN",X,$P(^AMHREC(DA,0),U,32),DA)
.081 PT AGE COMPUTED

  • MUMPS CODE:  X ^DD(9002011,.081,9.4) S Y=X,X=Y(9002011,.081,2),X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X\365.25 S D0=Y(9002011,.081,80)
    9.2 = S Y(9002011,.081,80)=$S($D(D0):D0,1:""),Y(9002011,.081,1)=$S($D(^AMHREC(D0,0)):^(0),1:"") S X=$P(Y(9002011,.081,1),U,1),Y(9002011,.081,2)=X
    9.3 = X ^DD(9002011,.081,9.2) S D0=$P(Y(9002011,.081,1),U,8) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(9002011,.081,180)=$S($D(D0):D0,1:""),Y(9002011,.081,101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"")
    9.4 = X ^DD(9002011,.081,9.3) S D0=$P(Y(9002011,.081,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(9002011,.081,201)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(9002011,.081,201),U,3)
  • ALGORITHM:  #.01-(#.08:#.01:#.03)\365.25
.09 NUMBER SERVED 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 04, 2010
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
.11 APPT/WALK-IN 0;11 SET
  • 'A' FOR APPOINTMENT;
  • 'W' FOR WALK-IN;
  • 'U' FOR UNSPECIFIED;

  • LAST EDITED:  AUG 18, 1994
.12 ACTIVITY TIME 0;12 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 11, 1994
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
.13 *AXIS IV 0;13 POINTER TO MHSS AXIS IV CODES FILE (#9002012.9) MHSS AXIS IV CODES(#9002012.9)

  • LAST EDITED:  APR 10, 1997
.14 AXIS V 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 03, 1995
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
.15 INTERPRETER UTILIZED 0;15 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 28, 1994
.16 VISIT 0;16 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  FEB 21, 2003
  • CROSS-REFERENCE:  9002011^AVISIT
    1)= S ^AMHREC("AVISIT",$E(X,1,30),DA)=""
    2)= K ^AMHREC("AVISIT",$E(X,1,30),DA)
.17 PLACEMENT DISPOSITION 0;17 POINTER TO MHSS PLACEMENT TYPES FILE (#9002013.6) MHSS PLACEMENT TYPES(#9002013.6)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 30, 2009
  • SCREEN:  S DIC("S")="I '$P(^(0),U,2)"
  • EXPLANATION:  Must be an active disposition.
.18 REFERRED TO 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  OCT 27, 1993
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
.19 WHO ENTERED RECORD 0;19 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  FEB 06, 1995
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.21 DATE LAST MODIFIED 0;21 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 21, 2000
  • NOTES:  TRIGGERED by the DATE/TIME EDITED field of the LOG OF EDITING sub-field of the MHSS RECORD File
  • CROSS-REFERENCE:  9002011^AEX^MUMPS
    1)= I '$D(DIU(0)) S ^AMHREC("AEX",X,DA)=""
    2)= I '$D(DIU(0)) K ^AMHREC("AEX",X,DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002011^1114
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHREC(D0,11)):^(11),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=$$NOW^XLFDT() X ^DD(9002011,.21,1,2,1.4)
    1.4)= S DIH=$G(^AMHREC(DIV(0),11)),DIV=X S $P(^(11),U,14)=DIV,DIH=9002011,DIG=1114 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHREC(D0,11)):^(11),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=$$NOW^XLFDT() X ^DD(9002011,.21,1,2,2.4)
    2.4)= S DIH=$G(^AMHREC(DIV(0),11)),DIV=X S $P(^(11),U,14)=DIV,DIH=9002011,DIG=1114 D ^DICR
    CREATE VALUE)= I '$D(DIU(0)) S X=$$NOW^XLFDT()
    DELETE VALUE)= I '$D(DIU(0)) S X=$$NOW^XLFDT()
    FIELD)= #1114
  • CROSS-REFERENCE:  9002011^ALM
    1)= S ^AMHREC("ALM",$E(X,1,30),DA)=""
    2)= K ^AMHREC("ALM",$E(X,1,30),DA)
.22 EXTRACT FLAG 0;22 SET
  • 'A' FOR ADD;
  • 'M' FOR MODIFY;
  • 'D' FOR DELETE;

  • LAST EDITED:  SEP 21, 2000
.23 DELETE FLAG 0;23 SET
  • '1' FOR DELETED;
  • '0' FOR NOT DELETED;

  • LAST EDITED:  AUG 01, 1994
.24 DATE EXTRACTED 0;24 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 01, 1994
.25 CLINIC 0;25 POINTER TO CLINIC STOP FILE (#40.7)
************************REQUIRED FIELD************************
CLINIC STOP(#40.7)

  • LAST EDITED:  MAY 19, 2009
.26 OUTSIDE LOCATION 0;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 07, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
.27 FLAG (LOCAL USE) 0;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 13, 2002
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
.28 USER LAST UPDATE 0;28 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 05, 1996
  • NOTES:  TRIGGERED by the WHO EDITED field of the LOG OF EDITING sub-field of the MHSS RECORD File
.29 EVALUATION & MANAGEMENT CPT 0;29 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,4),$P(^(0),U)>99200&($P(^(0),U)<99500)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 10, 1996
  • SCREEN:  S DIC("S")="I '$P(^(0),U,4),$P(^(0),U)>99200&($P(^(0),U)<99500)"
  • EXPLANATION:  Must be an evaluation and management code 99200-99500. Must be an active code.
.31 LOCAL SERVICE SITE 0;31 POINTER TO MHSS LOCAL SERVICE SITES FILE (#9002013.9) MHSS LOCAL SERVICE SITES(#9002013.9)

  • LAST EDITED:  JAN 15, 1997
.32 A/SA TYPE OF CONTACT 0;32 SET
  • 'IN' FOR INITIAL;
  • 'RE' FOR REOPEN;
  • 'TD' FOR TRANS/DISC/CLOSE;
  • 'FU' FOR FOLLOW UP;
  • 'CS' FOR CLIENT SERVICE;
  • 'OT' FOR CRISIS BRIEF;
  • 'PR' FOR PREVENTION;
  • 'IR' FOR INFO/REFERRAL;

  • LAST EDITED:  AUG 25, 2003
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002011^AINTOO^MUMPS
    1)= I $P(^AMHREC(DA,0),U,8)]"" S ^AMHREC("AIN",$P(^AMHREC(DA,0),U,8),X,DA)=""
    2)= I $P(^AMHREC(DA,0),U,8)]"" K ^AMHREC("AIN",$P(^AMHREC(DA,0),U,8),X,DA)
.33 VISIT TYPE 0;33 SET
  • 'I' FOR INTAKE;
  • 'R' FOR REGULAR VISIT;
  • 'C' FOR INFO/CONTACT;
  • 'S' FOR SAN - NEW;
  • 'A' FOR A/SA ENCOUNTER;
  • 'N' FOR NO SHOW;
  • 'U' FOR SAN - F/U;
  • 'B' FOR BRIEF;

  • LAST EDITED:  DEC 21, 2003
.34 GROUP ENCOUNTER? 0;34 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 05, 2004
1101 A/SA CD COMPONENT 11;1 POINTER TO MHSS CDMIS COMPONENT FILE (#9002013.7) MHSS CDMIS COMPONENT(#9002013.7)

  • LAST EDITED:  DEC 02, 2002
1102 DAYS IN RESIDENTIAL TX 11;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 02, 2002
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
1103 DAYS IN AFTERCARE 11;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 02, 2002
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
1104 TIME SPENT IN GROUP 11;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 21, 2003
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
1105 A/SA CD COMPONENT TYPE 11;5 SET
  • 'A' FOR ADULT;
  • 'F' FOR FAMILY;
  • 'M' FOR MIXED (ADULT&YOUTH);
  • 'Y' FOR YOUTH;
  • 'S' FOR STAFF;
  • 'E' FOR ELDERLY ONLY;
  • 'W' FOR WOMEN ONLY;

  • LAST EDITED:  MAR 08, 2004
1106 TARGET PREVENTION ACTIVITY 11;6 SET
  • 'A' FOR ADULT;
  • 'Y' FOR YOUTH;
  • 'F' FOR FAMILY;
  • 'M' FOR MIXED (ADULT & YOUTH);
  • 'S' FOR STAFF;
  • 'E' FOR ELDERLY ONLY;
  • 'W' FOR WOMEN;
  • 'ME' FOR MEN;

  • LAST EDITED:  JAN 29, 2016
1107 *OLD ESIG FIELD 11;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 23, 2008
1108 TIU DOCUMENT 11;8 POINTER TO TIU DOCUMENT FILE (#8925) TIU DOCUMENT(#8925)

  • LAST EDITED:  AUG 09, 2005
1109 GROUP NAME 11;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 06, 2006
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
1110 EHR CREATED? 11;10 SET
  • '1' FOR YES;

  • LAST EDITED:  JUN 26, 2007
1111 CREATED BY BH? 11;11 SET
  • '1' FOR YES;

  • LAST EDITED:  JUL 17, 2007
1112 DATE/TIME NOTE SIGNED 11;12 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 04, 2009
1113 SIGNATURE BLOCK 11;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  AUG 26, 2009
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
1114 DATE/TIME LAST MODIFIED 11;14 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 04, 2008
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DATE LAST MODIFIED field of the MHSS RECORD File
1115 GAF SCALE TYPE 11;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  SEP 14, 2010
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
1116 SIGNATURE BLOCK TITLE 11;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  DEC 15, 2010
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
1117 HOSPITAL LOCATION 11;17 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  JUN 22, 2017
1200 *COMMENT/NEXT APPT 12;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<2) X
  • LAST EDITED:  SEP 04, 2002
  • HELP-PROMPT:  Answer must be 2-200 characters in length.
1401 IPV/DV SCREENING 14;1 SET
  • 'N' FOR NEGATIVE;
  • 'PR' FOR PRESENT;
  • 'PAP' FOR PRESENT AND PAST;
  • 'PA' FOR PAST;
  • 'REF' FOR PATIENT REFUSED SCREENING;
  • 'UAS' FOR UNABLE TO SCREEN;
  • 'RF' FOR REFERRAL NEEDED;

  • LAST EDITED:  JAN 29, 2016
1402 PROVIDER WHO SCREENED 14;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 19, 2004
1403 ALCOHOL SCREENING 14;3 SET
  • 'N' FOR NEGATIVE;
  • 'P' FOR POSITIVE;
  • 'UAS' FOR UNABLE TO SCREEN;
  • 'REF' FOR PATIENT REFUSED SCREENING;
  • 'RF' FOR REFERRAL NEEDED;

  • LAST EDITED:  JAN 29, 2016
1404 ALCOHOL SCREENING PROVIDER 14;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 09, 2005
1405 DEPRESSION SCREENING 14;5 SET
  • 'N' FOR NEGATIVE;
  • 'P' FOR POSITIVE;
  • 'UAS' FOR UNABLE TO SCREEN;
  • 'REF' FOR PATIENT REFUSED SCREENING;
  • 'RF' FOR REFERRAL NEEDED;

  • LAST EDITED:  JAN 29, 2016
1406 DEPRESSION SCREENING PROVIDER 14;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 09, 2005
1407 SUICIDE RISK ASSESSMENT 14;7 SET
  • 'L' FOR LOW;
  • 'M' FOR MODERATE;
  • 'H' FOR HIGH;
  • 'RF' FOR REFERRAL NEEDED;
  • 'REF' FOR PATIENT REFUSED SCREENING;
  • 'UAS' FOR UNABLE TO SCREEN;

  • LAST EDITED:  FEB 03, 2016
1408 SUICIDE RISK ASSESS PROVIDER 14;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 03, 2016
1501 IPV/DV COMMENT 15;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<2) X
  • LAST EDITED:  APR 19, 2004
  • HELP-PROMPT:  Answer must be 2-245 characters in length.
1601 ALCOHOL SCREENING COMMENT 16;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<2) X
  • LAST EDITED:  NOV 09, 2005
  • HELP-PROMPT:  Answer must be 2-245 characters in length.
1701 DEPRESSION SCREENING COMMENT 17;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<2) X
  • LAST EDITED:  NOV 09, 2005
  • HELP-PROMPT:  Answer must be 2-245 characters in length.
1801 PCC PLU DATE/TIME 18;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 08, 2011
1802 PCC PLU PROVIDER 18;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 08, 2011
1803 PCC PLR DATE/TIEM 18;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 08, 2011
1804 PCC PLR PROVIDER 18;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 08, 2011
1805 PCC NAP DATE/TIME 18;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 08, 2011
1806 PCC NAP PROVIDER 18;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 08, 2011
1901 SUICIDE RISK COMMENT 19;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<2) X
  • LAST EDITED:  FEB 03, 2016
  • HELP-PROMPT:  Answer must be 2-245 characters in length.
2101 CHIEF COMPLAINT 21;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<2) X
  • LAST EDITED:  OCT 19, 1994
  • HELP-PROMPT:  Answer must be 2-80 characters in length.
3101 SOAP/PROGRESS NOTE 31;0 WORD-PROCESSING #9002011.03101

  • LAST EDITED:  AUG 28, 2003
4101 MEDICATIONS PRESCRIBED 41;0 WORD-PROCESSING #9002011.04101
5100 LOG OF EDITING 51;0 DATE Multiple #9002011.5101 9002011.5101

  • LAST EDITED:  JAN 06, 1997
5200 NOTE FORWARDED TO 52;0 POINTER Multiple #9002011.052 9002011.052
5301 AXIS III 53;0 WORD-PROCESSING #9002011.5301
5400 TIU DOCUMENTS 54;0 POINTER Multiple #9002011.054 9002011.054
6101 AXIS IV 61;0 POINTER Multiple #9002011.06101 9002011.06101
7701 PARENTS 77;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 06, 2001
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
7702 GUARDIANS 77;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  FEB 06, 2001
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
7703 LIVES WITH 771;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  APR 05, 2001
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
7704 SPOUSE/PARTNER INFO 771;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  APR 05, 2001
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
7705 *NOK/RELATION 7705;0 WORD-PROCESSING #9002011.07705

  • LAST EDITED:  SEP 04, 2002
7706 PERSON REFERRING INFO 772;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  APR 05, 2001
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
7707 RELATION TO VICTIM 772;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  APR 05, 2001
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
7708 *SUSPECTED PREPETRATOR 7708;0 WORD-PROCESSING #9002011.07708

  • LAST EDITED:  SEP 04, 2002
7709 HISTORY 7709;0 WORD-PROCESSING #9002011.07709
7711 PROBLEMS IDENTIFIED 7711;0 WORD-PROCESSING #9002011.07711
7712 STRENGTHS IDENTIFIED 7712;0 WORD-PROCESSING #9002011.07712
7713 RISK FOR RECURRENCE 77;13 SET
  • 'N' FOR NONE;
  • 'L' FOR LOW;
  • 'M' FOR MEDIUM;
  • 'H' FOR HIGH;

  • LAST EDITED:  APR 19, 2004
7714 *RISK ASSESSMENT REASONS 7714;0 WORD-PROCESSING #9002011.07714

  • LAST EDITED:  SEP 04, 2002
7715 SERVICES PROVIDED/TREAT PLAN 7715;0 WORD-PROCESSING #9002011.07715
7716 *PRIOR INCIDENTS NOTED 77;16 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 04, 2002
7717 PRIOR INCIDENTS NOTED 7717;0 WORD-PROCESSING #9002011.07717

  • LAST EDITED:  FEB 06, 2001
7718 *EXAMINING PHYSICIAN 7718;0 WORD-PROCESSING #9002011.07718

  • LAST EDITED:  SEP 04, 2002
7719 DATE OF EXAMINATION 77;19 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 28, 2001
7721 POLICE CONTACTED 77;21 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 28, 2001
7722 DATE/TIME COMPLAINT FILED 77;22 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 05, 2001
7723 *REFERRAL MADE TO 7723;0 WORD-PROCESSING #9002011.07723

  • LAST EDITED:  SEP 04, 2002
7724 OTHER COMMENTS 7724;0 WORD-PROCESSING #9002011.07724
7801 REASONS FOR REVIEW 7801;0 WORD-PROCESSING #9002011.07801
7802 OUTCOME 78;2 SET
  • 'S' FOR SUBSTANTIATED;
  • 'U' FOR UNSUBSTANTIATED;
  • 'N' FOR NOT MEDICALLY INDICATED;

  • LAST EDITED:  APR 05, 2001
7803 REASONS FOR OUTCOME 7803;0 WORD-PROCESSING #9002011.07803
7804 PROBLEMS IDENTIFIED 7804;0 WORD-PROCESSING #9002011.07804
7805 STRENGTHS IDENTIFIED 7805;0 WORD-PROCESSING #9002011.07805
7806 RISK 78;6 SET
  • 'N' FOR NONE;
  • 'L' FOR LOW;
  • 'M' FOR MEDIUM;
  • 'H' FOR HIGH;

  • LAST EDITED:  APR 05, 2001
7807 *REASONS FOR RISK ASSESSMENT 7807;0 WORD-PROCESSING #9002011.07807

  • LAST EDITED:  SEP 04, 2002
7808 SERVICES PROVIDED 7808;0 WORD-PROCESSING #9002011.07808
7809 RECOMMENDATIONS/COMMENTS 7809;0 WORD-PROCESSING #9002011.07809

  • LAST EDITED:  APR 19, 2004
7811 CONTINUE CASE WITH DDS 78;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 28, 2001
7812 CONTINUE CASE WITH SCAN 78;12 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 28, 2001
7813 OTHER COMMENTS 7813;0 WORD-PROCESSING #9002011.07813
7901 SUSPECTED PERPETRATOR INFO 79;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  APR 05, 2001
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
7902 EXAMINING PHYSICIAN 79;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 05, 2001
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
7903 COMPLAINT NUMBER 79;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  FEB 06, 2001
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
7904 OFFICER 79;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 05, 2001
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
7905 REFERRAL MADE TO 79;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  APR 05, 2001
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
8101 COMMENT/NEXT APPOINTMENT 81;0 WORD-PROCESSING #9002011.08101
8801 LOOKUP AXIS IV 88;1 POINTER TO MHSS AXIS IV CODES FILE (#9002012.9) MHSS AXIS IV CODES(#9002012.9)

  • LAST EDITED:  APR 11, 1997
9101 STAGING TOOL 91;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 15, 2001
9701 ALERT SENT? 97;0 DATE Multiple #9002011.97 9002011.97
9800 NOTE APPENDED TO MAIL MSG 98;0 WORD-PROCESSING #9002011.98
9999 LOOKUP COMPUTED

  • MUMPS CODE:  S X=$S($D(AMHLOOK):$S(AMHLOOK=+AMHLOOK:"`"_AMHLOOK,1:AMHLOOK),1:"")
  • ALGORITHM:  S X=$S($D(AMHLOOK):$S(AMHLOOK=+AMHLOOK:"`"_AMHLOOK,1:AMHLOOK),1:"")
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All