Routine: APSPESR1

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
FIND(APSPBD,APSPED)	;EP
EN	;EP
PRINT5	;EP
HDR	;EP
PRINT3	;No divisional counts
DEV	;
DASH	;EP
SET(DIV,ORDER)	;EP
PRINT2	;Print out by division
PRINT4(DATA)	;EP
HDR1(SRT1)	;EP
HDR3	;Print out header
PRINT	;EP
HDR2(SRT2)	;EP
OUT	;EP

External References

Name	Field # of Occurrence
$$DIR^APSPUTIL	EN+11, EN+18, EN+21, EN+24, EN+27, EN+31, EN+35
$$GETIEN^APSPUTIL	EN+16
ASKDATES^APSPUTIL	EN+6
$$HRN^AUPNPAT	SET+15
$$GET1^DIQ	PRINT2+5, SET+8, SET+13, SET+16, HDR+6, HDR1+4, HDR1+5, HDR2+4, HDR2+8, HDR2+17 , HDR2+26, PRINT4+11
^DIR	PRINT5+5
^XBDBQUE	DEV+4
$$FMTE^XLFDT	EN+8, EN+9, HDR+3, HDR1+3, HDR2+13, HDR2+22, PRINT4+5, PRINT4+20, PRINT4+22
$$NOW^XLFDT	HDR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+4
Function Call: WRITE	Prompt: !!,"Auto-finish failure report by Division" Line Location: EN+5
Function Call: WRITE	Prompt: !,$$GET1^DIQ(4,DIV,.01) Line Location: PRINT2+5
Function Call: WRITE	Prompt: !,"TOTAL Count: "_TOT Line Location: PRINT2+16
Function Call: WRITE	Prompt: !,"TOTAL CT: "_TOT Line Location: PRINT3+13
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,"Auto-Finish Failure Report",?35,$P($TR($$FMTE^XLFDT($$NOW^XLFDT,"5Z"),"@"," "),":",1,2),?(IOM-10),"Page: "_APSPPG Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Report Criteria: Orders which did not 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,"Division: "_$S(APSPDIV:$$GET1^DIQ(4,APSPDIV,.01),1:"All") Line Location: HDR+6
Function Call: WRITE	Prompt: !,?5,"Primary Sort: "_$S(APSPSRT=1:"Date",APSPSRT=2:"Drug",APSPSRT=3:"Prescriber",1:"") Line Location: HDR+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HDR+8
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
^ORD(101.43 - [#101.43]	GET1^DIQ
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSPAF - [#9009033.92]	FIND+5, FIND+7, FIND+10
^APSPAF("B"	FIND+3, FIND+4
^OR(100 - [#100]	FIND+14, SET+2, SET+5, SET+7, SET+9, SET+11, SET+12
^SC - [#44]	FIND+17
^TMP("APSPESR"	OUT+1!, PRINT2+3, PRINT2+6, PRINT2+8, PRINT2+10, PRINT2+11, PRINT3+3, PRINT3+5, PRINT3+7, PRINT3+8 , PRINT3+10, SET+31, SET+33

Label References

Name	Line Occurrences
DASH	HDR2+6, HDR2+10, HDR2+15, HDR2+19, HDR2+24, HDR2+28
DEV	EN+37
FIND	OUT+2
HDR	PRINT+3, PRINT5+6
HDR1	PRINT2+7, PRINT3+4
HDR2	PRINT2+9, PRINT3+6
HDR3	HDR+9
PRINT	OUT+3
PRINT1	PRINT+4
PRINT2	PRINT1+2
PRINT3	PRINT1+3
PRINT4	PRINT2+12, PRINT3+11
PRINT5	PRINT2+5, PRINT2+15, HDR1+7, PRINT4+4, PRINT4+6, PRINT4+8, PRINT4+14, PRINT4+17
SET	FIND+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	SET+18~, SET+19*, SET+31, SET+33
A0	FIND+1~
ACTIEN	FIND+1~
APSPBD	EN+1~, EN+6, EN+8, EN+10*, OUT+2, FIND~, FIND+2
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+31, PRINT1+2, PRINT2+5, SET+30 , HDR+6
APSPDRG	EN+2~, EN+3*
APSPDSUB	EN+1~, EN+3*
APSPED	EN+1~, EN+6, EN+9, EN+10*, OUT+2, FIND~, FIND+3
APSPEDF	EN+2~, EN+9*, HDR+5
APSPGRP	EN+2~, EN+30, EN+31, PRINT1+2, SET+30
APSPOUT	EN+2~, EN+34, EN+35, HDR1+2, HDR2+1, HDR3+1, HDR3+3, PRINT4+2, PRINT4+19, PRINT4+21
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+27, EN+28, EN+31, EN+32, EN+35, EN+36
APSPRTYP	EN+1~
APSPSRT	EN+1~, EN+18*, EN+20, EN+23, EN+26, SET+20, SET+23, SET+26, HDR+7, HDR1+3 , HDR1+4, HDR1+5, HDR2+2, HDR2+11, HDR2+20
APSPSRT2	EN+1~, EN+21, EN+24, EN+27*, SET+21, SET+22, SET+24, SET+25, SET+27, SET+28 , HDR2+3, HDR2+7, HDR2+12, HDR2+16, HDR2+21, HDR2+25
AUTO	FIND+1~, FIND+7*, FIND+8
B	SET+18~, SET+21, SET+22, SET+24, SET+25, SET+27, SET+28, SET+31, SET+33
C	SET+18~, SET+21, SET+22, SET+24, SET+25, SET+27, SET+28, SET+31, SET+33
CNT	FIND+1~, FIND+2, SET+29
D	SET+18~
DASH	DASH+1~, DASH+2*
DATA	PRINT4~, PRINT4+3, PRINT4+5, PRINT4+20, PRINT4+22
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+17, FIND+18, PRINT1+1~, PRINT2+1~, PRINT2+3, PRINT2+5, PRINT2+6, PRINT2+8, PRINT2+10 , PRINT2+11, PRINT3+1~, PRINT3+7*, PRINT3+8, PRINT3+10, SET~, SET+15, SET+19
DIVCT	PRINT2+1~, PRINT2+4, PRINT2+14, PRINT2+15
DLOUT	PRINT5+4!
DPT	SET+1~, SET+4*, SET+15, SET+16
DRGNM	FIND+1~, SET+10, SET+14, SET+31, SET+33
DRUG	FIND+1~, SET+1~, SET+12*, SET+13, SET+21, SET+24, SET+25, SET+28
DRUG2	SET+1~, SET+13*, SET+14
DRUGNM	SET+1~, SET+3*
DT	EN+6
DTOUT	PRINT5+4!
DUOUT	PRINT5+4!
FIELD	PRINT4+1~, PRINT4+9*, PRINT4+11
FILE	PRINT4+1~, PRINT4+9*, PRINT4+11
FILLDT	FIND+1~
HRN	FIND+1~, SET+1~, SET+15*, SET+31, SET+33
IENS	PRINT4+1~, PRINT4+10*, PRINT4+11
IOF	EN+4, HDR+1
IOM	HDR+3, DASH+2
IOSL	PRINT5+3
IOST	PRINT5+2
ITEM	SET+1~, SET+10, SET+11, SET+12
LINE	HDR1+1~, HDR1+3, HDR1+4, HDR1+5, HDR1+6, HDR2+4, HDR2+5, HDR2+8, HDR2+9, HDR2+13 , HDR2+14, HDR2+17, HDR2+18, HDR2+22, HDR2+23, HDR2+26*, HDR2+27
LOC	FIND+1~, FIND+14, FIND+15, FIND+16, FIND+17
LSTDSPDT	SET+1~
NODE0	SET+1~, SET+2*, SET+4
NUM	PRINT2+1~, PRINT2+10, PRINT2+11, PRINT3+8, PRINT3+10
ORDER	FIND+10*, FIND+11, FIND+14, FIND+18, SET~, SET+2, SET+5, SET+7, SET+9, SET+11 , SET+12, SET+31, SET+33, PRINT4+10
PAT	FIND+1~, SET+1~, SET+16*, SET+31, SET+33
PDAT	SET+1~, SET+9*, SET+31, SET+33
PDATE	FIND+1~
PNAME	FIND+1~, SET+1~, SET+8*, SET+31, SET+33
PRV	FIND+1~, SET+1~, SET+7*, SET+8, SET+22, SET+25, SET+27, SET+28
RTSDT	FIND+1~, FIND+2, FIND+3, FIND+4, SET+21, SET+22, SET+24, SET+27
RXIEN	FIND+1~, FIND+2, FIND+4, FIND+5, FIND+7, FIND+10
SRT1	HDR1~, HDR1+3, HDR1+4, HDR1+5
SRT2	HDR2~, HDR2+4, HDR2+8, HDR2+13, HDR2+17, HDR2+22, HDR2+26
SUB1	PRINT1+1~, 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+1~, PRINT2+1~, PRINT2+8, PRINT2+9, PRINT2+10, PRINT2+11, PRINT3+1~, PRINT3+5, PRINT3+6, PRINT3+7 , PRINT3+8, PRINT3+10
SUB3	PRINT1+1~
SUB4	PRINT1+1~
TOT	PRINT2+1~, PRINT2+2, PRINT2+14, PRINT2+16, PRINT3+1~, PRINT3+2, PRINT3+12, PRINT3+13
U	FIND+7, FIND+10, FIND+14, FIND+17, SET+4, SET+7, SET+9, SET+12, SET+31, SET+33 , HDR3+4, PRINT4+3, PRINT4+5, PRINT4+20, PRINT4+22
VAL	PRINT1+1~, PRINT2+1~, PRINT2+11, PRINT2+12, PRINT3+1~, PRINT3+10, PRINT3+11
WP	PRINT4+1~
WP(	PRINT4+12, PRINT4+13, PRINT4+15, PRINT4+16
X	SET+1~, SET+5, SET+6, PRINT4+1~, PRINT4+11
XBNS	DEV+1~, DEV+3*
XBRP	DEV+1~, DEV+2*
Y	SET+1~, PRINT4+1~, PRINT4+12*, PRINT4+13, PRINT4+15, PRINT4+16

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPESR1

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: