Routine: APSPCTR1

Package	Total	Call Graph
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	($$DT,$$FMTE)^XLFDT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPCTR

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;EP
PRINT3	;EP
SUB2
SUB	;W ! F I=1:1:43 W "-"
LOP1
DIVSUB1	;PRINT TOTAL SPECIAL HANDLING CODES
TOTALS	;
PRINT2(DATA)	; EP -
LOP
DIVSUB	;PRINT TOTAL PRESCRIPTIONS/REFILLS
PRINT	;EP
LOOP1
LOOP
HDR	;EP

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	PRINT2+4
$$GET1^DIQ	PRINT2+3, PRINT2+15
$$DT^XLFDT	HDR+7
$$FMTE^XLFDT	PRINT2+15, HDR+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(DATA,U,5),?15,$P(DATA,U,8),?57,$P(DATA,U,6),?64,$$GET1^DIQ(200,$P(DATA,U,14),.01),?83,$$FMTE^XLFDT($P(DATA,U,2),"5Z"),?98,$E($$GET1^DIQ(2,DFN,.01),1,18),?118,HRN,?127,$$GET1^DIQ(200,$P(DATA,U,16),1) Line Location: PRINT2+15
Function Call: WRITE	Prompt: ! Line Location: DIVSUB+1
Function Call: WRITE	Prompt: "-" Line Location: DIVSUB+1
Function Call: WRITE	Prompt: !,"TOTAL # OF PRESCRIPTIONS : ",APSPGT Line Location: DIVSUB+2
Function Call: WRITE	Prompt: ?($X+5),"TOTAL # NEW RX'S : ",TNEW Line Location: DIVSUB+3
Function Call: WRITE	Prompt: ?($X+5),"TOTAL # REFILLS : ",TREFILL Line Location: DIVSUB+4
Function Call: WRITE	Prompt: ?($X+5),"TOTAL # PARTIALS : ",TPARTIAL Line Location: DIVSUB+5
Function Call: WRITE	Prompt: !,@IOF Line Location: DIVSUB+7
Function Call: WRITE	Prompt: ! Line Location: DIVSUB1+1
Function Call: WRITE	Prompt: "-" Line Location: DIVSUB1+1
Function Call: WRITE	Prompt: !,"TOTAL # OF PRESCRIPTIONS : ",APSPGT Line Location: DIVSUB1+2
Function Call: WRITE	Prompt: ?($X+5),"TOTAL # CODE 2's : ",APSPT(2) Line Location: DIVSUB1+3
Function Call: WRITE	Prompt: ?($X+5),"TOTAL # CODES 3-5 : ",APSPT(35) Line Location: DIVSUB1+4
Function Call: WRITE	Prompt: !,@IOF Line Location: DIVSUB1+6
Function Call: WRITE	Prompt: "-" Line Location: SUB+0
Function Call: WRITE	Prompt: ! Line Location: SUB2+0
Function Call: WRITE	Prompt: "-" Line Location: SUB2+0
Function Call: WRITE	Prompt: !,"SUB-TOTAL # OF RX's : ",TCOUNT Line Location: SUB2+1
Function Call: WRITE	Prompt: ?($X+5),"TOTAL QTY : ",TQTY,! Line Location: SUB2+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !!,APSPDV," CONTROLLED DRUG USE LIST (By ",$S(APSPDTDR=1:"DATE",APSPDTDR=2:"Drug",1:"")_" Order)" Line Location: HDR+4
Function Call: WRITE	Prompt: ?73,"Page ",APSPPG Line Location: HDR+5
Function Call: WRITE	Prompt: !,"DATE OF LISTING: " Line Location: HDR+6
Function Call: WRITE	Prompt: $$FMTE^XLFDT($$DT^XLFDT(),"5Z") Line Location: HDR+7
Function Call: WRITE	Prompt: !,"Drug Class: "_APSPDCTN(APSPDCLS) Line Location: HDR+8
Function Call: WRITE	Prompt: !,"All Divisions for: ",$P(^DIC(4,DUZ(2),0),U,1) Line Location: HDR+10
Function Call: WRITE	Prompt: !,"Division: ",$G(APSPDV) Line Location: HDR+11
Function Call: WRITE	Prompt: !!,"This list will include all Prescriptions for any controlled" Line Location: HDR+12
Function Call: WRITE	Prompt: " medications dispensed from " Line Location: HDR+13
Function Call: WRITE	Prompt: APSPBDF," through ",APSPEDF,!! Line Location: HDR+14
Function Call: WRITE	Prompt: !!,"RX #",?13,"DRUG",?57,"QTY",?64,"PHYSICIAN" Line Location: HDR+15
Function Call: WRITE	Prompt: ?83,"DATE FILLED",?98,"PATIENT",?118,"CHART #",?127,"CLERK" Line Location: HDR+16
Function Call: WRITE	Prompt: ! Line Location: HDR+17
Function Call: WRITE	Prompt: "-" Line Location: HDR+17
Function Call: WRITE	Prompt: !!?20,"NO PATIENTS RECEIVED MEDICATION" Line Location: HDR+18
Function Call: WRITE	Prompt: ! Line Location: HDR+19

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HDR+10
^PS(59 - [#59]	HDR+3
^TMP("APSP"	LOOP, LOOP1, LOP, LOP1
^TMP($J	PRINT1+4, PRINT1+7, PRINT1+8, PRINT1+10, PRINT1+11, PRINT1+12, PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+22 , PRINT1+23, HDR+18

Label References

Name	Line Occurrences
DIVSUB	PRINT1+16
DIVSUB1	PRINT1+27
HDR	PRINT1+5, PRINT3+1
LOOP1	LOOP
LOP1	LOP
PRINT	LOOP1, LOP1
PRINT1	PRINT+4
PRINT2	PRINT1+12, PRINT1+23
PRINT3	PRINT2+16
SUB	PRINT1+26, LOOP
SUB2	PRINT1+15, LOP
TOTALS	PRINT1+14, PRINT1+25, LOOP1, LOP1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APSP("2"	SUB+1*
>> APSP("3-5"	PRINT1+3, SUB+1, TOTALS+1*
>> APSP("PAGE"	DIVSUB+6, DIVSUB1+5
>> APSP(2	PRINT1+3, TOTALS+2
>> APSPBDF	HDR+14
>> APSPD	LOOP, LOOP1, LOP1
>> APSPDCLS	HDR+8
>> APSPDCTN(	HDR+8
>> APSPDIV	LOOP, LOOP1, LOP, LOP1, HDR+10
>> APSPDR	LOOP1, LOP, LOP1
>> APSPDTDR	PRINT1+6, TOTALS+1, TOTALS+2, HDR+4
>> APSPDV	HDR+3*, HDR+4, HDR+11
>> APSPEDF	HDR+14
APSPGT	PRINT+1~, PRINT+2, DIVSUB+2, DIVSUB+6, DIVSUB1+2, DIVSUB1+5, TOTALS+3
>> APSPN	LOOP1, LOP1
APSPPG	PRINT+1~, PRINT+2, HDR+2, HDR+5
APSPSH	PRINT1+1~, PRINT1+9, PRINT1+20, LOOP, LOOP1, LOP, LOP1, TOTALS+1, TOTALS+2
APSPT	PRINT+1~
APSPT(2	PRINT1+3, DIVSUB1+3, DIVSUB1+5, TOTALS+2*
APSPT(35	PRINT1+3, DIVSUB1+4, DIVSUB1+5, TOTALS+1*
DATA	PRINT2~, PRINT2+2, PRINT2+5, PRINT2+7, PRINT2+10, PRINT2+15
>> DCOUNT	PRINT+3, PRINT2+6, TOTALS+3*
DFLG	PRINT+1~, PRINT+2, PRINT+5, PRINT1+13, PRINT1+24*
DFN	PRINT2+1~, PRINT2+3*, PRINT2+4, PRINT2+15
DIV	PRINT1+1~, PRINT1+4*, PRINT1+7, PRINT1+8, PRINT1+10, PRINT1+11, PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+22 , HDR+3
DNEW	PRINT+1~, PRINT+3, PRINT2+12, TOTALS+4*
DPARTIAL	PRINT+1~, PRINT+3, PRINT2+8, TOTALS+6*
DREFILL	PRINT+1~, PRINT+3, PRINT2+11, TOTALS+5*
DUZ(2	PRINT2+4, HDR+10
HRN	PRINT2+1~, PRINT2+4*, PRINT2+15
>> I	DIVSUB+1, DIVSUB1+1, SUB2, HDR+17
IOF	DIVSUB+7, DIVSUB1+6, HDR+1
IOM	DIVSUB+1, DIVSUB1+1, HDR+17
IOSL	PRINT3+1
IOST	DIVSUB+7, DIVSUB1+6
LP	PRINT1+1~
LSTFDT	PRINT1+1~, PRINT1+2*
NEWPG	PRINT+1~, PRINT+2*
RX	PRINT2+1~, PRINT2+2*, PRINT2+3
SUB1	PRINT1+1~, PRINT1+7, PRINT1+8, PRINT1+10, PRINT1+11, PRINT1+18, PRINT1+19, PRINT1+21, PRINT1+22
SUB2	PRINT1+1~, PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+19, PRINT1+20, PRINT1+21, PRINT1+22
SUB3	PRINT1+1~, PRINT1+10, PRINT1+11, PRINT1+21, PRINT1+22
SUB4	PRINT1+1~, PRINT1+11, PRINT1+12, PRINT1+22, PRINT1+23
SUB5	PRINT1+1~
>> TCOUNT	PRINT+3, SUB2+1, SUB2+3, TOTALS+3*
>> TNEW	PRINT+3, DIVSUB+3, DIVSUB+6, TOTALS+4*
TPARTIAL	PRINT+1~, PRINT+3, DIVSUB+5, DIVSUB+6, TOTALS+6*
>> TQTY	PRINT+3, PRINT2+5, SUB2+2, SUB2+3*
>> TREFILL	PRINT+3, DIVSUB+4, DIVSUB+6, TOTALS+5*
U	PRINT2+5, PRINT2+7, PRINT2+10, PRINT2+15, HDR+3, HDR+10
VAL	PRINT1+1~
X	HDR+9!
Y	HDR+9!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPCTR1

Information

Source Information

Call Graph

Call Graph Total: 3

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: