Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCDETP1

Package: Patient Care Component

Routine: APCDETP1


Information

APCDETP1 ; IHS/CMI/LAB - treatment plan update ;

Source Information

Source file <APCDETP1.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA Fileman 6 ^DDS  ^DIC  FILE^DICN  ^DIE  ^DIK  ^DIR  
Patient Care Component 3 (GATHER,HDR)^APCDETP  ^APCDETPD  EN1^APCDPL  
IHS VA Utilities 2 $$VAL^XBDIQ1  (DIQ,VIEWR)^XBLM  
Registration 2 TERM^VALM0  ($$FTIME,FULL)^VALM1  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS Patient 1 ^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
DISP ;EP
CONT ;
DI ;
HS ;EP - Display Patient Profile
REV ;EP
EDITR ;EP
DEL ;
DX ;
TYPEO ;
RP ;
DISC1 ;
PL ;EP
PAUSE ;EP
HEADER ;
ADD ;EP
REV1 ;
EDIT ;
DISC ;EP
EXIT ;
EDT ;
TYPE ;
DELETE ;EP

External References

Name Field # of Occurrence
GATHER^APCDETP EXIT+3
HDR^APCDETP EXIT+5
^APCDETPD DX+8
EN1^APCDPL PL+1
^AUPNPAT HS+11
^DDS CONT+18, EDT+2
^DIC HS+5, TYPE+5, RP+5
FILE^DICN CONT+15
^DIE EDT+1, REV1+10, DISC1+8
^DIK DEL+4
^DIR TYPEO+1, DI+3, CONT+8, EDITR+2, DISP+1, REV+2, REV1+1, DISC+2, DISC1+1, DELETE+2
, DEL+1, PAUSE+1
$$ICDDX^ICDEX CONT+6
TERM^VALM0 EXIT+1
$$FTIME^VALM1 HEADER+2
FULL^VALM1 HS+1, ADD+1, EDITR+8, DISP+7, REV+8, REV1+4, DISC+8, DISC1+4, DELETE+8
$$VAL^XBDIQ1 HEADER+2
DIQ^XBLM DISP+8, REV1+4, DISC1+4
VIEWR^XBLM HS+10
$$FMTE^XLFDT CONT+4, REV1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Patient not entered."
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !,"Creating new Treatment Plan..."
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !!,"Enter Treatment Plan Type"
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: !!,"Required!"
  • Line Location: TYPEO+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: DI+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: RP+1
Function Call: WRITE
  • Prompt: !!,"Please enter the diagnosis associated with this treatment plan.",!
  • Line Location: DX+3
Function Call: WRITE
  • Prompt: !,"A valid code was not selected."
  • Line Location: DX+9
Function Call: WRITE
  • Prompt: !,"A valid code was not selected."
  • Line Location: DX+10
Function Call: WRITE
  • Prompt: !!!,"A Treatment Plan is going to be added for ",$P(^DPT(DFN,0),U)
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !,"with the following data:"
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: !?5,"Type: ",APCDTPTN
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: ?40,APCDOTHT
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !?5,"Date Initiated: ",$$FMTE^XLFDT(APCDTDI)
  • Line Location: CONT+4
Function Call: WRITE
  • Prompt: !?5,"Responsible Provider: ",APCDTRPN
  • Line Location: CONT+5
Function Call: WRITE
  • Prompt: !?5,"Diagnosis: ",$P($$ICDDX^ICDEX(APCDTDX,APCDTDI),U,2)
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONT+8
Function Call: WRITE
  • Prompt: !!,"Error creating treatment plan."
  • Line Location: CONT+16
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: EDITR+3
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: EDITR+4
Function Call: WRITE
  • Prompt: !,"Not a valid TREATMENT PLAN."
  • Line Location: EDITR+7
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Not a valid TREATMENT PLAN."
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: REV+3
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: REV+4
Function Call: WRITE
  • Prompt: !,"Not a valid TREATMENT PLAN."
  • Line Location: REV+7
Function Call: WRITE
  • Prompt: !!,"Reviews currently on file:"
  • Line Location: REV1+6
Function Call: WRITE
  • Prompt: !?5,$$FMTE^XLFDT($P(^AUPNTP(APCDTP,18,X,0),U)),?40,"Reviewed by: "
  • Line Location: REV1+7
Function Call: WRITE
  • Prompt: $P(^VA(200,$P(^AUPNTP(APCDTP,18,X,0),U,2),0),U)
  • Line Location: REV1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: REV1+8
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: DISC+3
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: DISC+4
Function Call: WRITE
  • Prompt: !,"Not a valid TREATMENT PLAN."
  • Line Location: DISC+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DISC1+6
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: DELETE+3
Function Call: WRITE
  • Prompt: !,"No treatment plan selected."
  • Line Location: DELETE+4
Function Call: WRITE
  • Prompt: !,"Not a valid TREATMENT PLAN."
  • Line Location: DELETE+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"Deleting Treatment Plan..."
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !!,"Treatment Plan for ",$P(^DPT(DFN,0),U)," DELETED."
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","-"),!,"Patient Name: ",$P(^DPT(DFN,0),U)," DOB: ",$$FTIME^VALM1($P(^DPT(DFN,0),U,3))," Sex: ",$$VAL^XBDIQ1(2,DFN,.02),!,$TR($J(" ",80)," ","-")
  • Line Location: HEADER+2
Routine Call
  • DIE
  • Line Location:
    • EDT+1
    • REV1+10
    • DISC1+8
Routine Call
  • DDS
  • Line Location:
    • CONT+18
    • EDT+2
Routine Call
  • DIC
  • Line Location:
    • HS+5
    • TYPE+5
    • RP+5
Routine Call
  • DIR
  • Line Location:
    • TYPEO+1
    • DI+3
    • CONT+8
    • EDITR+2
    • DISP+1
    • REV+2
    • REV1+1
    • DISC+2
    • DISC1+1
    • DELETE+2
    • DEL+1
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNTP - [#9000094] Classic Fileman Calls
^APCHSCTL - [#9001015] Classic Fileman Calls
^AUTTTPL - [#99999.21] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] HS+2
^APCHSCTL - [#9001015] HS+2, HS+3
^AUPNTP - [#9000094] EDITR+7, DISP+6, REV+7, REV1+7, REV1+9, DISC+7, DISC1+7, DELETE+7
^DISV( HS+3
^DPT - [#2] HS+9, CONT+1, DEL+5, HEADER+2
^VA(200 - [#200] REV1+7

Label References

Name Line Occurrences
DI TYPE+9, RP+6
DISC1 DISC1+3, DISC1+4
DX DX+9
EDT EDIT+2, REV1+3, DISC1+3
EXIT PL+2, HS+6, HS+13, TYPE+6, CONT+9, CONT+10, CONT+16, CONT+19, EDITR+3, EDITR+4
, EDITR+5, EDITR+6, EDITR+7, EDIT+3, DISP+2, DISP+3, DISP+4, DISP+5, DISP+6, DISP+9
, REV+3, REV+4, REV+5, REV+6, REV+7, REV1+2, REV1+5, REV1+11, DISC+3, DISC+4
, DISC+5, DISC+6, DISC+7, DISC1+2, DISC1+5, DISC1+9, DELETE+3, DELETE+4, DELETE+5, DELETE+6
, DELETE+7, DEL+6
HEADER ADD+4
PAUSE HS+6, DX+10, EDITR+5, EDITR+6, EDITR+7, DISP+4, DISP+5, DISP+6, REV+5, REV+6
, REV+7, DISC+5, DISC+6, DISC+7, DELETE+5, DELETE+6, DELETE+7, DEL+5
REV1 REV1+3, REV1+4
RP DX+10
TYPE TYPEO+2, TYPEO+3, DI+4

Naked Globals

Name Field # of Occurrence
^("^APCHSCTL(" HS+3
^(0 HS+2, HS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMCHDAYS HS+12!
AMCHDOB HS+12!
APCDHDR HS+9*, HS+10, HS+12!
>> APCDLINE EXIT+4
>> APCDOTHT TYPE+8*, TYPEO+4*, CONT+3, CONT+14
>> APCDPLPT HS+7*, HS+9, HS+11
>> APCDPTP("IDX" EDITR+5, EDITR+6, DISP+4, DISP+5, REV+5, REV+6, DISC+5, DISC+6, DELETE+5, DELETE+6
>> APCDRCNT EDITR+2, DISP+1, REV+2, DISC+2, DELETE+2
APCDTDEL DISP+4!, DISP+6!, REV+7!, DISC+7!, DELETE+5!
APCDTDI ADD+3~, DI+2*, DI+5*, CONT+4, CONT+6, CONT+14
APCDTDX ADD+3~, DX+2*, DX+10, CONT+6, CONT+14
>> APCDTERR DX+9
APCDTP ADD+3~, CONT+17*, CONT+18, EDITR+1~, EDITR+4!, EDITR+5*!, EDITR+6*!, EDITR+7, EDT+1, EDT+2
, DISP+3!, DISP+4*!, DISP+5*!, DISP+6!, DISP+8, REV+1~, REV+4!, REV+5*!, REV+6*!, REV+7!
, REV1+4, REV1+7, REV1+9, REV1+10, DISC+1~, DISC+4!, DISC+5*!, DISC+6*!, DISC+7!, DISC1+4
, DISC1+7, DISC1+8, DELETE+1~, DELETE+4!, DELETE+5*!, DELETE+6*!, DELETE+7!, DEL+4
APCDTPN EDITR+1~, EDITR+4*, EDITR+5, EDITR+6, DISP+3*, DISP+4, DISP+5, REV+1~, REV+4*, REV+5
, REV+6, DISC+1~, DISC+4*, DISC+5, DISC+6, DELETE+1~, DELETE+4*, DELETE+5, DELETE+6
APCDTPT ADD+3~, TYPE+2*, TYPE+7*, CONT+12
APCDTPTN ADD+3~, TYPE+2*, TYPE+7*, TYPE+9, CONT+3
APCDTRP ADD+3~, RP+3*, RP+7*, CONT+14, REV+1~, REV1+9*, DISC+1~, DISC1+7*
APCDTRPN ADD+3~, RP+3*, RP+7*, CONT+5
APCHSMTY HS+12!
APCHSPAT HS+8*, HS+12!
APCHSTAT HS+12!
APCHSTYP HS+8*, HS+12!
D0 HS+5!, CONT+13!, CONT+15!
D1 HS+5!
DA HS+5!, TYPEO+1!, DI+3!, CONT+13!, CONT+18*!, EDT+1*!, EDT+2*!, DISP+8!, REV1+1!, REV1+4!
, REV1+10*!, DISC1+1!, DISC1+4!, DISC1+8*!, DEL+4*!
DD HS+5!, CONT+13!
DDSFILE CONT+18*!, EDT+2*!
>> DFN HS+7, HS+8, HS+11*, ADD+2, CONT+1, CONT+14, DEL+5, HEADER+2
DIADD CONT+13*, CONT+15!
DIC HS+5!*, TYPE+4!, TYPE+5*!, RP+2!, RP+4*, DX+1!, CONT+13!*, CONT+15!, DISP+8!, REV1+4!
, DISC1+4!
DIC("A" RP+4*
DIC("B" HS+5*
DIC("DR" CONT+14*
DIC("S" RP+4*
DIC(0 HS+5*, TYPE+5*, RP+4*, CONT+13*
DIE CONT+15!, EDT+1*!, REV1+10*!, DISC1+8*!
DIE("NO^" REV1+10*, DISC1+8*
DIK DEL+4*!
DINUM CONT+13!
DIR TYPE+1!, TYPEO+1!, DI+3!, CONT+8!, EDITR+2!, DISP+1!, REV+2!, REV1+1!, DISC+2!, DISC1+1!
, DELETE+2!, DEL+1!, PAUSE+1!
DIR("A" TYPEO+1*, DI+3*, CONT+8*, EDITR+2*, DISP+1*, REV+2*, REV1+1*, DISC+2*, DISC1+1*, DELETE+2*
, DEL+1*, PAUSE+1*
DIR("B" CONT+8*, REV1+1*, DISC1+1*, DEL+1*
DIR(0 TYPEO+1*, DI+3*, CONT+8*, EDITR+2*, DISP+1*, REV+2*, REV1+1*, DISC+2*, DISC1+1*, DELETE+2*
, DEL+1*, PAUSE+1*
>> DIRUT TYPEO+2, DI+4, CONT+8*, CONT+9, EDITR+2*, EDITR+3, DISP+1*, DISP+2, REV+2*, REV+3
, REV1+2, DISC+2*, DISC+3, DISC1+2, DELETE+2*, DELETE+3, DEL+1*, DEL+2, PAUSE+1*
DLAYGO CONT+13*, CONT+15!
DO CONT+13!
DQ HS+5!
DR HS+5!, CONT+13!, CONT+15!, CONT+18*!, EDT+1*!, EDT+2*!, REV1+10*!, DISC1+8*!
DT DI+3, CONT+14, EDT+1
>> DUOUT CONT+8, EDITR+2, DISP+1, REV+2, DISC+2, DELETE+2, DEL+1, PAUSE+1
DUZ HS+3, CONT+14, EDT+1
DUZ(2 HS+2
IOF EDIT+1, REV+9, DISC+9, HEADER+1
U HS+2, HS+3, HS+9, TYPE+7, RP+7, CONT+1, CONT+6, REV1+7, REV1+9, DISC1+7
, DEL+5, HEADER+2
>> VALMBCK EXIT+2*
>> VALMCNT EXIT+4*
VALMY EDITR+4!, DISP+3!, REV+4!, DISC+4!, DELETE+4!
X HS+2*, HS+3*, HS+4*, HS+5, CONT+12*, CONT+15!, REV1+7*
XQORNOD EDITR+4!, DISP+3!, REV+4!, DISC+4!, DELETE+4!
>> Y HS+3*, HS+6, HS+8, HS+11*, TYPE+6, TYPE+7, TYPEO+3, TYPEO+4, DI+5, RP+6
, RP+7, CONT+10, CONT+11, CONT+16, CONT+17, EDITR+4, DISP+3, REV+4, REV1+3, REV1+4
, REV1+5, DISC+4, DISC1+3, DISC1+4, DISC1+5, DELETE+4, DEL+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All