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: ^AMHRNRF

Package: Mental Health Social Services

Global: ^AMHRNRF


Information

FileMan FileNo FileMan Filename Package
9002011.11 MHSS RECORD NAVAJO REFERRAL FORM Mental Health Social Services

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Mental Health Social Services 2 AMHNAVR    AMHNAVRP    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Mental Health Social Services 1 AMHNAVR    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Mental Health Social Services 2 MHSS RECORD(#9002011)[.03]    MHSS NAVAJO REF CONTENT(#9002013.1)[#9002011.1145(.01)]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.06]    

Fields, Total: 48

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 30, 2002
  • DESCRIPTION:  
    This is the entry in the Health Factor file that most closely represents the patient's health factor status at the encounter for a given health factor category.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTHF")
  • CROSS-REFERENCE:  9002011.11^B
    1)= S ^AMHRNRF("B",$E(X,1,30),DA)=""
    2)= K ^AMHRNRF("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.11^AV9^MUMPS
    1)= S:$D(AMHLOOK) DIC("DR")=""
    2)= Q
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  FEB 17, 1993
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9002011.11^AC
    1)= S ^AMHRNRF("AC",$E(X,1,30),DA)=""
    2)= K ^AMHRNRF("AC",$E(X,1,30),DA)
.03 MHSS RECORD 0;3 POINTER TO MHSS RECORD FILE (#9002011)
************************REQUIRED FIELD************************
MHSS RECORD(#9002011)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,8)=$P(^AMHRNRF(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 04, 2002
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,8)=$P(^AMHRNRF(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9002011.11^AD
    1)= S ^AMHRNRF("AD",$E(X,1,30),DA)=""
    2)= K ^AMHRNRF("AD",$E(X,1,30),DA)
.04 ACCEPTING FACILITY 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  MAR 05, 2003
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
.05 ACCEPTING PHYSICIAN 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 30, 2002
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
.06 CONTRACT CARE APPROVED BY 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 30, 2002
.07 TRANSPORTATION TO FACILTY BY 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 30, 2002
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
.08 CATEGORY 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  MAR 05, 2003
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
.09 REASON FOR REFERRAL 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  DEC 30, 2002
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
.11 PATIENT MEDICALLY CLEARED 0;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 05, 2003
2201 APPEARANCE 22;1 SET
  • 'N' FOR NEAT;
  • 'A' FOR APPROPRIATE;
  • 'D' FOR DISHEVELED;
  • 'I' FOR INAPPROPRIATE;
  • 'U' FOR UNUSUAL;

  • LAST EDITED:  DEC 30, 2002
2203 EYE CONTACT 22;3 SET
  • 'G' FOR GOOD;
  • 'F' FOR FAIR;
  • 'P' FOR POOR;
  • 'I' FOR INTENSE;

  • LAST EDITED:  DEC 30, 2002
2204 ORIENTATION - TIME 22;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 30, 2002
2205 ORIENTATION - PLACE 22;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 30, 2002
2206 ORIENTATION - PERSON 22;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 30, 2002
2207 ORIENTATION - SITUATION 22;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 30, 2002
2208 CONCENTRATION 22;8 SET
  • 'G' FOR GOOD;
  • 'I' FOR IMPAIRED;
  • 'P' FOR POOR;
  • 'F' FOR FLUCTUATING;

  • LAST EDITED:  DEC 30, 2002
2210 SPEECH 22;10 SET
  • 'C' FOR COHERENT;
  • 'N' FOR NORMAL RATE;
  • 'I' FOR INCOHERENT;
  • 'S' FOR SLURRED;
  • 'M' FOR MUMBLED;
  • 'R' FOR RAPID;
  • 'S' FOR SLOW;
  • 'P' FOR PRESSURED;
  • 'L' FOR LOUD/SOFT;

  • LAST EDITED:  DEC 30, 2002
2211 AFFECT 22;11 SET
  • 'A' FOR APPROPRIATE;
  • 'I' FOR INAPPROPRIATE;
  • 'L' FOR LABILE;
  • 'B' FOR BLUNTED;
  • 'F' FOR FLAT;
  • 'C' FOR CONSTRICTED;

  • LAST EDITED:  DEC 30, 2002
2212 THOUGHT PROCESS 22;12 SET
  • 'L' FOR LOGICAL;
  • 'G' FOR GOAL-ORIENTED;
  • 'D' FOR DISORGANIZED;
  • 'R' FOR RACING;
  • 'T' FOR TANGENTIAL;
  • 'B' FOR BLOCKING;

  • LAST EDITED:  DEC 30, 2002
2213 PERCEPTION 22;13 SET
  • 'N' FOR NORMAL;
  • 'H' FOR HALLUCINATIONS;

  • LAST EDITED:  MAR 05, 2003
2214 MEMORY RECENT 22;14 SET
  • 'I' FOR INTACT;
  • 'N' FOR NOT INTACT;
  • 'S' FOR SELECTIVE;

  • LAST EDITED:  MAR 05, 2003
2215 MEMORY REMOTE 22;15 SET
  • 'I' FOR INTACT;
  • 'N' FOR NOT INTACT;
  • 'S' FOR SELECTIVE;

  • LAST EDITED:  MAR 05, 2003
2216 JUDGMENT 22;16 SET
  • 'N' FOR NORMAL;
  • 'I' FOR IMPAIRED;

  • LAST EDITED:  MAR 05, 2003
2217 INSIGHT 22;17 SET
  • 'N' FOR NORMAL;
  • 'I' FOR IMPAIRED;

  • LAST EDITED:  MAR 05, 2003
2218 IMPULSE CONTROL 22;18 SET
  • 'A' FOR ADEQUATE;
  • 'I' FOR IMPAIRED;

  • LAST EDITED:  MAR 05, 2003
2219 SUICIDE RISK CURRENT 22;19 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 05, 2003
2220 SUICIDE CURRENT PLAN 22;20 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 05, 2003
2221 SUICIDE PRIOR ATTEMPTS 22;21 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 05, 2003
2222 HARM TO OTHERS CURRENT 22;22 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 05, 2003
2223 HARM TO OTHERS RECENT 22;23 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 05, 2003
2224 HARM TO OTHERS PRIOR 22;24 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 05, 2003
2225 HARM TO OTHERS CURRENT PLAN 22;25 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 05, 2003
2226 HARM TO OTHER PRIOR ATTEMPTS 22;26 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 05, 2003
2227 ACCEPTING FACILITY PHONE 22;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 05, 2003
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
4101 ATTITUDE TOWARD EXAMINER 41;0 SET Multiple #9002011.1141 9002011.1141
4201 MOTOR ACTIVITY 42;0 SET Multiple #9002011.1142 9002011.1142
4301 SPEECH 43;0 SET Multiple #9002011.1143 9002011.1143
4401 MOOD 44;0 SET Multiple #9002011.1144 9002011.1144
4501 CONTENT 45;0 POINTER Multiple #9002011.1145 9002011.1145
8100 HISTORY OF PRESENTING PROBLEM 81;0 WORD-PROCESSING #9002011.1181
8200 CURRENT MEDICATIONS 82;0 WORD-PROCESSING #9002011.1182
8300 PAT/FAMILY PSYCHIATRIC HX 83;0 WORD-PROCESSING #9002011.1183
8400 CURRENT MEDICAL PROBLEMS 84;0 WORD-PROCESSING #9002011.1184
8500 AXIS I 85;0 WORD-PROCESSING #9002011.1185
8600 AXIS II 86;0 WORD-PROCESSING #9002011.1186
8700 AXIS III 87;0 WORD-PROCESSING #9002011.1187
8800 TX REQUESTS/RECOMMENDATIONS 88;0 WORD-PROCESSING #9002011.1188
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All