Routine: PSOSULB1

Information

PSOSULB1 ;BHAM ISC/RTR,SAB-Print suspended labels cont. ;29-May-2012 15:15;PLS

Source Information

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
Outpatient Pharmacy	6	DEVBAR^PSOBMST $$LSTRFL^PSOBPSU1 RXACT^PSOBPSU2 ^PSOLSET CHANGE^PSOSUCH1 EXIT^PSOSULBL
VA Fileman	5	^%DT (C,NOW)^%DTC ^DIE $$GET1^DIQ ^DIR
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
Integrated Billing	2	$$INSUR^IBBAPI $$DEA^IBNCPDP
CMOP	1	^PSXRSUS
MailMan	1	^XMD
Uncategorized	1	$$STATUS^BPSOSRX

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
CMOP	1	PSXRSUS
Outpatient Pharmacy	1	PSOSULBL

Entry Points

Name	Comments	DBIA/ICR reference
DSH(REC)	; ePharmacy - verify that 3/4 days supply has elapsed before printing from suspense	ICR #2478 Status: Other Usage: Private
LDT(RXIEN)	; Returns LAST DISPENSED DATE in internal format
MESS
DSHDT(RXIEN)	;
MESSL
DEV
START
DEV1		ICR #2478 Status: Other Usage: Private
QUE
BAIMAIL	;Send mail message
ASK
PRFDT(RXIEN)	; Returns PRIOR FILL DATE in internal format
LFDS(RXIEN)	;
LDPFDT(RXIEN)	; Returns PRIOR FILL DATE if renewal otherwise LAST DISPENSED DATE or -1 if not valid
PRLBL

External References

Name	Field # of Occurrence
^%DT	ASK+1, QUE
C^%DTC	START, ASK+10
NOW^%DTC	QUE
^%ZIS	DEV1+1, PRLBL
^%ZISC	DEV1+1, PRLBL+4, QUE+5
^%ZTLOAD	QUE+5
$$STATUS^BPSOSRX	DSH+10
^DIE	DSH+26, DSH+28
$$GET1^DIQ	BAIMAIL+9, DSH+4, DSH+5, DSH+6, DSH+16, PRFDT+1, LDT+1
^DIR	ASK+8, ASK+9
$$INSUR^IBBAPI	DSH+5
$$DEA^IBNCPDP	DSH+14
DEVBAR^PSOBMST	PRLBL+2
$$LSTRFL^PSOBPSU1	DSH+4, LFDS+3
RXACT^PSOBPSU2	DSH+25
^PSOLSET	DEV
CHANGE^PSOSUCH1	DSH+29
EXIT^PSOSULBL	DEV1+1, ASK+1, ASK+8, ASK+9, PRLBL, QUE, QUE+5
^PSXRSUS	DEV+1
$$FMADD^XLFDT	DSHDT+7
$$FMTE^XLFDT	DSH+23
^XMD	BAIMAIL+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"PROFILES MUST BE SENT TO PRINTER !!",! Line Location: DEV1+1
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!!,"NOTHING THRU DATE TO PRINT" Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: ASK+3
Function Call: WRITE	Prompt: ! Line Location: ASK+9
Function Call: WRITE	Prompt: ! Line Location: PRLBL+0
Function Call: WRITE	Prompt: !!,"PRINT FROM SUSPENSE JOB QUEUED!",! Line Location: QUE+5
Function Call: WRITE	Prompt: $C(7),!!?3,"NOTHING QUEUED TO PRINT!",! Line Location: MESS+0
Function Call: WRITE	Prompt: $C(7),!?3,"LABELS MUST BE SENT TO A PRINTER!",! Line Location: MESSL+0
Routine Call	DIE Line Location: DSH+26 DSH+28
Routine Call	DIR Line Location: ASK+8 ASK+9
Routine Call	%ZIS Line Location: DEV1+1 PRLBL

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	DEV+1
^PS(52.5 - [#52.5]	ASK+2, DSH+3
^PSDRUG - [#50]	BAIMAIL+22
^PSRX - [#52]	BAIMAIL+22, DSH+7, DSHDT+2, LFDS+2, LFDS+4, LDPFDT+1
^TMP("PSOM"	BAIMAIL+2!, BAIMAIL+10, BAIMAIL+11, BAIMAIL+12, BAIMAIL+13, BAIMAIL+16, BAIMAIL+17, BAIMAIL+20, BAIMAIL+22, BAIMAIL+23*
^TMP("PSOSM"	BAIMAIL+14, BAIMAIL+15, BAIMAIL+18, BAIMAIL+20
^TMP($J	ASK!
^XUSEC("PSX XMIT"	DEV+1
^XUSEC("PSXCMOPMGR"	DEV+1

Name	Line Occurrences
$$DSHDT	DSH+20
$$LDPFDT	DSHDT+4
$$LDT	LDPFDT+1
$$LFDS	DSH+24, DSHDT+5
$$PRFDT	LDPFDT+1
ASK	ASK+2
DEV	DEV, DEV1+1
MESS	ASK+1, ASK+8, ASK+9, PRLBL, QUE
MESSL	PRLBL+1
PRLBL	PRLBL+1
START	DEV1

Name	Field # of Occurrence
^(0	ASK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	QUE
%DT	ASK+1!, QUE!
%DT("A"	ASK+1, QUE
%DT("B"	ASK+1, QUE
%DT(0	QUE*
%ZIS	DEV1+1!, PRLBL
%ZIS("A"	DEV1+1!, PRLBL
%ZIS("B"	PRLBL*
COMM	DSH+1~, DSH+23*, DSH+25
DA	DSH+1~, DSH+26, DSH+27~, DSH+28
DAYSSUP	DSH+1~, DSH+24, DSHDT+1~, DSHDT+5, DSHDT+6
DEA	DSH+2~, DSH+6*, DSH+14
DEAD	DSH+27~, DSH+29*
DEAOK	DSH+2~, DSH+14*
DIE	DSH+1~, DSH+26, DSH+27~, DSH+28
DIFROM	BAIMAIL+24~
DIR	ASK+3!, ASK+8!, ASK+9!
DIR("?"	ASK+4, ASK+5, ASK+6, ASK+7
DIR("A"	ASK+3, ASK+9
DIR(0	ASK+3, ASK+9
>> DIRUT	ASK+8, ASK+9
DR	DSH+1~, DSH+26, DSH+27~, DSH+28
DRG	DSH+1~, DSH+5*, DSH+6
DSH34	DSHDT+1~, DSHDT+6*, DSHDT+7
DSHDT	DSH+1~, DSH+20*, DSH+21, DSH+22, DSH+23, DSH+28, DSH+29
DSHOLD	DSH+1~, DSH+3, DSH+10, DSH+12, DSH+14, DSH+16, DSH+18, DSH+21, DSH+30
DT	START, DSH+21
>> DTOUT	QUE
DUZ	DEV+1, ASK, BAIMAIL+1, DSH+25
FILL	BAIMAIL+3~, BAIMAIL+18*, BAIMAIL+20, BAIMAIL+22
FILLDT	DSHDT+1~, DSHDT+4*, DSHDT+7
FIRST	BAIMAIL+3~, BAIMAIL+17, BAIMAIL+19
>> G	QUE+3*
IBINS	DSH+1~, DSH+5
>> IBSTAT	DSH+5*, DSH+18
ICD	DSH+2~, DSH+6, DSH+7, DSH+12
II	DSH+27~
INDT	DSH+27~, DSH+29*
IO("Q"	DEV1+1!, ASK+10!, PRLBL+4!
ION	DEV, DEV1+1, PRLBL
IOP	DEV1+1!, ASK+10!, PRLBL*
>> IOS	PRLBL+2
IOST	DEV1+1, PRLBL+1
LSTFIL	DSH+1~, DSH+4*, DSH+10, DSH+16
NAME	BAIMAIL+3~, BAIMAIL+14*, BAIMAIL+15, BAIMAIL+17, BAIMAIL+18, BAIMAIL+20
OLD	DSH+27~
>> PDUZ	ASK, BAIMAIL+1, BAIMAIL+5
PFIO	DEV1+1~
>> PFIOQ	ASK*
POP	DEV1+1!, ASK+10!, PRLBL
>> PRTDT	ASK+1*, ASK+2, ASK+10
PS0	DSH+1~, DSH+3*, DSH+22
PSARR	DSH+1~
PSINSUR	DSH+1~
>> PSLION	PRLBL*, QUE+2
>> PSOBAR0	PRLBL+3
>> PSOBAR1	PRLBL+3
>> PSOBARS	PRLBL+3*
>> PSOCUTDT	START
>> PSODBQ	QUE+1*
>> PSODTCUT	START*
PSOION	DEV*, DEV1+1, PRLBL, PRLBL+4!
PSOIOS	PRLBL+2~*
PSOOUT	QUE!
>> PSOPAR	DEV, DEV1, START, ASK+10, PRLBL+3
PSOPROP	DEV1+1~*
>> PSOPRPAS	START*
>> PSOSITE	BAIMAIL+9
PSOSU	ASK!
PSOSUSPR	ASK!, QUE+1*
PSOTIME	QUE!, QUE+1*, QUE+2
PSOX	DSH+27~
>> PSRT	ASK+8*
>> PSRTONE	ASK+9*
PSSN	BAIMAIL+3~, BAIMAIL+15*, BAIMAIL+17, BAIMAIL+18, BAIMAIL+20
>> PSXSYS	DEV+1
PTDFN	DSH+1~, DSH+4*, DSH+5
REC	DSH~, DSH+3, DSH+26, DSH+28, DSH+29
RFL	DSH+1~, DSH+3*, DSH+25, DSH+29
RX	BAIMAIL+3~, BAIMAIL+18*, BAIMAIL+20, BAIMAIL+22
RXFIL	DSHDT+1~, LFDS+1~, LFDS+3*, LFDS+4
RXIEN	DSH+1~, DSH+3*, DSH+4, DSH+5, DSH+7, DSH+10, DSH+16, DSH+20, DSH+24, DSH+25 , DSH+29, DSHDT~, DSHDT+2, DSHDT+4, DSHDT+5, LFDS~, LFDS+2, LFDS+3, LFDS+4, LDPFDT~ , LDPFDT+1, PRFDT~, PRFDT+1, LDT~, LDT+1
SDT	DSH+2~
SEQ	BAIMAIL+3~, BAIMAIL+4, BAIMAIL+10, BAIMAIL+11, BAIMAIL+12, BAIMAIL+13, BAIMAIL+16, BAIMAIL+17, BAIMAIL+20, BAIMAIL+21* , BAIMAIL+22*, BAIMAIL+23
SFN	DSH+2~, DSH+27~, DSH+29*
SHDT	DSH+1~
SUB	DSH+27~
U	DSH+3, DSH+22, LFDS+4
X	DEV+1~*, START, ASK+10, DSH+27~
>> X1	START, ASK+10
>> X2	START, ASK+10
>> XDATE	ASK+10*
XMDUZ	BAIMAIL+3~, BAIMAIL+7*, BAIMAIL+24!
XMSUB	BAIMAIL+3~, BAIMAIL+8, BAIMAIL+9, BAIMAIL+24!
XMTEXT	BAIMAIL+3~, BAIMAIL+24*!
XMY	BAIMAIL+3~, BAIMAIL+24!
XMY(	BAIMAIL+5*
XMY("G.PSO EX	TERNAL DISPENSE ALERTS" , BAIMAIL+6*
XOK	DSH+27~
>> Y	ASK+1, ASK+8, ASK+9, QUE, QUE+1
>> ZTDESC	QUE+2*
>> ZTDTH	QUE+2*
>> ZTIO	QUE+2*
>> ZTRTN	QUE+2*
>> ZTSAVE(	QUE+3*
>> ZTSAVE("APS*"	QUE+4*
ZTSK	ASK+10!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSULB1

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: