Routine: APCDETP1

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

Customize PDF page

Package: Patient Care Component

Routine: APCDETP1

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: