Routine: PSOSULBL

Package	Total	Call Graph
Outpatient Pharmacy	14	$$CHKRX^PSOBAI ($$LSTRFL,ECMESND)^PSOBPSU1 ($$ECMEST2,$$ECMESTAT)^PSOBPSU2 ($$RETRX,$$RXSITE,$$STATUS)^PSOBPSUT DQ^PSOLBL $$GETNDC^PSONDCUT DQ^PSOPRFSS $$TRIC^PSOREJP1 $$TRISTA^PSOREJU3 $$FIND^PSOREJUT EN^PSOSUCAT (,$$DSH,BAIMAIL)^PSOSULB1 (ARECD,EX)^PSOSUTL $$SUSPDAYS^PSOUTLA2
VA FileMan	5	NOW^%DTC FILE^DICN ^DIE ^DIK $$GET1^DIQ
Kernel	3	^%ZISC ^%ZTLOAD ($$FMADD,$$NOW)^XLFDT
Registration	2	(ADD,DEM)^VADPT PID^VADPT6
CMOP	1	$$ECETREJ^PSXRPPL2
Pharmacy Data Management	1	SAVNDC^PSSNDCUT

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSO PNDLBL PSOSUCAT PSOSULB1 PSOSUPAT PSOSUPOE PSOSUPRX

Name	Comments	DBIA/ICR reference
BEG	;
PRT
EXIT	;
TMP
PPL	; Wait some time before printing so response from 3rd party payers can be received
PPL1	; Printing Labels
SEQ	;
CHKDEAD
DEAD
PROF	;
PRPROF	;
CHKBAI	; IF BAD ADDRESS INDICATOR, NO ACTIVE TEMPORARY ADDRESS AND ROUTING OF MAIL, DO NOT SEND TO OPAI AND/OR DO NOT PRINT LABEL
SETTMP(ACTTYPE)	;
NOMAIL	; SEE IF FILE 55 STATUS IS DO NOT MAIL
FOREIGN	;
CHKMAIL	; SEE IF MAILMAN MESSAGE SHOULD BE SENT FOR BAI/MAIL ROUTING
ACT(ACTTYPE)	;adds activity info for rx not printed from suspense/not sent to OPAI
PRINTED(SFN,RX,RFL)	; ; Check if a label log indicates that a label has already been printed ; Input Parameters ; SFN - IEN of RX Suspense file (#52.5) ; RX - IEN of Prescription file (#50) ; RFL - Refill number ; Output ; 0 - Label not printed ; 1 - Label already printed ; 2 - Label already printed and reprint flag is set
REMOVE(SFN,RX,RFL,USR,DSP,PRTFLG)	; ; Remove the RX from the RX Suspense queue (#52.5) ; Input Parameters ; SFN - IEN of RX Suspense file (#52.5) ; RX - IEN of Prescription file (#52) ; RFL - Refill number ; USR - User to enter into the Activity Log ; DSP - Display message ; PRTFLG - 1:Printed,2:Printed and Reprint Flag

Name	Field # of Occurrence
NOW^%DTC	ACT+2
^%ZISC	EXIT+4, PRPROF+2
^%ZTLOAD	PROF+2
FILE^DICN	REMOVE+35
^DIE	TMP+17, REMOVE+27
^DIK	TMP+18, DEAD+1, REMOVE+23
$$GET1^DIQ	TMP+5, TMP+6, TMP+7, TMP+8, PPL1+17, NOMAIL+5, FOREIGN+2, FOREIGN+6, PRINTED+20, PRINTED+21 , PRINTED+22, PRINTED+25
$$CHKRX^PSOBAI	CHKBAI+5
$$LSTRFL^PSOBPSU1	TMP+8, PRINTED+14, REMOVE+18
ECMESND^PSOBPSU1	TMP+36
$$ECMEST2^PSOBPSU2	TMP+35
$$ECMESTAT^PSOBPSU2	TMP+31, PPL1+15
$$RETRX^PSOBPSUT	TMP+27, TMP+35
$$RXSITE^PSOBPSUT	PPL1+17
$$STATUS^PSOBPSUT	TMP+28, TMP+32, PPL1+14
DQ^PSOLBL	PPL1+31, PPL1+36
$$GETNDC^PSONDCUT	PPL1+17
DQ^PSOPRFSS	PPL1+33, PPL1+38, PRPROF+1
$$TRIC^PSOREJP1	TMP+30
$$TRISTA^PSOREJU3	TMP+35
$$FIND^PSOREJUT	TMP+34, PPL1+13
EN^PSOSUCAT	TMP+3
^PSOSULB1	PSOSULBL+8
$$DSH^PSOSULB1	TMP+32, TMP+33
BAIMAIL^PSOSULB1	CHKMAIL+10
ARECD^PSOSUTL	DEAD+1
EX^PSOSUTL	TMP+16
$$SUSPDAYS^PSOUTLA2	TMP+1
SAVNDC^PSSNDCUT	PPL1+17
$$ECETREJ^PSXRPPL2	TMP+30
ADD^VADPT	FOREIGN+3
DEM^VADPT	CHKDEAD
PID^VADPT6	BEG+11
$$FMADD^XLFDT	TMP+1
$$NOW^XLFDT	REMOVE+33

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Reprint Flag is on. Prescription left on suspense." Line Location: REMOVE+11
Function Call: WRITE	Prompt: !,"Prescription has been removed from suspense." Line Location: REMOVE+36
Routine Call	DIE Line Location: TMP+17 REMOVE+27

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
52.032	GET1^DIQ
^PS(52.5 - [#52.5]	Classic Fileman Calls, GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	TMP+2, TMP+21, TMP+25, PRPROF+1, CHKMAIL+8
^PS(52.5 - [#52.5]	BEG+7, BEG+9, PRT, TMP, TMP+2!, TMP+22, PPL1+5, PPL1+8, PPL1+20, PPL1+21 , PPL1+23, PPL1+24, PPL1+25, PPL1+26, SEQ+3, SEQ+4*, CHKDEAD+2, REMOVE+15
^PS(55 - [#55]	CHKDEAD+2, NOMAIL+3, NOMAIL+4
^PSRX - [#52]	TMP+10, PPL1+26, DEAD, CHKBAI+2, CHKBAI+3, SETTMP+4, SETTMP+5, NOMAIL+3, CHKMAIL+6, CHKMAIL+7 , CHKMAIL+8, ACT+3, ACT+4, ACT+5*, PRINTED+19, REMOVE+17
^TMP("PSOSBAI"	BEG+6!, EXIT+1, EXIT+2!, SETTMP+7*, CHKMAIL+3, CHKMAIL+4, CHKMAIL+5
^TMP("PSOSM"	CHKMAIL+2!, CHKMAIL+9*, CHKMAIL+10, CHKMAIL+11!
^TMP($J	EXIT+2!, TMP+38*, PPL+2, PPL1+4, PPL1+20, PPL1+23
^UTILITY($J	BEG+6!, BEG+14, PPL1+32, PPL1+37, PRPROF+1, PRPROF+2!
^VA(200 - [#200]	REMOVE+31

Name	Line Occurrences
ACT	SETTMP+8
CHKBAI	TMP+19
CHKDEAD	BEG+11
CHKMAIL	EXIT+1
DEAD	CHKDEAD+2
EXIT	BEG+15
FOREIGN	CHKBAI+9
NOMAIL	CHKBAI+8
PPL	BEG+13
PPL1	PPL+2
PROF	BEG+14
PRT	BEG+12
SEQ	PPL1+31, PPL1+36
SETTMP	CHKBAI+7, NOMAIL+7, FOREIGN+10
TMP	PRT

Name	Field # of Occurrence
^(0	TMP+21, TMP+25, SEQ+4, CHKDEAD+2, CHKMAIL+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+5!, ACT+2, ACT+6!
%H	ACT+6!
%I	ACT+6!
%ZIS	EXIT+5!
ACTSEQ	CHKBAI+1~, SETTMP+1~, SETTMP+4, SETTMP+5, CHKMAIL+1~, CHKMAIL+6, CHKMAIL+7
ACTTYPE	CHKBAI+1~, CHKBAI+4, CHKBAI+7, SETTMP~, SETTMP+5, SETTMP+7, SETTMP+8, NOMAIL+1~, NOMAIL+2, NOMAIL+7 , CHKMAIL+1~, CHKMAIL+5*, CHKMAIL+7, CHKMAIL+9, ACT~, ACT+5
BPSCNT	BEG+1~, TMP+37*, PPL+1
CNT	EXIT+5!
COM	EXIT+5!, DEAD*
DA	EXIT+5!, TMP+17!, TMP+18!, CHKDEAD+2, DEAD+1, REMOVE+20~, REMOVE+23, REMOVE+26!, REMOVE+27, REMOVE+32~
DA(1	DEAD, REMOVE+33
DD	REMOVE+32~
DEAD	BEG+8, BEG+11, EXIT+5!, CHKDEAD, CHKDEAD+1, DEAD+1
DFN	BEG+7, BEG+9, PRT, EXIT+5!, TMP, TMP+2, TMP+9, TMP+21, TMP+25, PPL1+25 , PPL1+32, PPL1+37, CHKDEAD+2, PRPROF+1, PRPROF+2!, NOMAIL+1~, NOMAIL+3, NOMAIL+4, FOREIGN+1~, FOREIGN+2* , CHKMAIL+1~, CHKMAIL+8*
DIC	ACT+6!, REMOVE+32~, REMOVE+33*
DIC("DR"	REMOVE+34*
DIC(0	REMOVE+33*
DIE	TMP+17!, ACT+6!, REMOVE+20~, REMOVE+26!, REMOVE+27
DIK	TMP+18!, DEAD+1!, REMOVE+20~, REMOVE+23*
DINUM	REMOVE+32~
DIRUT	EXIT+5!
DLAYGO	REMOVE+32~, REMOVE+33*
DO	REMOVE+32~
DR	TMP+17, ACT+6!, REMOVE+20~, REMOVE+27, REMOVE+32~
DSHLD	TMP+4~, TMP+32, TMP+33
DSP	REMOVE~, REMOVE+11, REMOVE+36
DT	TMP+15, TMP+27, NOMAIL+7
DTOUT	REMOVE+20~
DTTM	EXIT+5!
DUZ	PPL1+3, PPL1+34, ACT+5, REMOVE+30, REMOVE+31
ESTAT	PPL1+1~, PPL1+14*, PPL1+15, PPL1+16
ESTATUS	TMP+4~, TMP+28*, TMP+31
FDA	ACT+1~, ACT+3*, ACT+6!
G	EXIT+5!
GGGG	EXIT+6!, PPL1+30*
HDPPL	EXIT+5!, PPL1+29, PPL1+34, SEQ+1, SEQ+2
I	ACT+6!
IOP	EXIT+5!
IR	ACT+1~, ACT+3, ACT+4, ACT+5
JJ	EXIT+5!
JJJ	EXIT+5!, SEQ+1*
JJJJ	EXIT+5!, SEQ+2*
LBL	PRINTED+16~, PRINTED+18, PRINTED+19, PRINTED+20, PRINTED+21, PRINTED+22
LLL	PRPROF+1*, PRPROF+2!
MAILEXP	NOMAIL+1~, NOMAIL+4, NOMAIL+5, NOMAIL+7
MAILST	NOMAIL+1~, NOMAIL+3, NOMAIL+5, NOMAIL+6
NAME	CHKMAIL+1~, CHKMAIL+8*, CHKMAIL+9
>> NOMAIL	CHKBAI+8*
NOW	ACT+1~, ACT+2*, ACT+5
ORD	EXIT+5!, PPL+2*, PPL1+4, PPL1+20, PPL1+23
PARTIAL	TMP+4~, TMP+7, TMP+10, TMP+27, TMP+31, TMP+32, TMP+33, TMP+34, TMP+35, PPL1+1~ , PPL1+9, PPL1+12
PDUZ	PSOSULBL+8!, EXIT+5!, PPL1+3, PPL1+34
>> PFIO	PPL1+2*
PFIOQ	EXIT+5!
POP	EXIT+5!
PPL	PPL+2!, PPL1+3!, PPL1+19, PPL1+20, PPL1+28, PPL1+29, PPL1+31, PPL1+34, PPL1+39!
PPL1	PPL+2!, PPL1+23*, PPL1+29!, PPL1+39!
PPLHLD	EXIT+5!, PPL1+29*, PPL1+34, PPL1+35, PPL1+36, PPL1+39!
PRF	EXIT+5!
PRINTED	TMP+4~, TMP+6*, TMP+9
PRTDT	BEG+10, EXIT+5!, TMP+1
PRTFLG	REMOVE~, REMOVE+11
PSDDDATE	EXIT+6!, CHKDEAD+2*, DEAD
PSDFN	TMP+4~
PSFNIEN	EXIT+5!, SEQ+2, SEQ+3, SEQ+4
PSLIO	EXIT+5!
PSLION	EXIT+5!, PPL1+31, PPL1+32, PPL1+36, PPL1+37
PSNP	EXIT+5!, PPL1+27, PPL1+34
PSOBADDR	EXIT+6!, TMP+19, SETTMP+3
PSOBADR	CHKBAI+1~, CHKBAI+5*, CHKBAI+7
PSODBQ	EXIT+5!, PPL1+29, PPL1+34
PSODTCUT	PRPROF+2!
PSOFIRST	CHKBAI+1~, SETTMP+1~, SETTMP+2, SETTMP+5, SETTMP+6
PSOFOREN	FOREIGN+5~, FOREIGN+7, FOREIGN+8*, FOREIGN+9
PSOFORGN	FOREIGN+1~, FOREIGN+4, FOREIGN+7, FOREIGN+8, FOREIGN+9, FOREIGN+10
PSON	FOREIGN+5~, FOREIGN+6*, FOREIGN+7, FOREIGN+8
PSOOK	EXIT+5!, TMP+3~
PSOOUT	EXIT+5!
PSOPAR	BEG+14, PPL1+26, PPL1+27, PRPROF+2!
PSOPRFLG	EXIT+5!, PPL1+2, PPL1+26, PPL1+31, PPL1+36
>> PSOPROP	PPL1+2, PPL1+32, PPL1+37, PROF+1
PSOPRPAS	PRPROF+2!
PSORETRY	BEG+1!, BEG+4*, EXIT+6!
PSORUNIN	BEG+1!, BEG+2*, BEG+3, BEG+4, EXIT+3, EXIT+6!
PSOSEQ	BEG+7, EXIT+5!, SEQ+4
PSOSFLAG	BEG+8, BEG+9, BEG+10, BEG+12, EXIT+5!
PSOSITE	TMP+9, PRPROF+2!, FOREIGN+6
PSOSU	EXIT+5!
PSOSULST	EXIT+5!, TMP+3
PSOSUSPR	EXIT+5!, PPL1+29, PPL1+34
PSOTIME	EXIT+5!
PSRT	BEG+11, EXIT+5!, TMP+20, TMP+24, TMP+25
PSRTONE	EXIT+6!, TMP+21
PSSPND	EXIT+5!
PSSRT	EXIT+6!, TMP+21*, TMP+23
PST	EXIT+5!
PSUS	ACT+6!
PSUSDEA	EXIT+6!, TMP+22*, TMP+23
PTL	EXIT+5!
PTLBL	PRINTED+16~, PRINTED+18, PRINTED+19, PRINTED+23, PRINTED+25*, PRINTED+27
QUIT	PPL1+1~, PPL1+11, PPL1+12, PPL1+13, PPL1+15*
REFILL	PPL1+1~, PPL1+8*, PPL1+13, PPL1+14, PPL1+15, PPL1+17
REPRINT	PSOSULBL+8!, PPL1+1~, PPL1+9*, PPL1+12
RESP	TMP+4~, TMP+35, TMP+36, TMP+37
RF	EXIT+6!
RFCNT	EXIT+6!
RFL	PRINTED~, PRINTED+14, PRINTED+20, REMOVE~, REMOVE+18, REMOVE+34
RRRR	EXIT+6!, PPL1+35*
RSDT	ACT+6!
RX	EXIT+6!, CHKDEAD+2*, DEAD, PRINTED~, PRINTED+13, PRINTED+14, PRINTED+19, PRINTED+20, PRINTED+21, PRINTED+22 , REMOVE~, REMOVE+16, REMOVE+17, REMOVE+18, REMOVE+27, REMOVE+33
RXDFN	EXIT+6!, TMP+5*, TMP+9
RXEXPDT	TMP+4~, TMP+7*, TMP+15
RXF	ACT+6!
RXFILL	TMP+4~, TMP+8, TMP+27, TMP+28, TMP+30, TMP+31, TMP+32, TMP+33, TMP+34, TMP+35 , TMP+36, CHKBAI+2, CHKBAI+3, SETTMP+5, SETTMP+7, CHKMAIL+1~, CHKMAIL+4, CHKMAIL+5, CHKMAIL+7, CHKMAIL+9 , ACT+5
RXFL	EXIT+6!, PPL1+1~, PPL1+39!
RXFL(	PPL1+8*
RXIEN	TMP+4~, TMP+5, TMP+6, TMP+7, TMP+8, TMP+10, TMP+16, TMP+17, TMP+27, TMP+28 , TMP+30, TMP+31, TMP+32, TMP+34, TMP+35, TMP+36, TMP+38, CHKBAI+2, CHKBAI+3, CHKBAI+5 , SETTMP+4, SETTMP+5, SETTMP+7, NOMAIL+3, NOMAIL+5, FOREIGN+2, CHKMAIL+1~, CHKMAIL+3, CHKMAIL+4, CHKMAIL+5 , CHKMAIL+6, CHKMAIL+7, CHKMAIL+8, CHKMAIL+9, ACT+3, ACT+4, ACT+5
RXPR	EXIT+6!, PPL1+3!, PPL1+34!, PPL1+39!
RXPR(	PPL1+20, PPL1+26, PPL1+30!, PPL1+34
RXPR1	EXIT+6!, PPL1+3!, PPL1+39!
RXPR1(	PPL1+23*, PPL1+26, PPL1+34
RXREC	TMP+16~, CHKDEAD+2
RXRP	EXIT+6!
RXRP(	PPL1+21, PPL1+35
RXRP1	EXIT+6!
RXRP1(	PPL1+24*, PPL1+35
RXSITE	TMP+4~, TMP+6*, TMP+9
RXSTS	TMP+4~, TMP+6*, TMP+9, TMP+15
SDT	PRT*, EXIT+6!, TMP, TMP+1, TMP+2, TMP+27
SFN	EXIT+6!, TMP, TMP+1, TMP+2, TMP+5, TMP+6, TMP+7, TMP+8, TMP+18, TMP+22 , TMP+32, TMP+33, TMP+38, PPL1+4, PPL1+5, PPL1+8, PPL1+20, PPL1+21, PPL1+23, PPL1+24 , PPL1+25, PPL1+26, CHKDEAD+2*, DEAD+1, PRINTED~, PRINTED+12, PRINTED+25, REMOVE~, REMOVE+14, REMOVE+15 , REMOVE+23
SINRX	EXIT+6!, PPL1+8*, PPL1+13, PPL1+14, PPL1+15, PPL1+17, PPL1+20, PPL1+21, PPL1+23, PPL1+24 , PPL1+26
SPR	EXIT+6!
>> SQCOUNT	SEQ+1*, SEQ+2
SREC	EXIT+6!
>> SRT	TMP+23, TMP+25, TMP+38
SSN	CHKMAIL+1~, CHKMAIL+8*, CHKMAIL+9
STOP	EXIT+6!
SUSPT	EXIT+6!, PPL1+2*
USR	REMOVE~, REMOVE+30, REMOVE+31, REMOVE+34
>> VA("PID"	TMP+21, TMP+25
VADM	EXIT+6!
VADM(1	CHKDEAD
VADM(6	CHKDEAD+1, CHKDEAD+2
VAPA	EXIT+6!
VAPA(25	FOREIGN+4
WWW	EXIT+6!, CHKDEAD+2*
X	EXIT+6!, ACT+6!, REMOVE+32~, REMOVE+33*
X1	EXIT+6!
X2	EXIT+6!
XAK	EXIT+6!
XDATE	EXIT+6!
XX	CHKBAI+1~, SETTMP+1~, SETTMP+5, CHKMAIL+1~, CHKMAIL+7
XXX	EXIT+6!, PPL1+34*
Y	EXIT+6!, ACT+6!, REMOVE+32~
Z	EXIT+6!, PPL1+1~, PPL1+8*, PPL1+9
ZII	EXIT+6!
ZTDESC	EXIT+6!, PROF+1*
>> ZTDTH	PROF+1*
>> ZTIO	PPL1+31, PPL1+36, PROF+1*
>> ZTQUEUED	EXIT+6, PRPROF+2
>> ZTREQ	EXIT+6, PRPROF+2
ZTRTN	EXIT+6!, PROF+1*
ZTSAVE	EXIT+6!
ZTSAVE("PSODTCUT"	PROF+2*
ZTSAVE("PSOPAR"	PROF+2*
ZTSAVE("PSOPRPAS"	PROF+2*
ZTSAVE("PSOSITE"	PROF+2*
ZTSAVE("^UTILITY($J,""PSOPRO"","	PROF+2*
ZTSK	EXIT+5!
ZZ	BEG+9, BEG+10, EXIT+6!, SETTMP+1~, SETTMP+5, CHKMAIL+1~, CHKMAIL+7*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSULBL

Information

Source Information

Call Graph

Call Graph Total: 26

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: