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

Package: IHS Patient

Global: ^AUPNTP


Information

FileMan FileNo FileMan Filename Package
9000094 TREATMENT PLAN IHS Patient

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Patient Care Component 2 APCDETP    APCDETP1    
IHS Patient 1 AUPNCIX    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Patient Care Component 2 APCDETP    APCDETP1    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Utility Tables 2 TREATMENT PLAN TYPE(#99999.21)[.01]    TREATMENT PLAN DISCONTINUED REASON(#99999.22)[.14]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[.06]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.07.09.13#9000094.12(.01)#9000094.18(.02)]    

Fields, Total: 23

Field # Name Loc Type Details
.01 TREATMENT PLAN TYPE 0;1 POINTER TO TREATMENT PLAN TYPE FILE (#99999.21)
************************REQUIRED FIELD************************
TREATMENT PLAN TYPE(#99999.21)

  • LAST EDITED:  JUL 10, 2009
  • CROSS-REFERENCE:  9000094^B
    1)= S ^AUPNTP("B",$E(X,1,30),DA)=""
    2)= K ^AUPNTP("B",$E(X,1,30),DA)
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  JUL 10, 2009
  • CROSS-REFERENCE:  9000094^AC
    1)= S ^AUPNTP("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNTP("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000094^AATOO^MUMPS
    1)= I $P(^AUPNTP(DA,0),U,3) S ^AUPNTP("AA",X,(9999999-$P(^AUPNTP(DA,0),U,3)),DA)=""
    2)= I $P(^AUPNTP(DA,0),U,3) K ^AUPNTP("AA",X,(9999999-$P(^AUPNTP(DA,0),U,3)),DA)
.03 DATE INITIATED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 10, 2009
  • CROSS-REFERENCE:  ^^TRIGGER^9000094^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNTP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$CMPLDATE^AUPNCIX(DA) S DIH=$G(^AUPNTP(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000094,DIG=.05 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNTP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$CMPLDATE^AUPNCIX(DA) S DIH=$G(^AUPNTP(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000094,DIG=.05 D ^DICR
    CREATE VALUE)= S X=$$CMPLDATE^AUPNCIX(DA)
    DELETE VALUE)= S X=$$CMPLDATE^AUPNCIX(DA)
    FIELD)= COMP
  • CROSS-REFERENCE:  9000094^AA^MUMPS
    1)= I $P(^AUPNTP(DA,0),U,2) S ^AUPNTP("AA",$P(^AUPNTP(DA,0),U,2),(9999999-X),DA)=""
    2)= I $P(^AUPNTP(DA,0),U,2) K ^AUPNTP("AA",$P(^AUPNTP(DA,0),U,2),(9999999-X),DA)
.04 DURATION 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<2) X I $D(X) D INP^AUPNCIX
  • OUTPUT TRANSFORM:  S Y=$$OUTTX^AUPNCIX(Y)
  • LAST EDITED:  JUL 10, 2009
  • HELP-PROMPT:  Answer must be 2-5 characters in length.
  • EXECUTABLE HELP:  D INPH^AUPNCIX
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9000094^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNTP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$CMPLDATE^AUPNCIX(DA) S DIH=$G(^AUPNTP(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000094,DIG=.05 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNTP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$CMPLDATE^AUPNCIX(DA) S DIH=$G(^AUPNTP(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000094,DIG=.05 D ^DICR
    CREATE VALUE)= S X=$$CMPLDATE^AUPNCIX(DA)
    DELETE VALUE)= S X=$$CMPLDATE^AUPNCIX(DA)
    FIELD)= #.05
.05 COMPLETION DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 10, 2009
  • NOTES:  TRIGGERED by the DURATION field of the TREATMENT PLAN File
    TRIGGERED by the DATE INITIATED field of the TREATMENT PLAN File
.06 DIAGNOSIS 0;6 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ICD^AUPNCIX(+Y,$G(DA),$G(APCDTDI))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 24, 2012
  • SCREEN:  S DIC("S")="D ICD^AUPNCIX(+Y,$G(DA),$G(APCDTDI))"
  • EXPLANATION:  Must be an active code as of the initiation date.
  • EXECUTABLE HELP:  D HELP^AUPNSICD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.07 RESPONSIBLE PROVIDER 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 10, 2009
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)="""""
  • EXPLANATION:  Must be an active provider.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 DATE LAST UPDATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 10, 2009
.09 USER LAST UPDATE 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 10, 2009
.11 NEXT REVIEW DATE 0;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 10, 2009
.12 DATE DISCONTINUED 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 10, 2009
.13 DISCONTINUED BY 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 10, 2009
.14 REASON DISCONTINUED 0;14 POINTER TO TREATMENT PLAN DISCONTINUED REASON FILE (#99999.22) TREATMENT PLAN DISCONTINUED REASON(#99999.22)

  • LAST EDITED:  JUL 11, 2009
.15 TREATMENT PLAN OTHER 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
1201 TEAM MEMBERS 12;0 POINTER Multiple #9000094.12 9000094.12
1301 PATIENT STRENGTHS 13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<2) X
  • LAST EDITED:  JUL 10, 2009
  • HELP-PROMPT:  Answer must be 2-240 characters in length.
1401 AREA OF FOCUS 14;0 Multiple #9000094.14 9000094.14
1501 GOALS 15;0 Multiple #9000094.15 9000094.15
1601 OBJECTIVES 16;0 Multiple #9000094.16 9000094.16
1700 NARRATIVE COMMENT 17;0 WORD-PROCESSING #9000094.17
1801 REVIEW DATES 18;0 DATE Multiple #9000094.18 9000094.18
1901 TEAM MEMBERS (OUTSIDE) 19;0 Multiple #9000094.19 9000094.19
2100 DISCONTINUED COMMENTS 21;0 WORD-PROCESSING #9000094.21
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All