Routine: APSPSWKL

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

Entry Points

Name	Comments	DBIA/ICR reference
PRT2	;Print all providers
EN	;EP
HDR2	; Hader for all users
PAUS	;
HDR1	; Header for individual users
FIND(SDT,EDT,XREF)	;EP
DIVVRY(RX,DIV,TYP,SIEN)	;EP
DSPRDT(RX,TYP,SIEN)	;EP
DEV	;
PRINT	;Print out the report
NEW(RXIEN,IEN)	;Find new prescriptions
REFILL(RXIEN,IEN)	;Find refills
SETNEW(PHARM)	;Set the pharmacist data
PRT1	;Print individual providers
ROUND(VAL,SD)	;
SETRFILL(PHARM)	;Set provider data
OUT	;EP

External References

Name	Field # of Occurrence
$$DIR^APSPUTIL	EN+13, EN+20
$$DIRYN^APSPUTIL	EN+33
$$GETIEN^APSPUTIL	EN+18
$$GETIEN1^APSPUTIL	EN+24
ASKDATES^APSPUTIL	EN+8
$$GET1^DIQ	EN+26, EN+27, FIND+7, FIND+11, SETNEW+2, SETRFILL+2
^DIR	PAUS+4
^XBDBQUE	DEV+4
$$FMTE^XLFDT	EN+10, EN+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+6
Function Call: WRITE	Prompt: !!,"Pharmacy Staff Workload Report" Line Location: EN+7
Function Call: WRITE	Prompt: !!,?50,"Total New RX: "_$P(APSPTOT,U,1) Line Location: PRT1+8
Function Call: WRITE	Prompt: !,?50,"Total Refills: "_$P(APSPTOT,U,2) Line Location: PRT1+9
Function Call: WRITE	Prompt: !,?50,"GRAND TOTAL: "_$P(APSPTOT,U,3) Line Location: PRT1+10
Function Call: WRITE	Prompt: !!,?50,"Total New RX: "_$P(APSPTOT,U,1) Line Location: PRT2+14
Function Call: WRITE	Prompt: !,?50,"Total Refills: "_$P(APSPTOT,U,2) Line Location: PRT2+15
Function Call: WRITE	Prompt: !,?50,"GRAND TOTAL: "_$P(APSPTOT,U,3) Line Location: PRT2+16
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+2
Function Call: WRITE	Prompt: !,"Pharmacist Workload Report: Individual Users" Line Location: HDR1+3
Function Call: WRITE	Prompt: !,"Pharmacy User",?30,"New",?40,"Refills",?50,"Total" Line Location: HDR1+4
Function Call: WRITE	Prompt: ! Line Location: HDR1+5
Function Call: WRITE	Prompt: "-" Line Location: HDR1+5
Function Call: WRITE	Prompt: ! Line Location: HDR1+6
Function Call: WRITE	Prompt: @IOF Line Location: HDR2+2
Function Call: WRITE	Prompt: !,"Pharmacist Workload Report: All Users" Line Location: HDR2+3
Function Call: WRITE	Prompt: !,"Pharmacy User",?30,"New",?40,"% total",?50,"Refills",?60,"% total",?70,"Total" Line Location: HDR2+4
Function Call: WRITE	Prompt: ! Line Location: HDR2+5
Function Call: WRITE	Prompt: "-" Line Location: HDR2+5
Function Call: WRITE	Prompt: ! Line Location: HDR2+6
Routine Call	DIR Line Location: PAUS+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	FIND+3, FIND+5, FIND+6, FIND+10, NEW+2, REFILL+2, DIVVRY+2, DSPRDT+1
^TMP("APSPW"	EN+3!, OUT+5!, SETNEW+4, SETNEW+5, SETNEW+8, SETNEW+9, SETNEW+10, SETRFILL+4, SETRFILL+5, SETRFILL+8* , SETRFILL+9, SETRFILL+10*, PRT1+3, PRT1+4, PRT2+3, PRT2+4
^TMP($J	OUT+2!

Label References

Name	Line Occurrences
$$DIVVRY	FIND+12
$$DSPRDT	FIND+13
$$ROUND	PRT2+8, PRT2+10
DEV	EN+36
FIND	OUT+3
HDR1	PRT1+2, PRT1+6
HDR2	PRT2+2, PRT2+12
NEW	FIND+14
PAUS	PRT1+6, PRT2+12
PRINT	OUT+4
PRT1	PRINT+2
PRT2	PRINT+3
REFILL	FIND+15
SETNEW	NEW+3, NEW+5
SETRFILL	REFILL+3, REFILL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%NEW	PRINT+1~, PRT2+7, PRT2+8, PRT2+11
%RFILL	PRINT+1~, PRT2+9, PRT2+10, PRT2+11
A0	FIND+1~
ACTIEN	FIND+1~
AOSOQ	EN+1~
APSPBD	EN+2~, EN+8, EN+10, EN+12*, OUT+3
APSPBDF	EN+1~, EN+10*
APSPCLAS	EN+2~, EN+26*, EN+28
APSPCNT	EN+1~, EN+4, EN+30
APSPDARY	EN+2~, EN+21*
APSPDARY(	EN+29*, NEW+5, REFILL+5
APSPDIV	EN+1~, EN+4, EN+13, EN+15, EN+16, EN+18, FIND+12
APSPED	EN+2~, EN+8, EN+11, EN+12*, OUT+3
APSPEDF	EN+1~, EN+11*
APSPNAME	EN+1~, EN+27*, EN+29, EN+32
APSPNUM	EN+1~, EN+20*, EN+21, EN+22, NEW+3, NEW+4, REFILL+3, REFILL+4, PRINT+2, PRINT+3
APSPQ	EN+2~, EN+4, EN+8, EN+9, EN+13, EN+14, EN+17, EN+18, EN+19, EN+20 , EN+33, EN+34, EN+35, PRT1+6, PRT1+7, PRT2+12, PRT2+13, PAUS+5
APSPTOT	EN+2~, EN+5, SETNEW+11, SETNEW+13, SETRFILL+11, SETRFILL+13*, PRT1+8, PRT1+9, PRT1+10, PRT2+6 , PRT2+14, PRT2+15, PRT2+16
APSPTYP	EN+2~, EN+4*
APSPUSR	EN+1~, EN+4, EN+24, EN+25, EN+26, EN+27, EN+29
DATA	SETNEW+1~, SETNEW+5, SETNEW+6, SETRFILL+1~, SETRFILL+5, SETRFILL+6
DIR	PAUS+1~
DIR("?"	PAUS+2*
DIR("A"	PAUS+3*
DIR(0	PAUS+3*
DIV	DIVVRY~, DIVVRY+1, DIVVRY+2
DT	EN+8
DTOUT	PAUS+1~
DUOUT	PAUS+1~, PAUS+5
EDT	FIND~, FIND+3
FDTLP	FIND+1~, FIND+2, FIND+3, FIND+5, FIND+10
FILLDT	FIND+1~
GT	SETNEW+1~, SETNEW+11, SETNEW+12, SETNEW+13, SETRFILL+1~, SETRFILL+11, SETRFILL+12, SETRFILL+13
IEN	FIND+1~, FIND+10*, FIND+11, FIND+12, FIND+13, FIND+14, FIND+15, NEW~, REFILL~, REFILL+2
IO	OUT+1
IOF	EN+6, HDR1+2, HDR2+2
IOSL	PRT1+6, PRT2+12
IOST	PRT1+6, PRT2+12, HDR1+2, HDR2+2
LIN	HDR1+1~, HDR1+5, HDR2+1~, HDR2+5
NNUM	PRT2+1~, PRT2+5*, PRT2+8, PRT2+11
NP	SETNEW+1~, SETNEW+6, SETNEW+7, SETNEW+8, SETRFILL+1~, SETRFILL+6*, SETRFILL+8
NT	SETNEW+1~, SETNEW+11, SETNEW+12, SETNEW+13, SETRFILL+1~, SETRFILL+11*, SETRFILL+13
NTOT	PRT2+1~, PRT2+6*, PRT2+7, PRT2+8
NUMBERS	PRINT+1~, PRT1+1~, PRT1+4, PRT1+5, PRT2+1~, PRT2+4, PRT2+5
PHARM	FIND+1~, NEW+1~, NEW+2, NEW+3, NEW+5, SETNEW~, SETNEW+2, REFILL+1~, REFILL+2, REFILL+3 , REFILL+5, SETRFILL~, SETRFILL+2, PRINT+1~, PRT1+1~, PRT1+3, PRT1+4, PRT1+5, PRT2+1~, PRT2+3 , PRT2+4, PRT2+11
PHARNAME	SETNEW+1~, SETNEW+2, SETNEW+3, SETNEW+4, SETNEW+5, SETNEW+8, SETNEW+9, SETNEW+10, SETRFILL+1~, SETRFILL+2* , SETRFILL+3*, SETRFILL+4, SETRFILL+5, SETRFILL+8, SETRFILL+9, SETRFILL+10
QFLG	EN+2~, EN+23, EN+25, EN+33, EN+34*
RNUM	PRT2+1~, PRT2+5*, PRT2+10, PRT2+11
RP	SETNEW+1~, SETNEW+6, SETNEW+8, SETRFILL+1~, SETRFILL+6, SETRFILL+7*, SETRFILL+8
RT	SETNEW+1~, SETNEW+11, SETNEW+13, SETRFILL+1~, SETRFILL+11, SETRFILL+12*, SETRFILL+13
RTOT	PRT2+1~, PRT2+6*, PRT2+9, PRT2+10
RTSDT	FIND+1~
RX	DIVVRY~, DIVVRY+2, DSPRDT~, DSPRDT+1
RXIEN	FIND+1~, FIND+4, FIND+5, FIND+6, FIND+7, FIND+10, FIND+11, FIND+12, FIND+13, FIND+14 , FIND+15, NEW~, NEW+2, REFILL~, REFILL+2
SD	ROUND~, ROUND+1, ROUND+2
SDT	FIND~, FIND+2
SIEN	DIVVRY~, DIVVRY+2, DSPRDT~, DSPRDT+1
TOT	PRINT+1~, PRT2+1~, PRT2+5*, PRT2+11
TP	SETNEW+1~, SETNEW+6, SETNEW+7, SETNEW+8, SETRFILL+1~, SETRFILL+6, SETRFILL+7, SETRFILL+8
TYP	DIVVRY~, DIVVRY+2, DSPRDT~, DSPRDT+1
U	EN+5, FIND+6, NEW+2, SETNEW+6, SETNEW+8, SETNEW+10, SETNEW+11, SETNEW+13, REFILL+2, SETRFILL+6 , SETRFILL+8, SETRFILL+10, SETRFILL+11, SETRFILL+13, DIVVRY+2, DSPRDT+1, PRT1+5, PRT1+8, PRT1+9, PRT1+10 , PRT2+5, PRT2+6, PRT2+14, PRT2+15, PRT2+16
VAL	ROUND~, ROUND+1, ROUND+2
XBNS	DEV+1~, DEV+3*
XBRP	DEV+1~, DEV+2*
XREF	FIND~, FIND+3, FIND+5, FIND+10, FIND+12, FIND+13

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPSWKL

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: