Routine: APSPRRTS

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

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;EP
DRGVRY(DRUG,RX)	;EP
PRINT3	;EP
EN	;EP
SET(RX,ACT)	;EP
HDR	;EP
DCVRY(DCLS,RX)	;EP
DASH	;EP
HDR1	;EP
DEV	;
PRINT2(DATA)	;EP
DIVVRY(RX,DIV)	;EP
CVTDCLS(DCLS)	; EP
PRINT	;EP
DELFLG(RX)	;EP
FIND(DCLS)	;EP
OUT	;EP

External References

Name	Field # of Occurrence
$$DIR^APSPUTIL	EN+11, EN+17, EN+22, EN+29
$$GETIEN^APSPUTIL	EN+16, EN+20
ASKDATES^APSPUTIL	EN+6
$$HRN^AUPNPAT	SET+17
$$GET1^DIQ	PRINT1+4, SET+17, SET+19, SET+21, SET+22, HDR+8, HDR+9
^XBDBQUE	DEV+4
$$FMTE^XLFDT	EN+8, EN+9, PRINT2+1, HDR+3
$$NOW^XLFDT	HDR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+4
Function Call: WRITE	Prompt: !!,"Pharmacy Return to Stock report by Division" Line Location: EN+5
Function Call: WRITE	Prompt: !,"\|"_$$GET1^DIQ(59,DIV,.01)_"\|" Line Location: PRINT1+4
Function Call: WRITE	Prompt: !,$P($TR($$FMTE^XLFDT($P(DATA,U),"5Z"),"@"," "),":",1,2)_$P(DATA,U,8),?20,$P(DATA,U,9)_$P(DATA,U,3),?38,$P(DATA,U,7),?53,$E($P(DATA,U,6),1,34),?95,$P(DATA,U,4),?101,$$FMTE^XLFDT($P(DATA,U,2),"5Z"),?116,$P(DATA,U,10) Line Location: PRINT2+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,"Returned to Stock 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: (An '*' after RTS Date indicates a reissued original Rx.)" Line Location: HDR+4
Function Call: WRITE	Prompt: !," (An '*' prior to the Rx Number indicates a deleted prescription.)" Line Location: HDR+5
Function Call: WRITE	Prompt: !," (A '#' indicates that quantity is unknown for returned partial fill.)" Line Location: HDR+6
Function Call: WRITE	Prompt: !,?5,"Inclusive Dates: "_APSPBDF_" to "_APSPEDF Line Location: HDR+7
Function Call: WRITE	Prompt: !,?5,"Pharmacy Division: "_$S(APSPDIV:$$GET1^DIQ(59,APSPDIV,.01),1:"All") Line Location: HDR+8
Function Call: WRITE	Prompt: !,?5,"Type of Search: "_$S(APSPRTYP=3:"All Drugs",APSPRTYP=2:"Drug Class ("_APSPDCTN(APSPDCLS)_")",APSPRTYP=1:"Specific Drug ("_$$GET1^DIQ(50,APSPDRG,.01)_")",1:"") Line Location: HDR+9
Function Call: WRITE	Prompt: !,?5,"Sorted by: "_$S($G(APSPDCLS):"Drug Class then Drug Name then RTS Date/Time",$G(APSPDSUB):"Drug Name then RTS Date/Time",1:"RTS Date/Time") Line Location: HDR+10
Function Call: WRITE	Prompt: "RTS Date/Time",?20,"Rx Number",?38,"Act Reference",?53,"Drug Name",?95,"Qty",?101,"Last Disp Date",?116,"Pt ID" Line Location: HDR1+2
Function Call: WRITE	Prompt: ! Line Location: DASH+2
Function Call: WRITE	Prompt: "-" Line Location: DASH+2
Function Call: WRITE	Prompt: ! Line Location: DASH+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^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+10, SET+11, DCVRY+4, DCVRY+5
^PSRX - [#52]	FIND+3, FIND+4, FIND+6, FIND+10, FIND+11, SET+5, SET+6, SET+7, SET+15, DRGVRY+1 , DCVRY+2, DCVRY+3, DIVVRY+2, DELFLG+1
^TMP($J	OUT+1!, PRINT1+3, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+10, PRINT1+13, PRINT1+14, PRINT1+16, PRINT1+19 , PRINT1+20, PRINT1+21, PRINT1+22, PRINT1+24, SET+3, SET+22, SET+23, SET+24, SET+25

Label References

Name	Line Occurrences
$$CVTDCLS	SET+12
$$DCVRY	FIND+8
$$DELFLG	SET+22
$$DIVVRY	FIND+5
$$DRGVRY	FIND+7
DASH	HDR1+1, HDR1+3
DEV	EN+30
FIND	OUT+2
HDR	PRINT+3, PRINT3+1
HDR1	HDR+11
PRINT	OUT+3
PRINT1	PRINT+4
PRINT2	PRINT1+10, PRINT1+16, PRINT1+24
PRINT3	PRINT1+4, PRINT2+2
SET	FIND+14

Naked Globals

Name	Field # of Occurrence
^(	PRINT1+9, PRINT1+15, PRINT1+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A0	FIND+1~, FIND+11*, FIND+12, FIND+13
ACT	SET~, SET+15, SET+21, SET+22
ACT0	SET+2~, SET+15*, SET+16, SET+18
ACTIEN	FIND+1~, FIND+9, FIND+10, FIND+11, FIND+14
ACTREF	SET+2~, SET+18*, SET+22
APSPBD	EN+1~, EN+6, EN+8, EN+10*, FIND+13, SET+20
APSPBDF	EN+2~, EN+8*, HDR+7
APSPDCLS	EN+1~, EN+22*, OUT+2, HDR+9, HDR+10
APSPDCT	EN+2~
APSPDCT(	DCVRY+6
APSPDCT(1	EN+25*
APSPDCT(2	EN+25*
APSPDCT(3	EN+25*
APSPDCTN	EN+2~
APSPDCTN(	HDR+9
APSPDCTN(1	EN+26*
APSPDCTN(2	EN+26*
APSPDCTN(3	EN+26*
APSPDIV	EN+1~, EN+3, EN+11, EN+13, EN+14, EN+16, FIND+5, PRINT1+4, HDR+8
APSPDRG	EN+2~, EN+3, EN+20, EN+28*, FIND+7, HDR+9
APSPDSUB	EN+1~, EN+3, EN+24, EN+29*, PRINT1+5, PRINT1+12, HDR+10
APSPED	EN+1~, EN+6, EN+9, EN+10*, FIND+13, SET+20
APSPEDF	EN+2~, EN+9*, HDR+7
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+17, EN+18 , EN+19, EN+20, EN+21, EN+22, EN+23, EN+29
APSPRTYP	EN+1~, EN+17*, EN+19, EN+21, FIND+7, FIND+8, PRINT1+5, PRINT1+18, HDR+9
DASH	DASH+1~, DASH+2*
DATA	PRINT2~, PRINT2+1
DCLS	FIND~, FIND+8, SET+1~, SET+11, SET+12, SET+22, SET+24, DCVRY~, DCVRY+6, CVTDCLS~ , CVTDCLS+1, CVTDCLS+2, CVTDCLS+3, CVTDCLS+4
DCLSVAL	DCVRY+1~, DCVRY+5*, DCVRY+6
DFLG	PRINT+1~, PRINT+2, PRINT+5, PRINT1+11, PRINT1+17, PRINT1+25
DIV	PRINT1+2~, PRINT1+3, PRINT1+4, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+13, PRINT1+14, PRINT1+19, PRINT1+20 , PRINT1+21, PRINT1+22, SET+1~, SET+8, SET+17, SET+23, SET+24, SET+25, DIVVRY~, DIVVRY+1 , DIVVRY+2
DRGIEN	DCVRY+1~, DCVRY+3*, DCVRY+4, DCVRY+5
>> DRGNM	SET+10*, SET+22, SET+24, SET+25
DRUG	SET+1~, SET+9*, SET+10, SET+11, DRGVRY~, DRGVRY+1
DT	EN+6
FILLDT	FIND+1~
HRN	SET+2~, SET+17*, SET+22
IOF	EN+4, HDR+1
IOM	HDR+3, DASH+2
IOSL	PRINT3+1
LSTDSPDT	SET+1~, SET+13*, SET+22
NODE0	SET+1~, SET+5*, SET+9, SET+17, SET+22
NODE2	SET+1~, SET+6*, SET+8
NODE3	SET+1~, SET+7*, SET+13
>> NXT	SET+3, SET+4, SET+22, SET+23, SET+24, SET+25
RDT	SET+1~, SET+19*, SET+20
RIFLG	SET+1~, SET+14, SET+21, SET+22
RTSDATE	SET+1~, SET+16*, SET+22, SET+23, SET+24, SET+25
RTSDT	FIND+1~
RX	SET~, SET+5, SET+6, SET+7, SET+15, SET+19, SET+21, SET+22, SET+23, SET+24 , SET+25, DRGVRY~, DRGVRY+1, DCVRY~, DCVRY+3, DIVVRY~, DIVVRY+2, DELFLG~, DELFLG+1
RXIEN	FIND+1~, FIND+2, FIND+3, FIND+4, FIND+5, FIND+6, FIND+7, FIND+8, FIND+10, FIND+11 , FIND+14, DCVRY+2
RXRTSDT	DCVRY+1~, DCVRY+2*
SUB1	PRINT1+2~, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+13, PRINT1+14, PRINT1+19*, PRINT1+20, PRINT1+21, PRINT1+22
SUB2	PRINT1+2~, PRINT1+7, PRINT1+8, PRINT1+14, PRINT1+15, PRINT1+20*, PRINT1+21, PRINT1+22
SUB3	PRINT1+2~, PRINT1+8, PRINT1+9, PRINT1+21, PRINT1+22
SUB4	PRINT1+2~, PRINT1+22*, PRINT1+23
U	FIND+6, FIND+12, PRINT2+1, SET+8, SET+9, SET+10, SET+11, SET+17, SET+18, SET+22 , DRGVRY+1, DCVRY+2, DCVRY+3, DCVRY+5, DIVVRY+2
VAL	PRINT1+2~, PRINT1+9, PRINT1+10, PRINT1+15, PRINT1+16, PRINT1+23*, PRINT1+24
XBNS	DEV+1~, DEV+3*
XBRP	DEV+1~, DEV+2*

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPRRTS

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

Naked Globals

Local Variables

Legend: