Routine: APCLLT

Package	Total	Call Graph
VA Fileman	5	%XY^%RCR ^DIC ^DIE ^DIK ^DIR
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
IHS VA Utilities	2	^XBFMK EN^XBVK
Patient Care Component Reports	2	(DIC,DIE,DIR)^APCLLTD ^APCLLTZ
Kernel	1	DISP^XQORM1

Entry Points

Name	Comments	DBIA/ICR reference
REGISTER	;
MULTIPLE	;EP;UTILTIY TO SELECT MULTIPLE PATIENTS FOR WHICH TO PRINT APCLLT LETTER
HDR	;EP
VARS	;CONVERT VARIABLES
PATIENT	;SELECT INDIVIDUAL PATIENTS TO PRINT LETTER
E11
S1
BACK
PRIMARY	;EP;TO PRINT PROVIDER NAME IN A LETTER
DATE	;EP;TO PRINT LETTER DATE
EXPND	; -- expand code
P1	;
NOREG	;EP;CREATE LETTER WITHOUT REGISTER
PRINT	;EP;TO PRINT APCLLT LETTER
LINE	;
SELECT	;EP;TO SELECT APCLLT LETTER
HELP	; -- help code
CASE	;EP;TO PRINT PROVIDER NAME IN A LETTER
I8	;;CASE MANAGER NAME;;16
LAST	;EP;TO PRINT PATIENT NAME IN A LETTER
I1	;;FIRST NAME;;2
I3	;;CHART
I2	;;LAST NAME;;2
I5	;;DATE
I4	;;ADDRESS;;2
I7	;;PHN;;16
I6	;;PRIMARY PROVIDER NAME;;16
A1
COHORT	;EP;TO ESTABLISH COHORT OF PATIENTS TO PRINT
PATLET	;EP;TO SELECT AND PROCESS PATIENT LETTER
ILIST	;LIST ITEM TEXT
C1
EN	;
ZIS	;EP;TO SELECT DEVICE ON WHICH TO PRINT APCLLT LETTER
INSERT	;EP;TO LIST INSERT ITEMS
CPRINT	;EP;TO PRINT LETTERS FROM LIST OR TEMPLATE
ADD	;EP;TO ADD APCLLT LETTERS
Z(X)	;SET TMP NODE
INTP	;INTERPRET VARIABLES
WHICH	;EP;TO IDENTIFY WHICH LETTER TO USE
FOLLOW	;EP;TO PRINT FOLLOW-UP MESSAGE
PAUSE	;EP
FIRST	;EP;TO PRINT PATIENT NAME IN A LETTER
PHN	;EP;TO PRINT PHN NAME IN A LETTER
VALM(APCLLTVM)	;EP; -- main entry point for list templates
LINIT	;EP;TO CREATE ARRAY OF NAMES OF EXISTING LETTERS
EDIT	;EP;TO EDIT APCLLT LETTER
LIST	;LIST LETTERS
CHART	;EP;TO PRINT PATIENT CHART NUMBER
REG1	;
PARSE	;DIVIDE UP THE LETTER CONTENT
ITEXT	;;
EXIT	;
TEMPLATE	;SELECT SEARCH TEMPLATE
ADDRESS	;EP;TO PRINT PATIENT'S ADDRESS IN A LETTER
DELETE	;DELETE LETTER

External References

Name	Field # of Occurrence
%XY^%RCR	PARSE+12
DIC^APCLLTD	A1+7
DIE^APCLLTD	E11+4
DIR^APCLLTD	S1+3
^APCLLTZ	ZIS+5
^DIC	A1+25, P1+6, TEMPLATE+5, REGISTER+5
^DIE	A1+30
^DIK	DELETE+5
^DIR	A1+18, C1+5, PAUSE+1, REGISTER+9
EN^VALM	VALM+7
TERM^VALM0	VALM+5
CLEAR^VALM1	VALM+6, VALM+8, A1, E11, PRINT+2
FULL^VALM1	A1+11
^XBFMK	A1+21, A1+29, A1+30
EN^XBVK	EN+1, A1+28
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !?16,"------------------------------" Line Location: A1+6
Function Call: WRITE	Prompt: !!,"You can associate this letter with a Case Management System letter if you wish." Line Location: A1+12
Function Call: WRITE	Prompt: !,"If you tie it to a CMS Register you will be able to pull items such" Line Location: A1+13
Function Call: WRITE	Prompt: !,"as Where Followed and Case Manager from the register to insert in your" Line Location: A1+14
Function Call: WRITE	Prompt: !,"letter." Line Location: A1+15
Function Call: WRITE	Prompt: ! Line Location: A1+16
Function Call: WRITE	Prompt: !!,"No register selected." Line Location: A1+26
Function Call: WRITE	Prompt: ! Line Location: S1+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF Line Location: LIST+3
Function Call: WRITE	Prompt: !!?5,"APCLLT letters currently on file:" Line Location: LIST+4
Function Call: WRITE	Prompt: !!,"NO. LETTER" Line Location: LIST+5
Function Call: WRITE	Prompt: ?27,"NO. LETTER" Line Location: LIST+6
Function Call: WRITE	Prompt: ?54,"NO. LETTER" Line Location: LIST+7
Function Call: WRITE	Prompt: !,"--- --------------------" Line Location: LIST+8
Function Call: WRITE	Prompt: ?27,"--- --------------------" Line Location: LIST+9
Function Call: WRITE	Prompt: ?54,"--- --------------------" Line Location: LIST+10
Function Call: WRITE	Prompt: ! Line Location: ADDRESS+2
Function Call: WRITE	Prompt: $P(Z,U) Line Location: ADDRESS+4
Function Call: WRITE	Prompt: ! Line Location: ADDRESS+13
Function Call: WRITE	Prompt: $P(Z,U,4),", ",$P($G(^DIC(5,+$P(Z,U,5),0)),U,2)," ",$P(Z,U,6) Line Location: ADDRESS+15
Function Call: WRITE	Prompt: !!,"No patients selected." Line Location: C1+11
Function Call: WRITE	Prompt: !!,"No register selected." Line Location: REGISTER+6
Function Call: WRITE	Prompt: !,"No patients with that status in that register!" Line Location: REG1+5
Function Call: WRITE	Prompt: !!,"There are ",APCLCNT," patients in the ",$P(^ACM(41.1,APCLREG,0),U)," register with a status of ",APCLSTAT,".",!! Line Location: REG1+6
Routine Call	VALM Line Location: VALM+7
Routine Call	DIE Line Location: A1+30
Routine Call	DIC Line Location: A1+25 P1+6 TEMPLATE+5 REGISTER+5
Routine Call	DIR Line Location: A1+18 C1+5 PAUSE+1 REGISTER+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^APCLLET - [#9001004.6]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	INTP+3
^ACM(41 - [#9002241]	CASE+2, PHN+2, REG1+2, REG1+3, REG1+4
^ACM(41.1 - [#9002241.1]	REG1+6
^APCLLET - [#9001004.6]	PRINT+6, PRINT+7, PARSE+4, PARSE+5, LIST+16
^APCLLET("B"	LINIT+12, LINIT+14, LIST+13, LIST+15
^AUPNPAT - [#9000001]	CHART+1, PRIMARY+1
^DD("DD"	DATE+3
^DIBT(	TEMPLATE+8
^DIC(5 - [#5]	ADDRESS+15
^DPT - [#2]	FIRST+1, LAST+1, ADDRESS+1
^TMP($J	EXIT+3!, LINIT+2!, ILIST+1!, Z+2, COHORT+6, C1!, C1+11, P1+9, TEMPLATE+8, CPRINT+2 , REG1+2!, REG1+3, REG1+4*, REG1+5
^VA(200 - [#200]	PRIMARY+2, CASE+3, PHN+3

Label References

Name	Line Occurrences
@(	INTP+9
A1	ADD+2, WHICH+2
BACK	A1+9, A1+19, A1+20, A1+26, EDIT+3, E11+6, INSERT+3, DELETE+2, DELETE+6
C1	COHORT+3
E11	ADD+3
EXIT	VALM+9, ADD+1, EDIT+1
INTP	PRINT+8
LINE	PARSE+8
LIST	SELECT+2
P1	PATIENT+2
PARSE	E11+5
PATIENT	C1+8
PAUSE	C1+11, REG1+7
PRINT	CPRINT+2
REGISTER	C1+10
S1	EDIT+2, DELETE+1
SELECT	PATLET+1, COHORT+1
TEMPLATE	C1+9
VALM	EN+3, NOREG+4, INSERT+2
VARS	PARSE+7
Z	LINIT+6, LINIT+9, LINIT+19, ILIST+7, ILIST+10, ILIST+19, ILIST+21, ILIST+23, ILIST+25, ILIST+27 , ILIST+29, ILIST+31, ILIST+33, ILIST+35, ILIST+37, ILIST+39, ILIST+41
ZIS	PATLET+4, COHORT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	PARSE+10*
>> %Y	PARSE+11*
A	PRINT+4~, ILIST+14, ILIST+15*, ILIST+18
APCL	LIST+2~, LIST+12, LIST+13, LIST+15, LIST+20, LIST+25
>> APCLBROW	COHORT+5*
>> APCLCNT	REG1+2, REG1+3, REG1+4*, REG1+6
APCLLT	NOREG+1~
APCLLT("NOREG"	NOREG+2*
APCLLT("STATUS"	FOLLOW+1*
APCLLTJ	S1, LINIT+2!, LINIT+10, LINIT+15, LINIT+17, LINIT+20, LIST+11, LIST+19, LIST+20, LIST+21 , LIST+22, LIST+23, LIST+24
>> APCLLTJB	PATLET+3, COHORT+6, C1+1, P1+9, TEMPLATE+8, CPRINT+2, REG1+2, REG1+3, REG1+4, REG1+5
APCLLTLD	EXIT+1!, ADD+3, A1+1!, A1+8, A1+30, S1+5, E11+1, PRINT+1, PRINT+6, PRINT+7 , PARSE+4, PARSE+5, PARSE+11, PATLET+2, DELETE+3, COHORT+2
APCLLTOT	EXIT+1!, SELECT+1!
APCLLTQT	VALM+2, EXIT+1!, SELECT+1!, S1+4, EDIT+3!, DELETE+2!, COHORT+4, C1+7, PATIENT+1!, PATIENT+2 , PATIENT+3!, P1+8*
APCLLTTP	PARSE+1~, PARSE+9, LIST+1!
APCLLTTP(	S1+4, S1+5, LINIT+20, LINE+3, LINE+7, LINE+11, LIST+20*
APCLLTVM	EN+2, EN+3, NOREG+3, NOREG+4, VALM~, VALM+7, INSERT+1*, INSERT+2
APCLLTX	LIST+2~, LIST+14, LIST+15, LIST+16, LIST+20
APCLLTY	LIST+2~, LIST+16*, LIST+17, LIST+18
APCLLTZ	LIST+2~
APCLREG	VALM+3!, A1+17, A1+27, A1+30, LIST+18, CASE+1, CASE+2, PHN+1, PHN+2, C1+10! , REGISTER+1!, REGISTER+7*, REG1+2, REG1+6
>> APCLRTN	ZIS+1, COHORT+7
>> APCLSTAT	REGISTER+11*, REG1+3, REG1+4, REG1+6
>> APCLXCNT	PRINT+3, CPRINT+1, CPRINT+2
>> APCLZDIC	A1+24, REGISTER+4
APCLZZZ	INTP+1~, INTP+5*, ADDRESS+3, ADDRESS+7, ADDRESS+11, ADDRESS+14
B	PRINT+4~
C	PRINT+4~
D	PRINT+4~
DA	A1+18!, A1+30, E11+1, DELETE+3*, REGISTER+9!
>> DFN	PRINT+1, FIRST+1, LAST+1, CHART+1, ADDRESS+1, PRIMARY+1, CPRINT+1, CPRINT+2
DIC	A1+3, A1+23, P1+1~, P1+2, P1+7!, TEMPLATE+1~, TEMPLATE+2, TEMPLATE+6!, REGISTER+1!, REGISTER+3*
DIC("A"	A1+4, A1+23, P1+5, REGISTER+3
DIC("DR"	A1+5*
DIC("S"	A1+24, P1+4, TEMPLATE+4, REGISTER+4
DIC(0	A1+2, A1+5, A1+22, WHICH+1, P1+3, TEMPLATE+3, REGISTER+2
>> DIE	A1+23, A1+30, E11+2, REGISTER+3
>> DIK	DELETE+4*
DIR	A1+18!, C1+2~, C1+6!, PAUSE+1!, REGISTER+9!
DIR("A"	A1+18, S1+1, C1+4, PAUSE+1, REGISTER+9*
DIR("B"	A1+18, REGISTER+9
DIR(0	A1+18, S1, C1+3, PAUSE+1, REGISTER+9*
>> DIRUT	A1+19, PAUSE+1*, REGISTER+10
>> DLAYGO	A1+5*
>> DR	A1+30, E11+3
DT	A1+5, DATE+2
>> DUOUT	PAUSE+1
DUZ	A1+5
DUZ(2	CHART+1
I	INTP+6, PARSE+1~, VARS+1~, VARS+3, LINE+4*
IO	PRINT+2
IO(0	PRINT+2
IOF	PRINT+3, LIST+3
IOST	PRINT+2
J	INTP+6, INTP+7, INTP+10, ILIST+2~, ILIST+12, ILIST+17, PARSE+1~, PARSE+3, VARS+1~, VARS+3 , VARS+7, LINE+2, LINE+3, LINE+6, LINE+7, LINE+11*
K	INTP+1~, INTP+7, INTP+9, PARSE+1~, VARS+1~, LINE+4, LINE+5, LINE+9, LINE+10
U	LIST+18, LIST+20, FIRST+1, LAST+1, CHART+1, ADDRESS+4, ADDRESS+5, ADDRESS+8, ADDRESS+9, ADDRESS+12 , ADDRESS+15, PRIMARY+1, PRIMARY+2, CASE+2, CASE+3, PHN+2, PHN+3, REG1+3, REG1+4, REG1+6
>> VALMBCK	BACK*
>> VALMCC	VALM+4*
>> VALMCNT	LINIT+3, ILIST+4, Z+1*, Z+2
VALMHDR	HDR+1!
VALMHDR(1	HDR+2*
X	HELP+1, PRINT+4~, PRINT+5, PRINT+6, PRINT+7, INTP+1~, INTP+2, LINIT+1~, LINIT+4!, LINIT+5* , LINIT+6, LINIT+7!, LINIT+8, LINIT+9, LINIT+16!, LINIT+17, LINIT+18, LINIT+19, ILIST+2~, ILIST+5! , ILIST+6, ILIST+7, ILIST+8!, ILIST+9, ILIST+10, ILIST+16!, ILIST+17, ILIST+18, ILIST+19, ILIST+20 , ILIST+21, ILIST+22, ILIST+23, ILIST+24, ILIST+25, ILIST+26, ILIST+27, ILIST+28, ILIST+29, ILIST+30* , ILIST+31, ILIST+32, ILIST+33, ILIST+34, ILIST+35, ILIST+36, ILIST+37, ILIST+38, ILIST+39, ILIST+40* , ILIST+41, PARSE+1~, PARSE+3, PARSE+4, PARSE+5, VARS+1~, VARS+5, VARS+6, VARS+7, Z~ , Z+2, REG1+2, REG1+3, REG1+4
Y	A1+8, A1+9, A1+20, A1+26, A1+27, S1+4, S1+5, PRINT+4~, PRINT+7, PRINT+8 , PRINT+9, INTP+2, INTP+4, INTP+5, INTP+6, INTP+11, LINIT+11, LINIT+12, LINIT+14, LINIT+18 , ILIST+2~, PARSE+1~, PARSE+5, PARSE+6, PARSE+7, VARS+3, VARS+7, LINE+1, LINE+3, LINE+4 , DATE+1~, DATE+2*, DATE+4, C1+7, C1+8, C1+9, C1+10, P1+8, P1+9, TEMPLATE+7 , TEMPLATE+8, REGISTER+6, REGISTER+7, REGISTER+11
Z	PRINT+4~, INTP+10, LINIT+13, LINIT+14, LINIT+20, ILIST+2~, PARSE+1~, PARSE+2, VARS+1~, VARS+5 , LINE+5, LINE+7, LINE+8, LINE+9, LINE+10, LINE+11, FIRST+1, FIRST+2, LAST+1, LAST+2* , CHART+1, ADDRESS+1, ADDRESS+4, ADDRESS+5, ADDRESS+8, ADDRESS+9, ADDRESS+12, ADDRESS+15, ADDRESS+16, PRIMARY+1 , PRIMARY+2, PRIMARY+3, CASE+2, CASE+3, CASE+4, PHN+2, PHN+3, PHN+4, DATE+4*
>> ZTDESC	ZIS+2*
>> ZTRTN	ZIS+1*
>> ZTSAVE("ACM*"	ZIS+3*
>> ZTSAVE("DFN"	ZIS+4*
ZZ	INTP+1~, INTP+4, INTP+8, INTP+10, INTP+11, ILIST+2~, ILIST+3, ILIST+13, PARSE+1~, PARSE+2* , VARS+2, VARS+4, ADDRESS+16

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLLT

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items