Routine: APCLRX9P

Package	Total	Call Graph
IHS VA Utilities	2	^XBOFF ^XBON
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	DONE^APCLOSUT
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
NOTE	;Notes at bottom of Report
HEAD
HEAD1	;
TYPE	;
WRITES	;Write the values
AFTER	;Set Variables for after 2 and 3 percentages
NONE	;IHS/PIMC/WAR 10/11/2006 - new SubRtn added
SUMMARY	;Summary Counts and percentages
PRINTRX	;Set % of Total Variables
START	;
DONE	;
PRINT	;
ADJ	;Set Adjustment Variables (After 9:00)

Name	Field # of Occurrence
DONE^APCLOSUT	DONE+1
^DIR	HEAD+1, NONE+4
^XBOFF	NONE+3
^XBON	NONE+1
$$FMTE^XLFDT	PRINT+2, HEAD1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DIVISION: ",$S(APCLDIVN="":"ALL DIVISIONS",1:APCLDIVN) Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"RX RELEASE DATE RANGE: ",$$FMTE^XLFDT(APCLBD)," - ",$$FMTE^XLFDT(APCLED) Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"Total Prescriptions Dispensed: ",APCLGTOT,! Line Location: PRINT+3
Function Call: WRITE	Prompt: ?35,"RX COUNT",?50,"ACT % TOTAL",?65,"ADJ % TOTAL" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?35,"________",?50,"__________",?65,"___________",! Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"AM Prescriptions Dispensed",! Line Location: WRITES+2
Function Call: WRITE	Prompt: "******************************",! Line Location: WRITES+3
Function Call: WRITE	Prompt: "Total RX's Before 8:00: ",?40,APCL1,?55,$J(APCLRX1,3,0),?71,"NA",! Line Location: WRITES+4
Function Call: WRITE	Prompt: "Total RX's 8:00- 8:59: ",?40,APCL2,?55,$J(APCLRX2,3,0),?71,"NA",! Line Location: WRITES+5
Function Call: WRITE	Prompt: "Total RX's 9:00- 9:59: ",?40,APCL3,?55,$J(APCLRX3,3,0),?70,$J(APCLJ3,3,0),! Line Location: WRITES+6
Function Call: WRITE	Prompt: "Total RX's 10:00-10:59: ",?40,APCL4,?55,$J(APCLRX4,3,0),?70,$J(APCLJ4,3,0),! Line Location: WRITES+7
Function Call: WRITE	Prompt: "Total RX's 11:00-11:59: ",?40,APCL5,?55,$J(APCLRX5,3,0),?70,$J(APCLJ5,3,0),! Line Location: WRITES+8
Function Call: WRITE	Prompt: !,"PM Prescriptions Dispensed",! Line Location: WRITES+9
Function Call: WRITE	Prompt: "******************************",! Line Location: WRITES+10
Function Call: WRITE	Prompt: "Total RX's 12:00-12:59: ",?40,APCL6,?55,$J(APCLRX6,3,0),?70,$J(APCLJ6,3,0),! Line Location: WRITES+11
Function Call: WRITE	Prompt: "Total RX's 1:00- 1:59: ",?40,APCL7,?55,$J(APCLRX7,3,0),?70,$J(APCLJ7,3,0),! Line Location: WRITES+12
Function Call: WRITE	Prompt: "Total RX's 2:00- 2:59: ",?40,APCL8,?55,$J(APCLRX8,3,0),?70,$J(APCLJ8,3,0),! Line Location: WRITES+13
Function Call: WRITE	Prompt: "Total RX's 3:00- 3:59: ",?40,APCL9,?55,$J(APCLRX9,3,0),?70,$J(APCLJ9,3,0),! Line Location: WRITES+14
Function Call: WRITE	Prompt: "Total RX's 4:00- 4:59: ",?40,APCL10,?55,$J(APCLRX10,3,0),?70,$J(APCLJ10,3,0),! Line Location: WRITES+15
Function Call: WRITE	Prompt: "Total RX's 5:00- 5:59: ",?40,APCL11,?55,$J(APCLRX11,3,0),?70,$J(APCLJ11,3,0),! Line Location: WRITES+16
Function Call: WRITE	Prompt: "Total RX's 6:00- 6:59: ",?40,APCL12,?55,$J(APCLRX12,3,0),?70,$J(APCLJ12,3,0),! Line Location: WRITES+17
Function Call: WRITE	Prompt: "Total RX's 7:00- 7:59: ",?40,APCL13,?55,$J(APCLRX13,3,0),?70,$J(APCLJ13,3,0),! Line Location: WRITES+18
Function Call: WRITE	Prompt: "Total RX's 8:00- 8:59: ",?40,APCL14,?55,$J(APCLRX14,3,0),?70,$J(APCLJ14,3,0),! Line Location: WRITES+19
Function Call: WRITE	Prompt: "Total RX's 9:00- 9:59: ",?40,APCL15,?55,$J(APCLRX15,3,0),?70,$J(APCLJ15,3,0),! Line Location: WRITES+20
Function Call: WRITE	Prompt: "Total RX's 10:00-10:59: ",?40,APCL16,?55,$J(APCLRX16,3,0),?70,$J(APCLJ16,3,0),! Line Location: WRITES+21
Function Call: WRITE	Prompt: "Total RX's 11:00-11:59: ",?40,APCL17,?55,$J(APCLRX17,3,0),?70,$J(APCLJ17,3,0),! Line Location: WRITES+22
Function Call: WRITE	Prompt: ?35,"________",?53,"________",?69,"________",! Line Location: WRITES+24
Function Call: WRITE	Prompt: ?39,APCLGTOT,?55,"100%",?70,"100%",! Line Location: WRITES+25
Function Call: WRITE	Prompt: !,?30,"*SUMMARY*",! Line Location: SUMMARY+1
Function Call: WRITE	Prompt: "ACT Total-All Hours: ",?30,APCLGTOT,?40,"ADJ Total After 9:00 AM: ",?71,APCLJ,! Line Location: SUMMARY+2
Function Call: WRITE	Prompt: "ACT Percent After 2:00 PM: ",?29,$J(APCLA2P,3,0)_"%",?40,"ADJ Percent After 2:00 PM: ",?70,$J(APCLA2AP,3,0)_"%",! Line Location: SUMMARY+3
Function Call: WRITE	Prompt: "ACT Percent After 3:00 PM: ",?29,$J(APCLA3P,3,0)_"%",?40,"ADJ Percent After 3:00 PM: ",?70,$J(APCLA3AP,3,0)_"%",! Line Location: SUMMARY+4
Function Call: WRITE	Prompt: "ACT Percent After 4:00 PM: ",?29,$J(APCLA4P,3,0)_"%",?40,"ADJ Percentage After 4:00 PM: ",?70,$J(APCLA4AP,3,0),"%",! Line Location: SUMMARY+5
Function Call: WRITE	Prompt: ?30,"*************",! Line Location: NOTE+1
Function Call: WRITE	Prompt: "NOTE: ACT Total includes all hours - ADJ Total excludes all Non-Pharmacy",!,"and evening dispensed RX's that are typically encoded between 8:00-9:00 AM.",! Line Location: NOTE+2
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?3,$P(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?28,"RX ANALYSIS REPORT",! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?20,"RX RELEASE TIME WORKLOAD DISTRIBUTION",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $TR($J("",80)," ","*"),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: !!,"No Prescriptions dispensed, thus no counts to report" Line Location: NONE+2
Function Call: WRITE	Prompt: ! Line Location: NONE+4
Routine Call	DIR Line Location: HEAD+1 NONE+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HEAD1+2
^XTMP("APCLAP9"	DONE+2!

Name	Line Occurrences
HEAD	START+1, TYPE+1, WRITES+1
HEAD1	HEAD
NONE	PRINTRX+1
PRINT	START+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL1	PRINTRX+2, ADJ+2, WRITES+4
>> APCL10	PRINTRX+11, ADJ+30, WRITES+15
>> APCL11	PRINTRX+12, ADJ+31, WRITES+16
>> APCL12	PRINTRX+13, ADJ+32, WRITES+17
>> APCL13	PRINTRX+14, ADJ+33, WRITES+18
>> APCL14	PRINTRX+15, ADJ+34, WRITES+19
>> APCL15	PRINTRX+16, ADJ+35, WRITES+20
>> APCL16	PRINTRX+17, ADJ+36, WRITES+21
>> APCL17	PRINTRX+18, ADJ+37, WRITES+22
>> APCL2	PRINTRX+3, ADJ+2, WRITES+5
>> APCL3	PRINTRX+4, ADJ+23, WRITES+6
>> APCL4	PRINTRX+5, ADJ+24, WRITES+7
>> APCL5	PRINTRX+6, ADJ+25, WRITES+8
>> APCL6	PRINTRX+7, ADJ+26, WRITES+11
>> APCL7	PRINTRX+8, ADJ+27, WRITES+12
>> APCL8	PRINTRX+9, ADJ+28, WRITES+13
>> APCL9	PRINTRX+10, ADJ+29, WRITES+14
>> APCLA2AP	AFTER+4*, SUMMARY+3
>> APCLA2P	AFTER+2*, SUMMARY+3
>> APCLA3AP	AFTER+5*, SUMMARY+4
>> APCLA3P	AFTER+3*, SUMMARY+4
>> APCLA4AP	AFTER+8*, SUMMARY+5
>> APCLA4P	AFTER+7*, SUMMARY+5
>> APCLBD	PRINT+2
>> APCLBT	DONE+2
>> APCLDIVN	PRINT+1
>> APCLED	PRINT+2
>> APCLGTOT	PRINT+3, PRINTRX+1, PRINTRX+2, PRINTRX+3, PRINTRX+4, PRINTRX+5, PRINTRX+6, PRINTRX+7, PRINTRX+8, PRINTRX+9 , PRINTRX+10, PRINTRX+11, PRINTRX+12, PRINTRX+13, PRINTRX+14, PRINTRX+15, PRINTRX+16, PRINTRX+17, PRINTRX+18, ADJ+2 , WRITES+25, SUMMARY+2
>> APCLJ	ADJ+2*, ADJ+22, ADJ+23, ADJ+24, ADJ+25, ADJ+26, ADJ+27, ADJ+28, ADJ+29, ADJ+30 , ADJ+31, ADJ+32, ADJ+33, ADJ+34, ADJ+35, ADJ+36, ADJ+37, SUMMARY+2
>> APCLJ10	ADJ+20, ADJ+30, AFTER+4, AFTER+5, AFTER+8, WRITES+15
>> APCLJ11	ADJ+21, ADJ+31, AFTER+4, AFTER+5, AFTER+8, WRITES+16
>> APCLJ12	ADJ+21, ADJ+32, AFTER+4, AFTER+5, AFTER+8, WRITES+17
>> APCLJ13	ADJ+21, ADJ+33, AFTER+4, AFTER+5, AFTER+8, WRITES+18
>> APCLJ14	ADJ+21, ADJ+34, AFTER+4, AFTER+5, AFTER+8, WRITES+19
>> APCLJ15	ADJ+21, ADJ+35, AFTER+4, AFTER+5, AFTER+8, WRITES+20
>> APCLJ16	ADJ+21, ADJ+36, AFTER+4, AFTER+5, AFTER+8, WRITES+21
>> APCLJ17	ADJ+21, ADJ+37, AFTER+4, AFTER+5, AFTER+8, WRITES+22
>> APCLJ3	ADJ+20, ADJ+23, WRITES+6
>> APCLJ4	ADJ+20, ADJ+24, WRITES+7
>> APCLJ5	ADJ+20, ADJ+25, WRITES+8
>> APCLJ6	ADJ+20, ADJ+26, WRITES+11
>> APCLJ7	ADJ+20, ADJ+27, WRITES+12
>> APCLJ8	ADJ+20, ADJ+28, AFTER+4, WRITES+13
>> APCLJ9	ADJ+20, ADJ+29, AFTER+4, AFTER+5, WRITES+14
>> APCLJOB	DONE+2
>> APCLPG	START+1, HEAD, HEAD1+1, HEAD1+2
APCLQUIT	START+2!, TYPE+1, WRITES+1, HEAD+1, NONE+4
>> APCLRX1	PRINTRX+2*, WRITES+4
>> APCLRX10	PRINTRX+11*, AFTER+2, AFTER+3, AFTER+7, WRITES+15
>> APCLRX11	PRINTRX+12*, AFTER+2, AFTER+3, AFTER+7, WRITES+16
>> APCLRX12	PRINTRX+13*, AFTER+2, AFTER+3, AFTER+7, WRITES+17
>> APCLRX13	PRINTRX+14*, AFTER+2, AFTER+3, AFTER+7, WRITES+18
>> APCLRX14	PRINTRX+15*, AFTER+2, AFTER+3, AFTER+7, WRITES+19
>> APCLRX15	PRINTRX+16*, AFTER+2, AFTER+3, AFTER+7, WRITES+20
>> APCLRX16	PRINTRX+17*, AFTER+2, AFTER+3, AFTER+7, WRITES+21
>> APCLRX17	PRINTRX+18*, AFTER+2, AFTER+3, AFTER+7, WRITES+22
>> APCLRX2	PRINTRX+3*, WRITES+5
>> APCLRX3	PRINTRX+4*, WRITES+6
>> APCLRX4	PRINTRX+5*, WRITES+7
>> APCLRX5	PRINTRX+6*, WRITES+8
>> APCLRX6	PRINTRX+7*, WRITES+11
>> APCLRX7	PRINTRX+8*, WRITES+12
>> APCLRX8	PRINTRX+9*, AFTER+2, WRITES+13
>> APCLRX9	PRINTRX+10*, AFTER+2, AFTER+3, WRITES+14
>> APCLTOT	START+1*
DIR	HEAD+1!, NONE+4!
DIR(0	HEAD+1, NONE+4
DT	HEAD1+2
>> DTOUT	HEAD+1, NONE+4
DUZ(2	HEAD1+2
IO	HEAD+1, NONE+4
IO(0	HEAD+1, NONE+4
IOF	HEAD1+1
IOSL	TYPE+1, WRITES+1
IOST	HEAD+1, NONE+4
U	HEAD1+2
>> Y	HEAD+1, NONE+4

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLRX9P

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: