Routine: PSOBPSR1

Package	Total	Call Graph
Kernel	2	^%ZISC ($$FMTE,$$NOW)^XLFDT
VA Fileman	2	($$GET1,GETS)^DIQ ^DIR
Outpatient Pharmacy	1	$$RXSITE^PSOBPSUT
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOBPSRP

Entry Points

Name	Comments	DBIA/ICR reference
PRINT(DFN,RXIEN)	; - Print
EN
END
HDR	; - Prints the Header
DT(DT)	; - Convert FM Date to MM/DD/YYYY
SRT(ST)	; - Convert the "2,1" (example) to "DRUG,PATIENT"
RX	;
NDTP
NEXT	; - If not Sorting (already printed), SKIP, otherwise, print the report
TEXT(TEXT,STR,L)	; Formats STR into TEXT array, lines lenght = L
SET	;
DATE	;
CLOSE	;

External References

Name	Field # of Occurrence
^%ZISC	CLOSE+1
$$GET1^DIQ	HDR+2
GETS^DIQ	RX+3, RX+13, PRINT+9, PRINT+11
^DIR	HDR+4
$$RXSITE^PSOBPSUT	RX+16
DEM^VADPT	PRINT+8
$$FMTE^XLFDT	HDR+9
$$NOW^XLFDT	HDR+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: SP2 Line Location: NEXT+14
Function Call: WRITE	Prompt: !,SP1 Line Location: NEXT+15
Function Call: WRITE	Prompt: !!?18,"******** NO DATA TO PRINT ********" Line Location: NDTP+0
Function Call: WRITE	Prompt: !,SP1 Line Location: NDTP+2
Function Call: WRITE	Prompt: !,"Total: ",PCNT," patient",$S(PCNT>1:"s",1:"") Line Location: NDTP+3
Function Call: WRITE	Prompt: " and ",FCNT," prescription fill",$S(FCNT>1:"s",1:""),"." Line Location: NDTP+4
Function Call: WRITE	Prompt: !,RXNUM_"/"_CFILL,?15,$E(DNAM,1,21),?37,$E(PNAM,1,13)_"("_$P(PSSN,"-",3)_")",?57,CDAT,?66,$E(CBY,1,14) Line Location: PRINT+23
Function Call: WRITE	Prompt: @IOF,"Ignored Rejects Report",?71,"Page: ",$J(PAG,3) Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Sorted by",$$SRT(PSOSRT),?48,"Division: ",CDIVN Line Location: HDR+7
Function Call: WRITE	Prompt: !,"Date Range: "_$$DT(PSOSD+1\1)_" - "_$$DT(PSOED\1) Line Location: HDR+8
Function Call: WRITE	Prompt: ?48,"Run Date: "_$$FMTE^XLFDT($$NOW^XLFDT()) Line Location: HDR+9
Function Call: WRITE	Prompt: !,X Line Location: HDR+10
Function Call: WRITE	Prompt: !,"RX#/FILL",?15,"DRUG",?37,"PATIENT",?56,"IGNORE DT",?66,"IGNORED BY" Line Location: HDR+11
Function Call: WRITE	Prompt: !,"--------------",?15,"---------------------",?37,"------------------",?56,"---------",?66,"--------------" Line Location: HDR+12
Routine Call	DIR Line Location: HDR+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	GETS^DIQ
52.25	GETS^DIQ
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	RX+11
^PSRX("B"	NEXT+12
^PSRX("REJDAT"	DATE+1, RX+1
^TMP("PSOBPSRC"	EN+2!, END!, PRINT+31*
^TMP("PSOBPSRP"	EN+2!, NEXT+1, NEXT+3, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8, NEXT+9, NEXT+14 , NEXT+15, END!, SET+5*

Label References

Name	Line Occurrences
$$DT	PRINT+14, HDR+8
$$SRT	HDR+7
CLOSE	NEXT+16
DATE	RX+1
HDR	NEXT+10, NEXT+11, NDTP, PRINT+5
NDTP	NEXT+1
NEXT	DATE+1
PRINT	NEXT+13
RX	RX+7, RX+8, RX+23
SET	RX+22
TEXT	PRINT+18, PRINT+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CBY	RX+12, RX+19, SET+4, PRINT+2~, PRINT+3, PRINT+16, PRINT+23
CBYI	EN~, RX+12, RX+20, RX+21
CCOM	PRINT+2~, PRINT+3, PRINT+19, PRINT+20
CCOM(	PRINT+24, PRINT+26
CDAT	PRINT+2~, PRINT+3, PRINT+13, PRINT+14*, PRINT+23
CDATE	EN~, RX+12, RX+14, RX+18
CDIV	EN+1~, RX+12, RX+16, RX+17, NEXT+2, NEXT+3, NEXT+4, NEXT+5, NEXT+6, NEXT+7 , NEXT+8, NEXT+9, NEXT+14, NEXT+15, SET+5, PRINT+5, PRINT+6, HDR+2
CDIVN	EN+1~, NEXT+2, HDR+1~, HDR+2, HDR+7
CFILL	RX+12, RX+15, RX+16, PRINT+2~, PRINT+21*, PRINT+23
CINFO	EN+1~, PRINT+2~, PRINT+3*
CINFO(	PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+19, PRINT+21
CLOSE	EN~, RX+13!
CLOSE(	RX+14, RX+15, RX+18, RX+19, RX+20
CREAS	PRINT+2~, PRINT+3, PRINT+15
DFN	EN~, RX+2, RX+5, RX+7, NEXT+2, NEXT+7, NEXT+8, NEXT+9, NEXT+13, SET+5 , PRINT~, PRINT+31
DIR	HDR+1~
DIR("A"	HDR+4*
DIR(0	HDR+4*
DIRUT	EN+6!, NEXT+3, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8, NEXT+9, NEXT+10, NEXT+11 , NEXT+14, NEXT+15, NEXT+16, PRINT+5, HDR+3
DNAM	RX+2, RX+4, SET+4, PRINT+2~, PRINT+3, PRINT+10, PRINT+23
DNAMI	EN+1~, RX+2, RX+5, RX+8
DRG	EN~, RX+2*
DT	DT~, DT+1, DT+2, DT+3, DT+4
FCNT	EN~, EN+6, NDTP+4, PRINT+33
FLD	SRT+3~, SRT+6*
I	EN~, SET+2, SET+3, SET+4, SRT+3~, SRT+5, SRT+6, SRT+7
II	EN~, PRINT+2~, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+28, PRINT+29
IO	EN+2
IOF	HDR+6
IOSL	NEXT+10, NEXT+11
IOST	NEXT+10, NEXT+11, HDR+3
J	EN~, PRINT+2~, TEXT+1~, TEXT+2*, TEXT+3
K	PRINT+2~, TEXT+1~, TEXT+3, TEXT+4
L	TEXT~, TEXT+3
OCDIV	EN+1~, NEXT+2, PRINT+5, PRINT+6
PAG	EN~, HDR+1*, HDR+3, HDR+6
PCNT	EN~, EN+6, NDTP+1, NDTP+3, PRINT+31
PMES	PRINT+2~, PRINT+3, PRINT+17, PRINT+18
PMES(	PRINT+27, PRINT+29
PNAM	EN~, RX+2, RX+4, SET+4, PRINT+2~, PRINT+3, PRINT+10, PRINT+23
PRTD	EN~, EN+6, NDTP, PRINT+33
PSOAPT	RX+7, END+1!
PSODIV	END+1!
PSODIV(	RX+17
PSODRG	END+1!
PSODRG(	RX+8
PSODRUG	RX+8, END+1!
PSOED	DATE+1, RX+18, END+1!, HDR+8
PSOPT	END+1!
PSOPT(	RX+7
PSORX	EN+1~, NEXT+2, NEXT+12, NEXT+13
PSORXN	EN+1~, NEXT+2, NEXT+8, NEXT+9, NEXT+12
PSOSD	EN+7, RX+18, END+1!, HDR+8
PSOSIT	RX+17, END+1!
PSOSRT	END+1!, SET+2, SET+3, HDR+7
PSOU	END+1!
PSOU(	RX+21
PSOUSER	RX+21, END+1!
PSSN	PRINT+2~, PRINT+3, PRINT+8, PRINT+23
RDATE	EN+1~, EN+7, DATE+1, RX+1
RSEQ	EN+1~, NEXT+2, NEXT+9, PRINT+11, PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+19, PRINT+21
RXE	EN+1~, RX+2, RX+6, SET+5
RXIEN	EN~, EN+6, RX+1, RX+3, RX+4, RX+5, RX+6, RX+11, RX+13, RX+14 , RX+15, RX+16, RX+18, RX+19, RX+20, PRINT~, PRINT+9, PRINT+10, PRINT+11, PRINT+12 , PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+19, PRINT+21
RXINFO	EN+1~, RX+3!, PRINT+9!
RXINFO(52	RX+4, RX+5, RX+6, PRINT+10, PRINT+12
RXNUM	PRINT+2~, PRINT+3, PRINT+12, PRINT+23
RXNUMB	EN+1~, NEXT+2, NEXT+12
S1	EN~, NEXT+2, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8, NEXT+9, NEXT+14, NEXT+15 , SET+1*, SET+5
S2	EN~, NEXT+2, NEXT+5, NEXT+6, NEXT+7, NEXT+8, NEXT+9, NEXT+14, SET+1*, SET+5
S3	EN~, NEXT+2, NEXT+6, NEXT+7, NEXT+8, NEXT+9, SET+1*, SET+5
S4	EN~
S5	EN~
SEQ2	EN+1~, RX+11*, RX+13, RX+14, RX+15, RX+18, RX+19, RX+20, SET+5
SP1	EN+1~, EN+3*, NEXT+15, NDTP+2
SP2	EN+1~, EN+3*, NEXT+14
ST	SRT~, SRT+5, SRT+6, SRT+7*, SRT+8
STR	PRINT+2~, TEXT~, TEXT+2, TEXT+3, SRT+3~, SRT+4*, SRT+6
TEXT	TEXT~
TEXT(	TEXT+3, TEXT+4*
TEXT(""	TEXT+1
VADM	PRINT+8!
VADM(2	PRINT+8
WORD	TEXT+1~, TEXT+3*, TEXT+4
X	EN~, PRINT+2~, HDR+1~, HDR+10, SRT+3~, SRT+6, SRT+7
XX	EN~, PRINT+2~
Y	EN~, SET+3*, SET+4
>> ZTQUEUED	CLOSE+1
>> ZTREQ	CLOSE+1*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOBPSR1

Information

Source Information

Call Graph

Call Graph Total: 6

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: