Routine: PSOBAIRP

Information

PSOBAIRP ;BIR/RTR-Report of prescription mail labels with bad address ;08/16/2006

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	(,DD)^%DT C^%DTC ^DIR
Outpatient Pharmacy	2	$$CHKTEMP^PSOBAI EN^PSOPATLK
Registration	2	$$BADADR^DGUTL3 PID^VADPT6

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO BAI NOT MAILED

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
DATE	;
REP	;
ALL	;Print report for all patients
END	;
HD	;
MESS	;
NAME	;Set name(ssn)
PRALL	;Print data for all patients
PRONE	;Print data for one patient
CON	;
CHKADDR	;

External References

Name	Field # of Occurrence
^%DT	DATE+2, DATE+4
DD^%DT	DATE+3, DATE+5, ALL+17
C^%DTC	DATE+6, DATE+7
^%ZIS	DATE+8
^%ZISC	END+7
^%ZTLOAD	DATE+10
$$BADADR^DGUTL3	CHKADDR+3
^DIR	EN+7, END+3, HD+2
$$CHKTEMP^PSOBAI	CHKADDR+5
EN^PSOPATLK	EN+10
PID^VADPT6	NAME+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option provides a report that shows patients and prescriptions whose last" Line Location: EN+2
Function Call: WRITE	Prompt: !,"label activity had a routing of mail and no valid permanent or temporary" Line Location: EN+3
Function Call: WRITE	Prompt: !,"address. It will also indicate whether the patient now has a good address.",!! Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: EN+10
Function Call: WRITE	Prompt: !! Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: DATE+4
Function Call: WRITE	Prompt: !!,"No data found to print for this date range.",! Line Location: ALL+11
Function Call: WRITE	Prompt: !!,"End of Report." Line Location: END+3
Function Call: WRITE	Prompt: !!,"End of Report." Line Location: END+4
Function Call: WRITE	Prompt: ! Line Location: END+5
Function Call: WRITE	Prompt: @IOF Line Location: END+6
Function Call: WRITE	Prompt: ! Line Location: HD+3
Function Call: WRITE	Prompt: @IOF Line Location: HD+4
Function Call: WRITE	Prompt: ?67,"PAGE: "_PSOPAGE Line Location: HD+5
Function Call: WRITE	Prompt: !,"Bad address mail label report for "_$G(PSOANAME) Line Location: HD+6
Function Call: WRITE	Prompt: !,"for fill date between "_$G(PSOSDTX)_" and "_$G(PSOEDTX) Line Location: HD+8
Function Call: WRITE	Prompt: !,PSOLINE Line Location: HD+9
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: MESS+1
Function Call: WRITE	Prompt: !!,$G(PSONSSN) Line Location: PRALL+4
Function Call: WRITE	Prompt: ?30," ",PSOADDR Line Location: PRALL+4
Function Call: WRITE	Prompt: !,$G(PSOADATE),?15," Rx#: ",$P(PSORX0,"^"),?30," ",$P($G(^PSDRUG($P(PSORX0,"^",6),0)),"^") Line Location: PRONE+3
Function Call: WRITE	Prompt: !,$G(PSONSSN) Line Location: CON+1
Routine Call	DIR Line Location: EN+7 END+3 HD+2
Routine Call	%ZIS Line Location: DATE+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ALL+8
^PSDRUG - [#50]	PRONE+3
^PSRX - [#52]	ALL+4, ALL+5, ALL+6, PRONE+2
^PSRX("AD"	ALL+2, ALL+3
^TMP("PSOBADL"	REP+1!, ALL+9*, ALL+11, ALL+12, ALL+13, ALL+14, ALL+15, END+1!

Label References

Name	Line Occurrences
CHKADDR	PRALL+4
CON	PRONE+3
DATE	EN+9
END	ALL+11
HD	ALL+10, ALL+16, PRALL+4, PRONE+4
MESS	EN+7, EN+10, DATE+2, DATE+4, DATE+8
NAME	ALL+13
PRALL	ALL+13
PRONE	ALL+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+2!, DATE+4!
%DT("A"	DATE+2, DATE+4
%DT(0	DATE+3*
%ZIS	DATE+8!*, DATE+10!
DFN	REP+2~, NAME+1*
DIC	EN+10!
DIC("A"	EN+10*
DIC(0	EN+10*
DIR	EN+5!, EN+7!, END+3!, HD+2!
DIR("?"	EN+5, EN+6
DIR("A"	EN+5, END+3, HD+2*
DIR("B"	EN+5*
DIR(0	EN+5, END+3, HD+2*
DTOUT	EN+7, EN+10, DATE+2, DATE+4, END+2!
DUOUT	EN+7, EN+10, DATE+2, DATE+4, END+2!
IO	REP+3
IO("Q"	DATE+9
IOF	END+6, HD+4
IOP	DATE+8!
IOSL	ALL+16, PRALL+4, PRONE+4
IOST	REP+4
POP	DATE+8!
PSOAALL	REP+2~
PSOADATE	REP+2~, ALL+17*, PRONE+3
PSOADDR	PRALL+1~, PRALL+2, PRALL+4, CHKADDR+6, CHKADDR+7*
PSOADF	REP+2~
PSOADFF	REP+2~
PSOADFN	REP+2~, ALL+6*, ALL+7, ALL+8, ALL+9
PSOADLP	REP+2~
PSOADND	REP+2~
PSOADX	REP+2~
PSOAFLAG	REP+2~, REP+4, HD+1, PRALL+3, CON+1
PSOANAME	REP+2~, ALL+8*, ALL+9, HD+6
PSOANODE	REP+2~
PSOAOPT	REP+2~
PSOAOPTA	REP+2~
PSOAOPTB	REP+2~
PSOAOPTC	REP+2~
PSOAOPTZ	REP+2~
PSOAPAT	EN+1~, EN+11*, ALL+7
PSOASN	REP+2~
PSOBADR	CHKADDR+1~, CHKADDR+3*, CHKADDR+4, CHKADDR+6
PSOC	REP+2~
PSODEV	REP+2~, REP+4*, END+3, END+4, END+5, HD+2, HD+3
PSOEDT	EN+1~, DATE+5, DATE+7, ALL+2
PSOEDTX	EN+1~, DATE+5*, HD+8
PSOFORM	EN+1~, EN+8*, EN+9, ALL+7, HD+1, HD+6, CON+1
PSOLBL	ALL+1~, ALL+4*, ALL+5
PSOLINE	REP+2~, REP+5*, HD+9
PSONB	REP+2~, ALL+14*, ALL+15, ALL+17
PSONI	REP+2~, ALL+12*, ALL+13, ALL+14, ALL+15, NAME+2
PSONSSN	REP+2~, NAME+2*, PRALL+4, CON+1
PSONX	REP+2~, ALL+13*, ALL+14, ALL+15, NAME+1, CHKADDR+2, CHKADDR+3, CHKADDR+5
PSOPAGE	REP+2~, REP+4, HD+2, HD+3, HD+5
PSOPTLK	EN+10!
PSORD	ALL+1~, ALL+2*, ALL+3, ALL+9
PSORX	REP+2~, ALL+1~, ALL+3, ALL+4, ALL+5, ALL+6, ALL+9, ALL+15, PRONE+2
PSORX0	PRONE+1~, PRONE+2*, PRONE+3
PSOSDT	EN+1~, DATE+3, DATE+6, ALL+2
PSOSDTX	EN+1~, DATE+3*, HD+8
PSOTEMP	CHKADDR+1~, CHKADDR+5*, CHKADDR+6
PSOUT	REP+2~, REP+4, ALL+12, ALL+13, ALL+14, ALL+15, ALL+16, END+3, HD+2, PRALL+4 , PRONE+4
PSOX	ALL+1~, ALL+5*
VA	REP+2~, NAME+1!, NAME+3!
VA("PID"	NAME+2
X	EN+1~, DATE+6, DATE+7
X1	EN+1~, DATE+6, DATE+7
X2	EN+1~, DATE+6, DATE+7
Y	EN+1~, EN+7, EN+8, EN+10, EN+11, DATE+2, DATE+3, DATE+4, DATE+5, ALL+17 , HD+2
>> ZTDESC	DATE+10*
>> ZTQUEUED	END+7
>> ZTREQ	END+7*
>> ZTRTN	DATE+10*
>> ZTSAVE("PSOAPAT"	DATE+10*
>> ZTSAVE("PSOEDT"	DATE+10*
>> ZTSAVE("PSOEDTX"	DATE+10*
>> ZTSAVE("PSOFORM"	DATE+10*
>> ZTSAVE("PSOSDT"	DATE+10*
>> ZTSAVE("PSOSDTX"	DATE+10*

Customize PDF page

Package: Outpatient Pharmacy