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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AMHSITE

Package: Mental Health Social Services

Global: ^AMHSITE


Information

FileMan FileNo FileMan Filename Package
9002013 MHSS SITE PARAMETERS Mental Health Social Services

Description

Directly Accessed By Routines, Total: 64

Package Total Routines
Mental Health Social Services 58 AMH30P7    AMH40ENV    AMH40P1    AMH40P3    AMH40P4    AMH40P6    AMHBHAPI    AMHBHDEL
AMHBHRU    AMHBHSC    AMHBL    AMHDPEE    AMHEGR    AMHEGR1    AMHEHR    AMHESIG
AMHEXDI    AMHEXTAP    AMHEYDI    AMHEYREX    AMHEYTAP    AMHGDA    AMHGESIG    AMHGPCC
AMHGPCCL    AMHGU    AMHGUA    AMHGVDEL    AMHLCD    AMHLE2    AMHLEFP    AMHLEFP2
AMHLEFPP    AMHLEGP    AMHLEGP1    AMHLEI2    AMHLEIN    AMHLEIV    AMHLEL    AMHLEP2
AMHLESF    AMHLESM    AMHLETP    AMHLETPS    AMHLETR3    AMHPCCL    AMHPCCL1    AMHRC1
AMHRC2    AMHRC4    AMHRP4    AMHRP7    AMHRPEC    AMHSFR    AMHUTIL    AMHUTIL1
AMHUTIL2    AMHVRL2    
Patient Chart 3 BPCBHDEL    BPCBHRU    BPCBHSC    
Patient Care Component 1 APCDSFR    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Mental Health Social Services 5 AMH40P3    AMH40P4    AMH40P6    AMHGU    AMHGUA    

Pointer To FileMan Files, Total: 9

Package Total FileMan Files
Scheduling 2 CLINIC STOP(#40.7)[.17, .22, .31, 1803]    HOSPITAL LOCATION(#44)[1812, 1813, 1814, 1815]    
Utility Tables 2 COMMUNITY(#9999999.05)[.06, .21, .29, 1802, 1804]    LOCATION(#9999999.06)[.01, .05, .19, .28, 1801]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[.13, 1204]    
Kernel 1 NEW PERSON(#200)[#9002013.01101(.01), #9002013.0121(.01), #9002013.13(.01), #9002013.14(.01), #9002013.16(.01), #9002013.19(.01)]    
Mental Health Social Services 1 MHSS TYPE OF CONTACT(#9002012.1)[.09]    
Patient Care Component 1 HEALTH SUMMARY TYPE(#9001015)[.04]    
Pharmacy Data Management 1 PHARMACY SYSTEM(#59.7)[.34]    

Fields, Total: 56

Field # Name Loc Type Details
.01 SITE 0;1 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  FEB 08, 2016
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002013^B
    1)= S ^AMHSITE("B",$E(X,1,30),DA)=""
    2)= K ^AMHSITE("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002013^ADS^MUMPS
    1)= I $P($G(^AMHSITE(DA,18)),U,11)="" S $P(^AMHSITE(DA,18),U,11)=3151001
    2)= Q
.02 TYPE OF VISIT 0;2 SET
************************REQUIRED FIELD************************
  • 'I' FOR IHS;
  • 'C' FOR CONTRACT;
  • '6' FOR 638 PROGRAM;
  • 'T' FOR TRIBAL;
  • 'O' FOR OTHER;
  • 'V' FOR VA;
  • 'P' FOR COMPACTED PROGRAM;
  • 'U' FOR URBAN PROGRAM;

  • LAST EDITED:  MAR 20, 2002
.04 DEFAULT HEALTH SUMMARY TYPE 0;4 POINTER TO HEALTH SUMMARY TYPE FILE (#9001015) HEALTH SUMMARY TYPE(#9001015)

  • LAST EDITED:  AUG 25, 1993
.05 DEFAULT MENT HLTH LOCATION 0;5 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  FEB 08, 1995
.06 DEFAULT MENT HLTH COMMUNITY 0;6 POINTER TO COMMUNITY FILE (#9999999.05) COMMUNITY(#9999999.05)

  • LAST EDITED:  FEB 08, 1995
.07 DEFAULT DEVICE FOR DATA TRANS 0;7 SET
  • 'F' FOR FILE (UNIX UUCPPUBLIC OR DOS);
  • 'D' FOR DISKETTE (FLOPPY);
  • 'C' FOR CARTRIDGE TAPE;
  • 'T' FOR 9-TRACK TAPE;

  • LAST EDITED:  AUG 01, 1994
.08 AUTO WRITE GLOBAL 0;8 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 01, 1994
.09 DEFAULT TYPE OF CONTACT 0;9 POINTER TO MHSS TYPE OF CONTACT FILE (#9002012.1) MHSS TYPE OF CONTACT(#9002012.1)

  • LAST EDITED:  MAR 31, 1997
.11 ASK INTERPRETER UTILIZED? 0;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 28, 1994
.12 TYPE OF PCC LINK 0;12 SET
  • '1' FOR NO LINK ACTIVE;
  • '2' FOR PASS STND CODE AND NARRATIVE;
  • '4' FOR PASS ALL DATA AS ENTERED (NO MASKING);
  • '5' FOR PASS CODES AND CANNED NARRATIVE;

  • LAST EDITED:  APR 22, 2009
.13 STANDARD CODE PCC OPT 2 - ICD9 0;13 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ICD9^AMHUTIL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S Y=$P($$ICDDX^ICDCODE(Y),U,2)
  • LAST EDITED:  JAN 10, 2013
  • SCREEN:  S DIC("S")="D ICD9^AMHUTIL2"
  • EXPLANATION:  MUST BE AN ACTIVE ICD-9 CODE.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.14 STND MH NARRATIVE FOR 2&5 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  JUN 29, 1995
  • HELP-PROMPT:  Answer must be 3-80 characters in length.
.15 UNIVERSAL OR SITE SPEC. LOOKUP 0;15 SET
  • 'U' FOR UNIVERSAL;
  • 'S' FOR SITE SPECIFIC;

  • LAST EDITED:  OCT 11, 1994
.16 FULL DATA ENTRY (CC/SO/MEDS) 0;16 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 24, 1994
.17 DEFAULT MENT HLTH CLINIC 0;17 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  FEB 08, 1995
.18 *ALLOW PCC PROBLEM LIST UPDATE 0;18 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 28, 2011
.19 DEFAULT SOC SERV LOCATION 0;19 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  FEB 08, 1995
.21 DEFAULT SOC SERV COMMUNITY 0;21 POINTER TO COMMUNITY FILE (#9999999.05) COMMUNITY(#9999999.05)

  • LAST EDITED:  FEB 08, 1995
.22 DEFAULT SOC SERV CLINIC 0;22 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  FEB 08, 1995
.23 DEFAULT RESPONSE ON FORM PRINT 0;23 SET
  • 'B' FOR BOTH;
  • 'F' FOR FULL;
  • 'S' FOR SUPPRESSED FORM;
  • 'T' FOR SUPPRESSED (2 COPIES);
  • 'E' FOR FULL (2 COPIES);

  • LAST EDITED:  MAR 14, 2002
.24 DEFAULT APPT/WALK IN RESPONSE 0;24 SET
  • 'A' FOR APPOINTMENT;
  • 'W' FOR WALK-IN;
  • 'U' FOR UNSPECIFIED;

  • LAST EDITED:  DEC 10, 2008
.25 # OF PAST POVS TO DISPLAY 0;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>5)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 1997
  • HELP-PROMPT:  Type a Number between 0 and 5, 0 Decimal Digits
.26 EXCLUDE NO SHOWS IN PAST DX 0;26 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 08, 1997
  • DESCRIPTION:  When a new Purpose of Visit is entered, the last few Purpose of Visits are displayed to the user at the bottom of the screen. If you would like to exclude POV's of NO SHOW or DNKA to be excluded from this display, enter
    a 1 here.
.27 SUPPRESS COMMENT ON SUPP FORM 0;27 SET
  • 'N' FOR NO;
  • 'Y' FOR YES;

  • LAST EDITED:  APR 09, 1997
.28 DEFAULT CD LOCATION 0;28 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  MAY 30, 2000
.29 DEFAULT CD COMMUNITY 0;29 POINTER TO COMMUNITY FILE (#9999999.05) COMMUNITY(#9999999.05)

  • LAST EDITED:  MAY 30, 2000
.31 DEFAULT CD CLINIC 0;31 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  MAY 30, 2000
.32 ALLOW VISIT SHARING 0;32 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 23, 2001
.33 INTERACTIVE PCC LINK? 0;33 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 15, 2004
  • HELP-PROMPT:  If you are using an electronic check-in process for Behavioral Health patients, enter YES to avoid creating duplicate PCC visits.
.34 PHARMACY SYSTEM 0;34 POINTER TO PHARMACY SYSTEM FILE (#59.7) PHARMACY SYSTEM(#59.7)

  • LAST EDITED:  FEB 24, 2006
1101 PCC LINK EXCEPTIONS (PROVIDER) 11;0 POINTER Multiple #9002013.01101 9002013.01101
1201 STND SS NARRATIVE FOR 2&5 12;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  JUN 29, 1995
  • HELP-PROMPT:  Answer must be 3-80 characters in length.
1202 STANDARD CD NARRATIVE 12;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  OCT 31, 2002
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
1203 STANDARD OTHER PROGRAM NARR 12;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  OCT 31, 2002
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
1204 STANDARD CODE PCC OPT 2 -ICD10 12;4 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ICD10^AMHUTIL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 10, 2013
  • SCREEN:  S DIC("S")="D ICD10^AMHUTIL2"
  • EXPLANATION:  MUST BE AN ICD-10 CODE
1300 PERSONS PERMITTED TO SEND MAIL 13;0 POINTER Multiple #9002013.13 9002013.13
1400 USERS PERMITTED TO ORDER LABS 14;0 POINTER Multiple #9002013.14 9002013.14
1501 CDMIS BACKLOAD DONE 15;1 SET
  • '1' FOR YES;

  • LAST EDITED:  DEC 18, 2003
1600 ALLOWED TO SEE ALL RECORDS 16;0 POINTER Multiple #9002013.16 9002013.16

  • LAST EDITED:  NOV 04, 2008
1801 DEFAULT OTHER LOCATION 18;1 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  SEP 06, 2005
1802 DEFAULT OTHER COMMUNITY 18;2 POINTER TO COMMUNITY FILE (#9999999.05) COMMUNITY(#9999999.05)

  • LAST EDITED:  SEP 06, 2005
1803 DEFAULT OTHER CLINIC 18;3 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  SEP 06, 2005
1804 EHR DEFAULT COMMUNITY 18;4 POINTER TO COMMUNITY FILE (#9999999.05) COMMUNITY(#9999999.05)

  • LAST EDITED:  JUL 09, 2007
1805 TURN OFF EHR TO BH LINK? 18;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 12, 2008
1806 TURN ON ELECTRONIC SIGNATURE? 18;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 17, 2008
1807 ELECTRONIC SIG START DATE 18;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X Q:'$D(X) K:X<$$DATE^AMHESIG X
  • LAST EDITED:  JUN 17, 2008
  • EXECUTABLE HELP:  D HELPESIG^AMHESIG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1808 TURN ON CODING QUEUE? 18;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 03, 2009
1809 GUI LOCKOUT TIME 18;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 2009
  • HELP-PROMPT:  Please enter the amount of time before the GUI will lockout
  • DESCRIPTION:  
    This field determines how much time elapses before the GUI will lockout and require the user to enter their verify code to unlock
1810 AUTO EXPORT OPTION 18;10 SET
  • '1' FOR AUTOMATICALLY SEND EXPORT TO HQ;
  • '2' FOR AUTOMATICALLY SEND EXPORT TO AREA;
  • '3' FOR AUTOMATICALLY SEND EXPORT TO BOTH AREA AND HQ;
  • '4' FOR DO NOT AUTOMATICALLY SEND EXPORTS;

  • LAST EDITED:  MAY 10, 2012
1811 DSM-5 IMPLEMENTATION DATE 18;11 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I (X>3151001) D EN^DDIOL("DATE MUST BE BETWEEN TODAY AND 10/01/2015") K X
  • LAST EDITED:  FEB 08, 2016
  • HELP-PROMPT:  This date must be 10/01/2015 or prior.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1812 MH HOSPITAL LOCATION 18;12 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  JUN 20, 2017
1813 SOC SERV HOSPITAL LOCATION 18;13 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  JUN 20, 2017
1814 CHEM DEP/ALC HOSPITAL LOCATION 18;14 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  JUN 20, 2017
1815 OTHER HOSPITAL LOCATION 18;15 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  JUN 20, 2017
1900 PROVIDER EXCEPTION TO ESIG 19;0 POINTER Multiple #9002013.19 9002013.19
2100 DELETE OVERRIDE 21;0 POINTER Multiple #9002013.0121 9002013.0121
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All