Routine: APSPESR2

Package	Total	Call Graph
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Changes To Pharmacy	1	($$DIR,$$GETIEN,ASKDATES)^APSPUTIL
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	^XBDBQUE
Kernel	1	($$FMTE,$$NOW)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;EP
PRINT3	;No divisional counts
EN	;EP
PRINT5	;EP
HDR	;EP
HDR3	;PRINT OUT COLUMNS
DEV	;
SET(RX,IEN,TYPE)	;EP
DASH	;EP
PRINT4(DATA,DIV)	;EP
PRINT2	;Print out by division
FIND(APSPBD,APSPED,APSPFIL,APSPSRT,APSPSRT2)	;EP
CVTDCLS(DCLS)	; EP
HDR1(SRT1)	;EP
DELFLG(RX)	;EP
PRINT	;EP
DIVVRY(RX,DIV)	;EP
HDR2(SRT2)	;EP
OUT	;EP

External References

Name	Field # of Occurrence
$$DIR^APSPUTIL	EN+11, EN+18, EN+21, EN+24, EN+30, EN+33, EN+37, EN+41
$$GETIEN^APSPUTIL	EN+16
ASKDATES^APSPUTIL	EN+6
$$HRN^AUPNPAT	SET+14
$$GET1^DIQ	PRINT2+5, PRINT4+6, PRINT4+8, PRINT4+9, PRINT4+16, PRINT4+17, PRINT4+18, SET+12, SET+14, SET+15 , SET+18, SET+19, HDR+7, HDR1+3, HDR1+4, HDR1+5, HDR2+6, HDR2+9, HDR2+12
^DIR	PRINT5+5
^XBDBQUE	DEV+4
$$FMTE^XLFDT	EN+8, EN+9, PRINT4+5, HDR+3, HDR1+2, HDR2+19, HDR2+26
$$NOW^XLFDT	HDR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+4
Function Call: WRITE	Prompt: !!,"Electronic Prescription failure report by Division" Line Location: EN+5
Function Call: WRITE	Prompt: !,"Division: "_$$GET1^DIQ(59,DIV,.01) Line Location: PRINT2+5
Function Call: WRITE	Prompt: !,"TOTAL Count: "_TOT Line Location: PRINT2+16
Function Call: WRITE	Prompt: !,"TOTAL Count: "_TOT Line Location: PRINT3+13
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,"External Pharmacy Prescriptions Report",?40,$P($TR($$FMTE^XLFDT($$NOW^XLFDT,"5Z"),"@"," "),":",1,2),?(IOM-10),"Page: "_APSPPG Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Report Criteria: (Prescriptions which are marked as auto-finshed)" Line Location: HDR+4
Function Call: WRITE	Prompt: !,?5,"Inclusive Dates: "_APSPBDF_" to "_APSPEDF Line Location: HDR+5
Function Call: WRITE	Prompt: !,?5,"Filtered by: "_$S(APSPFIL=1:"Electronic",APSPFIL=2:"Printed",APSPFIL=3:"Reprinted",1:"All") Line Location: HDR+6
Function Call: WRITE	Prompt: !,?5,"Pharmacy Division: "_$S(APSPDIV:$$GET1^DIQ(59,APSPDIV,.01),1:"All") Line Location: HDR+7
Function Call: WRITE	Prompt: !,?5,"Primary Sort: "_$S(APSPSRT=1:"Print Date",APSPSRT=2:"DEA schedule",APSPSRT=3:"Prescriber",APSPSRT=4:"User",1:"") Line Location: HDR+8
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HDR+9
Function Call: WRITE	Prompt: !,?5,LINE Line Location: HDR1+6
Function Call: WRITE	Prompt: ! Line Location: DASH+2
Function Call: WRITE	Prompt: "-" Line Location: DASH+2
Function Call: WRITE	Prompt: ! Line Location: DASH+3
Routine Call	DIR Line Location: PRINT5+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
52.3	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	SET+9
^PSRX - [#52]	FIND+7, FIND+9, FIND+13, FIND+15, FIND+16, PRINT4+11, PRINT4+12, SET+3, SET+4, SET+5 , SET+6, DIVVRY+2, DELFLG+1
^PSRX("AC"	FIND+5, FIND+6
^TMP("APSPERS"	OUT+2!
^TMP("APSPESR"	OUT+5!, FIND+2!, PRINT2+3, PRINT2+6, PRINT2+8, PRINT2+10, PRINT2+11, PRINT3+3, PRINT3+5, PRINT3+7 , PRINT3+8, PRINT3+10, SET+36, SET+38

Label References

Name	Line Occurrences
$$CVTDCLS	HDR2+3, HDR2+16, HDR2+23
$$DIVVRY	FIND+11
DASH	HDR3+4
DEV	EN+43
FIND	OUT+3
HDR	PRINT+3, PRINT5+6
HDR1	PRINT2+7, PRINT3+4
HDR2	PRINT2+9, PRINT3+6
HDR3	HDR+10
PRINT	OUT+4
PRINT1	PRINT+4
PRINT2	PRINT1+3
PRINT3	PRINT1+4
PRINT4	PRINT2+12, PRINT3+11
PRINT5	PRINT2+5, PRINT4+23, PRINT4+25, PRINT4+27, PRINT4+29, PRINT4+31, PRINT4+33, PRINT4+37
SET	FIND+18, FIND+20, FIND+22, FIND+24, FIND+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	SET+20~, SET+21*, SET+36, SET+38
ACT	FIND+1~, FIND+15*, FIND+16, FIND+18, FIND+20, FIND+22, FIND+24, FIND+26
ACTIEN	FIND+1~
AIEN	PRINT4+1~, PRINT4+2*
ANODE	SET+1~, SET+6*, SET+11, SET+13
APSPBD	EN+1~, EN+6, EN+8, EN+10*, OUT+3, FIND~, FIND+4
APSPBDF	EN+2~, EN+8*, HDR+5
APSPDCLS	EN+1~
APSPDCT	EN+2~
APSPDCTN	EN+2~
APSPDIV	EN+1~, EN+3, EN+11, EN+13, EN+14, EN+16, EN+37, FIND+11, PRINT1+3, PRINT2+5 , SET+35, HDR+7
APSPDRG	EN+2~, EN+3*
APSPDSUB	EN+1~, EN+3*
APSPED	EN+1~, EN+6, EN+9, EN+10*, OUT+3, FIND~, FIND+5
APSPEDF	EN+2~, EN+9*, HDR+5
APSPFIL	EN+2~, EN+18*, OUT+3, FIND~, FIND+18, FIND+20, FIND+22, FIND+24, FIND+26, HDR+6
APSPGRP	EN+2~, EN+36, EN+37, PRINT1+3, SET+35
APSPOUT	EN+2~, EN+40, EN+41, PRINT4+21, PRINT4+35, PRINT4+38, HDR+10, HDR3+1, HDR3+2
APSPPG	PRINT+1~, PRINT+2, HDR+2, HDR+3
APSPQ	EN+1~, EN+3*, EN+6, EN+7, EN+11, EN+12, EN+15, EN+16, EN+18, EN+19 , EN+21, EN+22, EN+24, EN+25, EN+28, EN+30, EN+31, EN+33, EN+34, EN+37 , EN+38, EN+41, EN+42
APSPRTYP	EN+1~
APSPSRT	EN+1~, EN+21*, EN+23, EN+26, EN+29, EN+32, OUT+3, FIND~, SET+22, SET+26 , SET+28, SET+31, HDR+8, HDR1+2, HDR1+3, HDR1+4, HDR1+5, HDR2+1, HDR2+11, HDR2+14 , HDR2+21
APSPSRT2	EN+1~, EN+24, EN+27, EN+30, EN+33, OUT+3, FIND~, SET+23, SET+24, SET+25 , SET+27, SET+29, SET+30, SET+32, SET+33, HDR2+2, HDR2+5, HDR2+8, HDR2+15, HDR2+18 , HDR2+22, HDR2+25
AUTO	FIND+1~, FIND+9*, FIND+10
B	SET+20~, SET+23, SET+24, SET+25, SET+27, SET+29, SET+30, SET+32, SET+33, SET+36 , SET+38
C	SET+20~, SET+23, SET+24, SET+25, SET+27, SET+29, SET+30, SET+32, SET+33, SET+36 , SET+38
CLASS	PRINT4+1~, PRINT4+3*, PRINT4+28, PRINT4+40
CLINIC	PRINT4+1~, PRINT4+18, PRINT4+24, PRINT4+40, SET+8, SET+36, SET+38
CNT	FIND+1~, FIND+3, SET+34, SET+36, SET+38
COM	PRINT4+1~, PRINT4+7, PRINT4+34, PRINT4+40, SET+1~, SET+19, SET+36, SET+38
DASH	DASH+1~, DASH+2*
DATA	PRINT4~, PRINT4+2, PRINT4+3, PRINT4+4, PRINT4+6, PRINT4+7, PRINT4+15, PRINT4+18, PRINT4+19
DAYS	PRINT4+1~, PRINT4+9*, PRINT4+30, PRINT4+40
DCLS	CVTDCLS~, CVTDCLS+1, CVTDCLS+2, CVTDCLS+3, CVTDCLS+4
DEA	PRINT4+1~, PRINT4+3*, PRINT4+28, PRINT4+36, PRINT4+40
DEACLASS	SET+2~, SET+10*, SET+23, SET+27, SET+29, SET+32, SET+36, SET+38
DFLG	PRINT+1~, PRINT+2, PRINT+5, PRINT2+13, PRINT3+9*
DFOUT	PRINT5+4!
DIR	PRINT5+1~
DIR(0	PRINT5+5*
DIRUT	PRINT5+4!
DIV	FIND+1~, FIND+11, FIND+12, PRINT1+2~, PRINT2+1~, PRINT2+3, PRINT2+5, PRINT2+6, PRINT2+8, PRINT2+10 , PRINT2+11, PRINT2+12, PRINT3+1~, PRINT3+7, PRINT3+8, PRINT3+10, PRINT3+11, PRINT4~, PRINT4+16, PRINT4+22 , PRINT4+40, SET+2~, SET+7*, SET+14, SET+21, DIVVRY~, DIVVRY+1, DIVVRY+2
DIVCT	PRINT2+1~, PRINT2+4, PRINT2+14, PRINT2+15
DLOUT	PRINT5+4!
DRCLASS	SET+2~, SET+12*, SET+36, SET+38
DRGNM	SET+2~, SET+9*, SET+36, SET+38
DRUG	PRINT4+1~, PRINT4+3, PRINT4+28, PRINT4+36, PRINT4+40, SET+2~, SET+9, SET+12, SET+27
DT	EN+6
DTOUT	PRINT5+4!
DUOUT	PRINT5+4!
HRN	PRINT4+1~, PRINT4+3, PRINT4+24, PRINT4+36, PRINT4+40, SET+14, SET+36, SET+38
IEN	SET~, SET+6, SET+17, SET+36, SET+38
IENS	PRINT4+1~, SET+1~, SET+17*, SET+18, SET+19
IOF	EN+4, HDR+1
IOM	HDR+3, DASH+2
IOSL	PRINT5+3
IOST	PRINT5+2
LINE	HDR1+1~, HDR1+2, HDR1+3, HDR1+4, HDR1+5, HDR1+6, HDR2+3, HDR2+4, HDR2+6, HDR2+7 , HDR2+9, HDR2+10, HDR2+12, HDR2+13, HDR2+16, HDR2+17, HDR2+19, HDR2+20, HDR2+23, HDR2+24 , HDR2+26, HDR2+27
LSTDSPDT	SET+1~
NODE0	PRINT4+1~, SET+1~, SET+3*, SET+8, SET+9, SET+10, SET+14, SET+15, SET+16
NODE2	SET+1~, SET+4*, SET+7
NODE3	SET+1~, SET+5*
NODE6	PRINT4+1~
NUM	PRINT2+1~, PRINT2+10, PRINT2+11, PRINT3+1~, PRINT3+8, PRINT3+10
PAT	PRINT4+1~, PRINT4+4, PRINT4+24, PRINT4+40, SET+15, SET+36, SET+38
PDAT	PRINT4+4, PRINT4+5, PRINT4+26, PRINT4+36, PRINT4+40, SET+1~, SET+2~, SET+11*, SET+23, SET+24 , SET+25, SET+30, SET+33, SET+36, SET+38
PRINT	SET+2~
PRV	PRINT4+1~, PRINT4+4, PRINT4+17, PRINT4+32, PRINT4+40, SET+2~, SET+8*, SET+24, SET+29, SET+30 , SET+36, SET+38
QTY	PRINT4+1~, PRINT4+8*, PRINT4+30, PRINT4+40
RTSDT	FIND+1~, FIND+4, FIND+5, FIND+6
RX	SET~, SET+3, SET+4, SET+5, SET+6, SET+36, SET+38, DIVVRY~, DIVVRY+2, DELFLG~ , DELFLG+1
RXIEN	FIND+1~, FIND+4, FIND+6, FIND+7, FIND+9, FIND+11, FIND+13, FIND+15, FIND+16, FIND+18 , FIND+20, FIND+22, FIND+24, FIND+26, PRINT4+1~, PRINT4+2*, PRINT4+8, PRINT4+9, PRINT4+11, PRINT4+12 , SET+17
RXNO	PRINT4+15, PRINT4+22, PRINT4+36, PRINT4+40, SET+2~, SET+16, SET+36, SET+38
SCH	PRINT4+1~, PRINT4+10, PRINT4+13, PRINT4+14*, PRINT4+30, PRINT4+40
SRT1	HDR1~, HDR1+2, HDR1+3, HDR1+4, HDR1+5
SRT2	HDR2~, HDR2+3, HDR2+6, HDR2+9, HDR2+12, HDR2+16, HDR2+19, HDR2+23, HDR2+26
SUB1	PRINT1+2~, PRINT2+1~, PRINT2+6, PRINT2+7, PRINT2+8, PRINT2+10, PRINT2+11, PRINT3+1~, PRINT3+3, PRINT3+4 , PRINT3+5, PRINT3+7, PRINT3+8, PRINT3+10
SUB2	PRINT1+2~, PRINT2+1~, PRINT2+8, PRINT2+9, PRINT2+10, PRINT2+11, PRINT3+1~, PRINT3+5, PRINT3+6, PRINT3+7 , PRINT3+8, PRINT3+10
SUB3	PRINT1+2~
SUB4	PRINT1+2~
TOT	PRINT2+1~, PRINT2+2, PRINT2+14, PRINT2+16, PRINT3+1~, PRINT3+2, PRINT3+12, PRINT3+13
TYP	PRINT4+1~, PRINT4+20*, PRINT4+22, PRINT4+36, PRINT4+40
TYPE	OUT+1~, FIND+16, FIND+17, FIND+18, FIND+19, FIND+20, FIND+21, FIND+22, FIND+23, FIND+24 , FIND+25, FIND+26, PRINT4+19, PRINT4+20, SET~, SET+36, SET+38
U	FIND+9, FIND+13, FIND+16, PRINT4+2, PRINT4+3, PRINT4+4, PRINT4+6, PRINT4+7, PRINT4+12, PRINT4+15 , PRINT4+18, PRINT4+19, PRINT4+40, SET+7, SET+8, SET+9, SET+10, SET+11, SET+13, SET+14 , SET+15, SET+16, SET+36, SET+38, DIVVRY+2, HDR3+6
USER	PRINT4+1~, PRINT4+6, PRINT4+32, PRINT4+36, PRINT4+40, SET+1~, SET+13, SET+18*, SET+25, SET+32 , SET+33, SET+36, SET+38
VAL	PRINT1+2~, PRINT2+1~, PRINT2+11, PRINT2+12, PRINT3+1~, PRINT3+10, PRINT3+11
X	PRINT4+1~, PRINT4+11*, PRINT4+12, SET+1~
XBNS	DEV+1~, DEV+3*
XBRP	DEV+1~, DEV+2*
Y	PRINT4+12*, PRINT4+13, PRINT4+14, SET+1~

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPESR2

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: