Routine: APCDETP

Information

APCDETP ; IHS/CMI/LAB - DISPLAY/EDIT TREATMENT NOTES ;

Source Information

Source file <APCDETP.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	2	$$FMADD^XLFDT DISP^XQORM1
Patient Care Component	2	^APCDEIN EN^APCDEKL
Registration	2	EN^VALM ($$FTIME,CLEAR,FULL)^VALM1
VA Fileman	2	PUT^DDSVAL ^DIC
IHS Patient	1	$$CONVDAYS^AUPNCIX
IHS VA Utilities	1	$$VAL^XBDIQ1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Patient Care Component	1	APCDETP1

Entry Points

Name	Comments	DBIA/ICR reference
GETTXT	;EP - GENERALIZED TEXT PRINTER
EN	; EP -- main entry point for APCD UPDATE ACTIVITY RECORDS
HDR	;EP -- header code
EOJ	;EOJ CLEANUP
GATHER	;EP - called from APCDUAR
GETPAT	;get patient
GETFRAG
START	; Write Header
INIT	;EP -- init variables and list array
EXIT	; -- exit code
EP1(DFN)	;EP CALLED FROM PROTOCOL
TEXT	;
CMPLDATE(B)	;EP - called from SCREENMAN SCREEN
GETTXT2
ADDTPT	;EP - called from option to add new treatment plan types
EXPND	; -- expand code
HELP	;EP -- help code

External References

Name	Field # of Occurrence
^APCDEIN	START+6
EN^APCDEKL	EOJ+2
$$CONVDAYS^AUPNCIX	CMPLDATE+5
PUT^DDSVAL	CMPLDATE+7
^DIC	GETPAT+3, ADDTPT+12
EN^VALM	EN+2, EN+3
$$FTIME^VALM1	GATHER+8, GATHER+15, HDR+1
CLEAR^VALM1	EOJ+1, EN+2, EN+4
FULL^VALM1	START+9, EP1+6
$$VAL^XBDIQ1	GATHER+5, GATHER+11, GATHER+18, GATHER+21
$$FMADD^XLFDT	CMPLDATE+6
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(X)\2,X Line Location: START+3
Function Call: WRITE	Prompt: !! Line Location: START+5
Function Call: WRITE	Prompt: ! Line Location: GETPAT+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"This option is used to add new Treatment Plan Types to the Treatment" Line Location: ADDTPT+1
Function Call: WRITE	Prompt: !,"Plan Type table.",! Line Location: ADDTPT+2
Function Call: WRITE	Prompt: !,"The following treatment plan types are currently on file:",! Line Location: ADDTPT+3
Function Call: WRITE	Prompt: !!,"Enter new treatment plan type",! Line Location: ADDTPT+10
Routine Call	VALM Line Location: EN+2 EN+3
Routine Call	DIC Line Location: GETPAT+3 ADDTPT+12

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNTP - [#9000094]	PUT^DDSVAL
^AUTTTPL - [#99999.21]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNTP - [#9000094]	GATHER+5, GATHER+8, GATHER+13, GATHER+15, CMPLDATE+3
^AUPNTP("AA"	GATHER+3
^AUPNTP("AC"	GATHER+2
^AUTTTPL - [#99999.21]	ADDTPT+7
^AUTTTPL("B"	ADDTPT+4, ADDTPT+5
^DPT - [#2]	EP1+2, EP1+3, HDR+1
^VA(200 - [#200]	GATHER+5

Name	Line Occurrences
EN	START+9, EP1+5
EOJ	START+1, START+10
EXIT	START+9
GATHER	INIT+1
GETFRAG	GETTXT2
GETPAT	START+8
GETTXT2	GETTXT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	CMPLDATE+2~, CMPLDATE+3*, CMPLDATE+4, CMPLDATE+6
>> APCDAT	GETPAT+1, GETPAT+5
APCDCOL	EXIT+1!
>> APCDD	GATHER+3*
>> APCDDISP	EN+2
APCDE	GATHER+3*, GATHER+4, GATHER+5, GATHER+8, GATHER+11, GATHER+13, GATHER+15, GATHER+18, GATHER+21, EXIT+1!
>> APCDEC	GETTXT2*, GETTXT2+1
APCDEL	EXIT+1!
>> APCDETP("C"	GETTXT+3!, GETFRAG+1*, GETFRAG+2
>> APCDETP("DLT"	GETTXT+1, GETTXT+3!, GETTXT2+1
>> APCDETP("F"	GETTXT+3!, GETTXT2+1, GETFRAG, GETFRAG+2
>> APCDETP("ICL"	GETTXT+1, GETTXT2, GETTXT2+1*
>> APCDETP("ILN"	GETTXT+1, GETTXT+3!, GETTXT2+1, GETFRAG, GETFRAG+1
>> APCDETP("LGTH"	GETTXT+1
>> APCDETP("NRQ"	GETTXT+2*
>> APCDETP("Q"	GETTXT+2*
>> APCDETP("TXT"	GETTXT+2, GETTXT+3!, GETFRAG, GETFRAG+1, GETFRAG+2*
APCDETXT	EXIT+1!
APCDETXT(	GETTXT2, GETTXT2+1
APCDGNUM	EXIT+1!
APCDLINE	GATHER+1, GATHER+4, GATHER+6, GATHER+7, GATHER+9, GATHER+10, GATHER+12, GATHER+14, GATHER+16, GATHER+17 , GATHER+19, GATHER+20*, GATHER+22, INIT+2, EXIT+1!
APCDPTP	GATHER+1!, HDR+2!, EXIT+1!
APCDPTP(	GATHER+6, GATHER+9, GATHER+12, GATHER+16, GATHER+19, GATHER+22
APCDPTP("IDX"	GATHER+4*
APCDPTP(1	GATHER+2*, HDR+2
APCDQUIT	GATHER+1!
APCDRCNT	GATHER+1, GATHER+2, GATHER+4, GATHER+5, HDR+2, EXIT+1!
>> APCDTP	CMPLDATE+3
APCDTPN	EXIT+1!
>> APCDX	GATHER+5, GATHER+6, GATHER+8, GATHER+9, GATHER+11, GATHER+12, GATHER+15, GATHER+16, GATHER+18, GATHER+19 , GATHER+21, GATHER+22
APCHSPAT	EP1+4~
APCHSTYP	EP1+4~
B	CMPLDATE~, CMPLDATE+1, CMPLDATE+5
C	ADDTPT+4, ADDTPT+6, ADDTPT+13!, CMPLDATE+2~, CMPLDATE+5*, CMPLDATE+6
D	CMPLDATE+2~, CMPLDATE+6*, CMPLDATE+7
>> DA	CMPLDATE+7
DFN	START+8, START+9, GETPAT+1, GETPAT+5*, EP1~, EP1+1, EP1+2, EP1+3, GATHER+2, GATHER+3 , HDR+1
DIADD	ADDTPT+12*!
DIC	GETPAT+3!, ADDTPT+11!, ADDTPT+12!
DIC(0	GETPAT+3, ADDTPT+12
DLAYGO	ADDTPT+12*!
IOF	START+2
J	START+3, START+4!, ADDTPT+6, ADDTPT+7, ADDTPT+8, ADDTPT+13!
U	EP1+3, GATHER+5, GATHER+8, GATHER+13, GATHER+15, HDR+1, ADDTPT+7, CMPLDATE+3
VALMCC	EN+1*, EXIT+2!
>> VALMCNT	INIT+2*
VALMHDR	EP1+7!, EXIT+2!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2, HDR+3
X	START+3, START+4!, EP1+8!, HELP+1, GETTXT2, ADDTPT+4, ADDTPT+5, ADDTPT+13!
Y	GETPAT+4, GETPAT+5, EP1+8!, ADDTPT+5*, ADDTPT+7, ADDTPT+13!

Customize PDF page

Package: Patient Care Component

Routine: APCDETP

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items