Routine: PSOSULBL

Package	Total	Call Graph
Outpatient Pharmacy	10	$$CHKRX^PSOBAI ($$LSTRFL,ECMESND)^PSOBPSU1 $$DUR^PSOBPSU2 ($$RETRX,$$RXSITE,$$STATUS)^PSOBPSUT $$GETNDC^PSONDCUT DQ^PSOPRFSS $$TRISTA^PSOREJU3 $$FIND^PSOREJUT (,$$DSH,BAIMAIL)^PSOSULB1 (ARECD,EX)^PSOSUTL
VA Fileman	4	NOW^%DTC ^DIE ^DIK $$GET1^DIQ
Kernel	2	^%ZISC ^%ZTLOAD
Registration	2	(ADD,DEM)^VADPT PID^VADPT6
CMOP	1	$$ECMESTAT^PSXRPPL2
IHS Changes To Pharmacy	1	DQ^APSPLBL
Pharmacy Data Management	1	SAVNDC^PSSNDCUT

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO PNDLBL PSOSULB1

Name	Comments	DBIA/ICR reference
TMP
CHKBAI	; IF BAD ADDRESS INDICATOR, NO ACTIVE TEMPORARY ADDRESS AND ROUTING OF MAIL, DO NOT SEND TO OPAI AND/OR DO NOT PRINT LABEL
ACT(ACTTYPE)	;adds activity info for rx not printed from suspense/not sent to OPAI
SEQ	;
PPL1	; Printing Labels
CHK
BEG	;
DEAD
PPL	; Wait some time before printing so response from 3rd party payers can be received
PRT
CHKMAIL	; SEE IF MAILMAN MESSAGE SHOULD BE SENT FOR BAI/MAIL ROUTING
EXIT	;
CHKDEAD
PROF	;
FOREIGN	;
PRPROF	;
NOMAIL	; SEE IF FILE 55 STATUS IS DO NOT MAIL
SETTMP(ACTTYPE)	;

Name	Field # of Occurrence
NOW^%DTC	ACT+2
^%ZISC	EXIT+4, PRPROF+2
^%ZTLOAD	PROF+2
DQ^APSPLBL	PPL1+32, PPL1+39
^DIE	TMP+11
^DIK	TMP+12, DEAD+1
$$GET1^DIQ	TMP+3, TMP+4, TMP+5, TMP+6, PPL1+15
$$CHKRX^PSOBAI	CHKBAI+5
$$LSTRFL^PSOBPSU1	TMP+6
ECMESND^PSOBPSU1	TMP+27
$$DUR^PSOBPSU2	TMP+22
$$RETRX^PSOBPSUT	TMP+21, TMP+26
$$RXSITE^PSOBPSUT	PPL1+15
$$STATUS^PSOBPSUT	TMP+23, PPL1+13, PPL1+14
$$GETNDC^PSONDCUT	PPL1+15
DQ^PSOPRFSS	PPL1+34, PPL1+41, PRPROF+1
$$TRISTA^PSOREJU3	TMP+24
$$FIND^PSOREJUT	TMP+22, TMP+24, TMP+25, PPL1+12
^PSOSULB1	PSOSULBL+7
$$DSH^PSOSULB1	TMP+23
BAIMAIL^PSOSULB1	CHKMAIL+10
ARECD^PSOSUTL	DEAD+1
EX^PSOSUTL	TMP+10
SAVNDC^PSSNDCUT	PPL1+15
$$ECMESTAT^PSXRPPL2	TMP+26
ADD^VADPT	FOREIGN+3
DEM^VADPT	CHKDEAD
PID^VADPT6	BEG+6

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

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	TMP+1, TMP+15, TMP+19, PRPROF+1, CHKMAIL+8
^PS(52.5 - [#52.5]	BEG+6, BEG+7, PRT, TMP, TMP+1, TMP+16, PPL1+6, PPL1+7, PPL1+18, PPL1+19 , PPL1+21, PPL1+22, PPL1+23, PPL1+24, SEQ+3, SEQ+4*, CHKDEAD+2
^PS(55 - [#55]	CHKDEAD+2, NOMAIL+3, NOMAIL+4
^PSRX - [#52]	TMP+8, PPL1+24, DEAD, CHKBAI+2, CHKBAI+3, SETTMP+4, SETTMP+5, NOMAIL+3, FOREIGN+2, CHKMAIL+6 , CHKMAIL+7, CHKMAIL+8, ACT+3, ACT+4, ACT+5*
^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+28*, PPL+2, PPL1+5, PPL1+18, PPL1+21
^UTILITY($J	BEG+6!, BEG+9, PPL1+33, PPL1+40, PRPROF+1, PRPROF+2!

Name	Line Occurrences
ACT	SETTMP+8
CHK	PRT
CHKBAI	TMP+13
CHKDEAD	BEG+6
CHKMAIL	EXIT+1
DEAD	CHKDEAD+2
EXIT	BEG+10
FOREIGN	CHKBAI+9
NOMAIL	CHKBAI+8
PPL	BEG+8
PPL1	PPL+2
PROF	BEG+9
PRT	BEG+6
SEQ	PPL1+32, PPL1+39
SETTMP	CHKBAI+7, NOMAIL+5, FOREIGN+5
TMP	CHK

Name	Field # of Occurrence
^(0	TMP+15, TMP+19, 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+5 , CHKMAIL+1~, CHKMAIL+5*, CHKMAIL+7, CHKMAIL+9, ACT~, ACT+5
BPSCNT	BEG+1~, TMP+27*, PPL+1
CNT	EXIT+5!
COM	EXIT+5!, DEAD*
DA	EXIT+5!, TMP+11!, TMP+12!, CHKDEAD+2, DEAD+1
DA(1	DEAD*
DEAD	BEG+6, EXIT+5!, CHKDEAD, CHKDEAD+1, DEAD+1*
DFN	BEG+6, BEG+7, PRT, EXIT+5!, TMP, TMP+1, TMP+7, TMP+15, TMP+19, PPL1+23 , PPL1+33, PPL1+40, CHKDEAD+2, PRPROF+1, PRPROF+2!, NOMAIL+1~, NOMAIL+3, NOMAIL+4, FOREIGN+1~, FOREIGN+2* , CHKMAIL+1~, CHKMAIL+8*
DIC	ACT+6!
DIE	TMP+11!*, ACT+6!
DIK	TMP+12!, DEAD+1!
DIRUT	EXIT+5!
DR	TMP+11*, ACT+6!
DSHLD	TMP+2~, TMP+23*
DT	TMP+9, TMP+21, NOMAIL+5
DTTM	EXIT+5!
DUZ	PPL1+4, PPL1+35, ACT+5
FDA	ACT+1~, ACT+3*, ACT+6!
G	EXIT+5!
GGGG	EXIT+6!, PPL1+28*
HDPPL	EXIT+5!, PPL1+27, PPL1+35, 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*
LLL	PRPROF+1*, PRPROF+2!
MAILEXP	NOMAIL+1~, NOMAIL+4*, NOMAIL+5
MAILST	NOMAIL+1~, NOMAIL+3*
NAME	CHKMAIL+1~, CHKMAIL+8*, CHKMAIL+9
>> NOMAIL	CHKBAI+8*
NOW	ACT+1~, ACT+2*, ACT+5
ORD	EXIT+5!, PPL+2*, PPL1+5, PPL1+18, PPL1+21
PARTIAL	TMP+2~, TMP+5, TMP+8, TMP+21, TMP+22, TMP+23, TMP+24, PPL1+1~, PPL1+8, PPL1+11
PDUZ	PSOSULBL+7!, EXIT+5!, PPL1+4, PPL1+35
>> PFIO	PPL1+3*
PFIOQ	EXIT+5!
POP	EXIT+5!
PPL	PPL+2!, PPL1+4!, PPL1+17, PPL1+18, PPL1+26, PPL1+27, PPL1+32, PPL1+35, PPL1+42!
PPL1	PPL+2!, PPL1+21*, PPL1+27!, PPL1+42!
PPLHLD	EXIT+5!, PPL1+27*, PPL1+35, PPL1+36, PPL1+39, PPL1+42!
PRF	EXIT+5!
PRINTED	TMP+2~, TMP+4*, TMP+7
PRTDT	BEG+7, EXIT+5!
PSDDDATE	EXIT+6!, CHKDEAD+2*, DEAD
PSDFN	TMP+2~
PSFNIEN	EXIT+5!, SEQ+2, SEQ+3, SEQ+4
PSLIO	EXIT+5!
PSLION	EXIT+5!, PPL1+33, PPL1+40
PSNP	EXIT+5!, PPL1+25, PPL1+35
PSOBADDR	EXIT+6!, TMP+13, SETTMP+3
PSOBADR	CHKBAI+1~, CHKBAI+5*, CHKBAI+7
PSODBQ	EXIT+5!, PPL1+27, PPL1+35
PSODTCUT	PRPROF+2!
PSOFIRST	CHKBAI+1~, SETTMP+1~, SETTMP+2, SETTMP+5, SETTMP+6
PSOFORGN	FOREIGN+1~, FOREIGN+4*, FOREIGN+5
PSOOUT	EXIT+5!
PSOPAR	BEG+9, PPL1+24, PPL1+25, PRPROF+2!
PSOPRFLG	EXIT+5!, PPL1+3, PPL1+24, PPL1+32, PPL1+39
>> PSOPROP	PPL1+3, PPL1+33, PPL1+40, PROF+1
PSOPRPAS	PRPROF+2!
PSOPULL	PPL1+2~, PPL1+31*
PSORETRY	BEG+1!, BEG+4*, EXIT+6!
PSORUNIN	BEG+1!, BEG+2*, BEG+3, BEG+4, EXIT+3, EXIT+6!
PSOSEQ	BEG+6, EXIT+5!, SEQ+4
PSOSFLAG	BEG+6, BEG+7*, EXIT+5!
PSOSITE	BEG+2, TMP+7, PRPROF+2!
PSOSU	EXIT+5!
PSOSUSPR	EXIT+5!, PPL1+27, PPL1+35
PSOTIME	EXIT+5!
PSRT	BEG+6, EXIT+5!, TMP+14, TMP+18, TMP+19
PSRTONE	EXIT+6!, TMP+15
PSSPND	EXIT+5!
PSSRT	EXIT+6!, TMP+15*, TMP+17
PST	EXIT+5!
PSUS	ACT+6!
PSUSDEA	EXIT+6!, TMP+16*, TMP+17
PTL	EXIT+5!
QUIT	PPL1+1~, PPL1+10, PPL1+11, PPL1+12, PPL1+13*
REFILL	PPL1+1~, PPL1+7*, PPL1+12, PPL1+13, PPL1+14, PPL1+15
REPRINT	PSOSULBL+7!, PPL1+1~, PPL1+8*, PPL1+11
RESP	TMP+2~, TMP+24, TMP+27
RF	EXIT+6!
RFCNT	EXIT+6!
RRRR	EXIT+6!, PPL1+36*
RSDT	ACT+6!
RX	EXIT+6!, CHKDEAD+2*, DEAD
RXDFN	EXIT+6!, TMP+3*, TMP+7
RXEXPDT	TMP+2~, TMP+5*, TMP+9
RXF	ACT+6!
RXFILL	TMP+2~, TMP+6, TMP+21, TMP+22, TMP+23, TMP+24, TMP+25, TMP+26, TMP+27, CHKBAI+2 , CHKBAI+3, SETTMP+5, SETTMP+7, CHKMAIL+1~, CHKMAIL+4, CHKMAIL+5, CHKMAIL+7, CHKMAIL+9, ACT+5
RXFL	EXIT+6!, PPL1+42!
RXIEN	TMP+2~, TMP+3, TMP+4, TMP+5, TMP+6, TMP+8, TMP+10, TMP+11, TMP+21, TMP+22 , TMP+23, TMP+24, TMP+25, TMP+26, TMP+27, TMP+28, CHKBAI+2, CHKBAI+3, CHKBAI+5, SETTMP+4 , SETTMP+5, SETTMP+7, NOMAIL+3, 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+4!, PPL1+35!, PPL1+42!
RXPR(	PPL1+18, PPL1+24, PPL1+28!, PPL1+35
RXPR1	EXIT+6!, PPL1+4!, PPL1+42!
RXPR1(	PPL1+21*, PPL1+24, PPL1+35
RXREC	TMP+10~, CHKDEAD+2
RXRP	EXIT+6!
RXRP(	PPL1+19, PPL1+36
RXRP1	EXIT+6!
RXRP1(	PPL1+22*, PPL1+36
RXSITE	TMP+2~, TMP+4*, TMP+7
RXSTS	TMP+2~, TMP+4*, TMP+7, TMP+9
SDT	PRT*, EXIT+6!, CHK, TMP, TMP+21
SFN	EXIT+6!, TMP, TMP+1, TMP+3, TMP+4, TMP+5, TMP+6, TMP+12, TMP+16, TMP+23 , TMP+28, PPL1+5, PPL1+6, PPL1+7, PPL1+18, PPL1+19, PPL1+21, PPL1+22, PPL1+23, PPL1+24 , CHKDEAD+2*, DEAD+1
SINRX	EXIT+6!, PPL1+7*, PPL1+12, PPL1+13, PPL1+14, PPL1+15, PPL1+18, PPL1+19, PPL1+21, PPL1+22 , PPL1+24
SPR	EXIT+6!
>> SQCOUNT	SEQ+1*, SEQ+2
SREC	EXIT+6!
>> SRT	TMP+17, TMP+19, TMP+28
SSN	CHKMAIL+1~, CHKMAIL+8*, CHKMAIL+9
STOP	EXIT+6!
SUSPT	EXIT+6!, PPL1+3*
>> VA("PID"	TMP+15, TMP+19
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!
X1	EXIT+6!
X2	EXIT+6!
XAK	EXIT+6!
XDATE	EXIT+6!, CHK
XX	CHKBAI+1~, SETTMP+1~, SETTMP+5, CHKMAIL+1~, CHKMAIL+7
XXX	EXIT+6!, PPL1+35*
Y	EXIT+6!, ACT+6!
Z	EXIT+6!, PPL1+1~, PPL1+7*, PPL1+8
ZII	EXIT+6!
ZTDESC	EXIT+6!, PROF+1*
>> ZTDTH	PROF+1*
>> ZTIO	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+7, 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: 21

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: