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

Package: Mental Health Social Services

Global: ^AMHRPROC


Information

FileMan FileNo FileMan Filename Package
9002011.04 MHSS RECORD PROCEDURES (CPT) Mental Health Social Services

Description

Directly Accessed By Routines, Total: 69

Package Total Routines
IHS GPRA Information System 48 BGP0D24    BGP0D5    BGP0D51    BGP1D24    BGP1D26    BGP1D5    BGP1D51    BGP2D24
BGP2D26    BGP2D5    BGP2D51    BGP3D24    BGP3D26    BGP3D5    BGP3D51    BGP4D24
BGP4D26    BGP4D5    BGP4D51    BGP5D24    BGP5D25    BGP5D26    BGP5D27    BGP5D5
BGP5D51    BGP6D24    BGP6D25    BGP6D26    BGP6D27    BGP6D51    BGP6D55    BGP7D24
BGP7D25    BGP7D26    BGP7D27    BGP7D51    BGP7D55    BGP8D24    BGP8D25    BGP8D27
BGP8D51    BGP8D55    BGP8PC11    BGP8PC12    BGP8PC13    BGP9D24    BGP9D5    BGP9D51
Mental Health Social Services 13 AMHEGRCP    AMHEXD2    AMHGEVF    AMHGU    AMHLEFP2    AMHLEFPP    AMHNAVRP    AMHPCCL1
AMHPOST    AMHRBV1    AMHRSB1    AMHRSB2    AMHUTIL2    
IHS Uniform Data System 4 BUDBRP6Q    BUDCRP6Q    BUDDRP6Q    BUDERP6Q    
Patient Care Component Reports 2 APCLAL1A    APCLAPIU    
Diabetes Registry 1 BDMAPIU    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
Mental Health Social Services 8 AMHEGR    AMHEGRCP    AMHEHR    AMHGDVF    AMHGEVF    AMHLEGP1    AMHLEPRC    AMHPOST
IHS Uniform Data System 4 BUDBRP6Q    BUDCRP6Q    BUDDRP6Q    BUDERP6Q    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
CPT Files 2 CPT MODIFIER(#81.3)[.08, .09]    CPT(#81)[.01]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Mental Health Social Services 1 MHSS RECORD(#9002011)[.03]    

Fields, Total: 7

Field # Name Loc Type Details
.01 CPT CODE 0;1 POINTER TO CPT FILE (#81)
************************REQUIRED FIELD************************
CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="D CPT^AMHUTIL1(Y,$S($G(AMHDATE):AMHDATE,$G(AMHR):$P($P($G(^AMHREC(AMHR,0)),U),"".""),1:DT))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 29, 2009
  • SCREEN:  S DIC("S")="D CPT^AMHUTIL1(Y,$S($G(AMHDATE):AMHDATE,$G(AMHR):$P($P($G(^AMHREC(AMHR,0)),U),"".""),1:DT))"
  • EXPLANATION:  MUST BE AN ACTIVE CPT CODE.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002011.04^B
    1)= S ^AMHRPROC("B",$E(X,1,30),DA)=""
    2)= K ^AMHRPROC("B",$E(X,1,30),DA)
.019 CPT CODE NARRATIVE COMPUTED

  • MUMPS CODE:  S X=$P($$CPT^ICPTCOD($P(^AMHRPROC(D0,0),U),$S($P(^AMHRPROC(D0,0),U,3):$P($P(^AMHREC($P(^AMHRPROC(D0,0),U,3),0),U),"."),1:DT)),U,3)
    9.2 = S Y(9002011.04,.019,80)=$S($D(D0):D0,1:""),Y(9002011.04,.019,1)=$S($D(^AMHRPROC(D0,0)):^(0),1:""),D0=$P(Y(9002011.04,.019,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1
  • ALGORITHM:  S X=$P($$CPT^ICPTCOD($P(^AMHRPROC(D0,0),U),$S($P(^AMHRPROC(D0,0),U,3):$P($P(^AMHREC($P(^AMHRPROC(D0,0),U,3),0),U),"."),1:DT)),U,3)
  • LAST EDITED:  JUN 30, 2009
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 25, 1995
  • CROSS-REFERENCE:  9002011.04^AC
    1)= S ^AMHRPROC("AC",$E(X,1,30),DA)=""
    2)= K ^AMHRPROC("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(^AMHRPROC(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 25, 1995
  • SCREEN:  S DIC("S")="I $P(^(0),U,8)=$P(^AMHRPROC(DA,0),U,2)"
  • EXPLANATION:  MUST BE FOR CURRENT PATIENT
  • CROSS-REFERENCE:  9002011.04^AD
    1)= S ^AMHRPROC("AD",$E(X,1,30),DA)=""
    2)= K ^AMHRPROC("AD",$E(X,1,30),DA)
.08 MODIFIER 0;8 POINTER TO CPT MODIFIER FILE (#81.3) CPT MODIFIER(#81.3)

  • LAST EDITED:  NOV 14, 2013
.09 MODIFIER 2 0;9 POINTER TO CPT MODIFIER FILE (#81.3) CPT MODIFIER(#81.3)

  • LAST EDITED:  NOV 14, 2013
.16 QUANTITY 0;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 14, 2013
  • HELP-PROMPT:  Type a number between 1 and 999, 0 decimal digits.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All