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

Package: Mental Health Social Services

Global: ^AMHRPRO


Information

FileMan FileNo FileMan Filename Package
9002011.01 MHSS RECORD PROBLEMS (POVS) Mental Health Social Services

Description

Directly Accessed By Routines, Total: 148

Package Total Routines
IHS GPRA Information System 62 BGP0D25    BGP0D5    BGP0D51    BGP0D54    BGP0D55    BGP0D5A    BGP1D25    BGP1D5
BGP1D51    BGP1D54    BGP1D55    BGP1D5A    BGP2D25    BGP2D5    BGP2D51    BGP2D54
BGP2D55    BGP2D5A    BGP3D25    BGP3D5    BGP3D51    BGP3D54    BGP3D55    BGP3D5A
BGP4D25    BGP4D5    BGP4D51    BGP4D54    BGP4D55    BGP4D5A    BGP5D25    BGP5D27
BGP5D5    BGP5D51    BGP5D54    BGP5D55    BGP5D5A    BGP6D25    BGP6D27    BGP6D51
BGP6D54    BGP6D55    BGP6D5A    BGP7D25    BGP7D27    BGP7D51    BGP7D54    BGP7D55
BGP7D5A    BGP8D25    BGP8D27    BGP8D51    BGP8D54    BGP8D55    BGP8D5A    BGP8PC11
BGP8PC12    BGP8PC13    BGP9D25    BGP9D5    BGP9D51    BGP9D54    
Mental Health Social Services 49 AMHBHRU    AMHBPL1    AMHDPEE    AMHEGRPV    AMHEXD2    AMHGDA    AMHGDAD    AMHGDCOM
AMHGEVF    AMHGPCCL    AMHGU    AMHGUA    AMHGUVF    AMHHS    AMHLE2    AMHLEA
AMHLEA1    AMHLEDV    AMHLEDV1    AMHLEFP2    AMHLEFPP    AMHLEL    AMHLEP1    AMHLEP2
AMHLEPOV    AMHLESM    AMHLRDSP    AMHNAVRP    AMHPCCL1    AMHRBV1    AMHRC3    AMHRC4
AMHRE1    AMHRLKUP    AMHRLP3    AMHRLU2    AMHRNS    AMHRNSM    AMHRP1    AMHRP31
AMHRP4P    AMHRP8P    AMHRP9P    AMHRPS1    AMHRPSI    AMHRPTST    AMHRSU5    AMHUTIL1
AMHUTIL2    
Diabetes Registry 17 BDMAPIU    BDMD012    BDMD112    BDMD412    BDMD512    BDMD612    BDMD712    BDMD812
BDMD912    BDMDA12    BDMDB12    BDMDC12    BDMDD12    BDMDE12    BDMDF12    BDMDG12
BDMS9B1    
Patient Care Component Reports 6 APCLAL1A    APCLAPIU    APCLD512    APCLD612    APCLD712    APCLD812    
IHS Uniform Data System 5 BUDBRP6Q    BUDCRP6Q    BUDDRP6Q    BUDERP6Q    BUDHRP6Q    
Health Summary Components 2 BHSBH    BHSDM1    
IHS HIV Management System 2 BKMIXX2    BKMQQCRC    
Patient Care Component 2 APCHS9B1    APCHSM03    
Local Area Programs 1 AZAXDPM1    
Patient Chart 1 BPCBHRU    
iCare 1 BQICASUI    

Accessed By FileMan Db Calls, Total: 33

Package Total Routines
Mental Health Social Services 33 AMHCDBL    AMHCDBL1    AMHCDBL2    AMHEGR    AMHEGRPV    AMHEHR    AMHGD    AMHGDA
AMHGDAD    AMHGDCOM    AMHGDVF    AMHGEVF    AMHGSVF    AMHGUA    AMHHS    AMHLEA1
AMHLEAR1    AMHLEDV    AMHLEDV1    AMHLEFP2    AMHLEFPP    AMHLEGP1    AMHLEL    AMHLENS
AMHLEP1    AMHLEPOV    AMHLRDSP    AMHNAVRP    AMHPCCL1    AMHRBV1    AMHRLKUP    AMHRP1
AMHUTIL1    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Mental Health Social Services 2 MHSS PROBLEM/POV CODES(#9002012.2)[.01]    MHSS RECORD(#9002011)[.03]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Utility Tables 1 PROVIDER NARRATIVE(#9999999.27)[.04]    

Fields, Total: 7

Field # Name Loc Type Details
.01 PROBLEM CODE 0;1 POINTER TO MHSS PROBLEM/POV CODES FILE (#9002012.2)
************************REQUIRED FIELD************************
MHSS PROBLEM/POV CODES(#9002012.2)

  • INPUT TRANSFORM:  S DIC("S")="D CHKICD^AMHUTIL1(Y,$G(AMHDATE),$G(AMHR),$G(DA),$G(AMHEHR))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 29, 2009
  • SCREEN:  S DIC("S")="D CHKICD^AMHUTIL1(Y,$G(AMHDATE),$G(AMHR),$G(DA),$G(AMHEHR))"
  • EXPLANATION:  Must not be an inactive code.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002011.01^B
    1)= S ^AMHRPRO("B",$E(X,1,30),DA)=""
    2)= K ^AMHRPRO("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.01^AZ9^MUMPS
    1)= S:$D(AMHLOOK) DIC("DR")=""
    2)= Q
.019 PROBLEM CODE NARRATIVE COMPUTED

  • MUMPS CODE:  X ^DD(9002011.01,.019,9.3) S X=$P(Y(9002011.01,.019,101),U,2) S D0=Y(9002011.01,.019,80)
    9.2 = S Y(9002011.01,.019,80)=$S($D(D0):D0,1:""),Y(9002011.01,.019,1)=$S($D(^AMHRPRO(D0,0)):^(0),1:"")
    9.3 = X ^DD(9002011.01,.019,9.2) S D0=$P(Y(9002011.01,.019,1),U,1) S:'$D(^AMHPROB(+D0,0)) D0=-1 S Y(9002011.01,.019,101)=$S($D(^AMHPROB(D0,0)):^(0),1:"")
  • ALGORITHM:  #.01:NARRATIVE
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  OCT 24, 1993
  • CROSS-REFERENCE:  9002011.01^AC
    1)= S ^AMHRPRO("AC",$E(X,1,30),DA)=""
    2)= K ^AMHRPRO("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(^AMHRPRO(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 23, 2002
  • SCREEN:  S DIC("S")="I $P(^(0),U,8)=$P(^AMHRPRO(DA,0),U,2)"
  • EXPLANATION:  Must be for current patient.
    UNEDITABLE
  • CROSS-REFERENCE:  9002011.01^AD
    1)= S ^AMHRPRO("AD",$E(X,1,30),DA)=""
    2)= K ^AMHRPRO("AD",$E(X,1,30),DA)
.04 PROVIDER NARRATIVE 0;4 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27) PROVIDER NARRATIVE(#9999999.27)

  • OUTPUT TRANSFORM:  S Y=$$PNPV^AMHUTIL2(Y,$G(D0))
  • LAST EDITED:  SEP 03, 2014
.07 ADD TO PCC PROBLEM LIST? 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 23, 1993
.08 DATE OF ONSET 0;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 18, 1993
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All