Routine: PSODISP

Information

PSODISP ;BIR/SAB-MANUAL BARCODE RELEASE FUNCTION ;16-Oct-2017 09:32;du

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
Outpatient Pharmacy	11	REL^PSOBING1 ($$MANREL,IBSEND)^PSOBPSUT OREL^PSOCMOPB CP^PSOCP BC1^PSODISP (CHKADDR,QTY,STAT)^PSODISPS ICN^PSODPT EN^PSOHLSN1 EN^PSOHLUP ^PSOLSET IBSSR^PSOUTL
VA Fileman	6	NOW^%DTC ^DIC ^DIE $$GET1^DIQ EN^DIQ1 ^DIR
IHS Changes To Pharmacy	2	$$EXPDT^APSPAUTO CALLPOS^APSPFUNC
Integrated Billing	1	$$SERV^IBARX1
Kernel	1	^%ZTLOAD
Registration	1	$$SITE^VASITE

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSO RELEASE PSOBING1 PSODISP PSODISP3 PSODISPS

Entry Points

Name	Comments	DBIA/ICR reference
DCHK	;checks for duplicate
AC
HELP		ICR #980 Status: Active Usage: Private
BC	;
XMIT
BATCH	;
UPDATE
GETFILL	; get the fill number
AC1
EXIT	;
RXP
REF	;release refills and partials
BC1	;
BCI

External References

Name	Field # of Occurrence
NOW^%DTC	BATCH+20, XMIT
^%ZTLOAD	XMIT+4
$$EXPDT^APSPAUTO	UPDATE+8
CALLPOS^APSPFUNC	BATCH+26
^DIC	AC1+1, AC1+3, AC1+5
^DIE	BATCH+20, UPDATE+10
$$GET1^DIQ	BATCH+3
EN^DIQ1	AC1+6
^DIR	BC+2
$$SERV^IBARX1	AC+3
REL^PSOBING1	BC+1, DCHK+2, DCHK+5, DCHK+8
$$MANREL^PSOBPSUT	BATCH+16
IBSEND^PSOBPSUT	BATCH+23
OREL^PSOCMOPB	BATCH+8
CP^PSOCP	UPDATE+2
BC1^PSODISP	DCHK+7
CHKADDR^PSODISPS	BATCH+12
QTY^PSODISPS	REF+1
STAT^PSODISPS	BC1+6
ICN^PSODPT	BC1+1
EN^PSOHLSN1	BATCH+25
EN^PSOHLUP	BC+8
^PSOLSET	AC+2
IBSSR^PSOUTL	AC+3
$$SITE^VASITE	BC+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?5,"Site Parameters must be defined to use the Release option!",! Line Location: AC+2
Function Call: WRITE	Prompt: !! Line Location: AC1+0
Function Call: WRITE	Prompt: !! Line Location: BC+2
Function Call: WRITE	Prompt: !?7,$C(7),$C(7)," INVALID STATION NUMBER !!",$C(7),$C(7),! Line Location: BC+5
Function Call: WRITE	Prompt: !?7,$C(7),$C(7),$C(7)," NON-EXISTENT PRESCRIPTION" Line Location: BC+6
Function Call: WRITE	Prompt: !?7,$C(7),$C(7),$C(7)," IMPROPER BARCODE FORMAT" Line Location: BC+9
Function Call: WRITE	Prompt: !!?7,$C(7),$C(7),"Rx# "_$P(^PSRX(RXP,0),"^") Line Location: BC1+3
Function Call: WRITE	Prompt: !?7,$C(7),$C(7)," PRESCRIPTION IS A DELETED PRESCRIPTION NUMBER" Line Location: BC1+5
Function Call: WRITE	Prompt: !!?5,"Rx# "_$P(^PSRX(RXP,0),"^")_" Original Fill returned to stock on "_$E(RESK,4,5)_"/"_$E(RESK,6,7)_"/"_$E(RESK,2,3),! Line Location: BATCH+1
Function Call: WRITE	Prompt: $C(7),!!?7,"Prescription "_$P(^PSRX(RXP,0),"^")_" - Original Fill on Suspense !",!,$C(7) Line Location: UPDATE+0
Function Call: WRITE	Prompt: !?7,"Prescription Number "_$P(^PSRX(RXP,0),"^")_" Released" Line Location: UPDATE+11
Function Call: WRITE	Prompt: !!,"Wand the barcode number of the prescription or manually key in",!,"the number below the barcode or the prescription number.",!,"The barcode number should be of the format - 'NNN-NNNNNNN'" Line Location: HELP+0
Function Call: WRITE	Prompt: !!,"Duplicate Rx # "_$P(^PSRX(RXP,0),"^")_" found." Line Location: DCHK+6
Routine Call	DIE Line Location: BATCH+20 UPDATE+10
Routine Call	DIC Line Location: AC1+1 AC1+3 AC1+5
Routine Call	DIR Line Location: BC+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^PSRX - [#52]	Classic Fileman Calls
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BC1+9
^PS(52.5 - [#52.5]	BATCH+7
^PS(55 - [#55]	BC+8
^PS(59 - [#59]	AC+3
^PS(59.7 - [#59.7]	AC1
^PSD(58.8 - [#58.8]	BC1+8
^PSDRUG - [#50]	BATCH+19*
^PSDRUG("AQ"	BATCH+8
^PSRX - [#52]	BC+6, BC+7, BC+8, BC1+1, BC1+2, BC1+3, BC1+5, BC1+6, BC1+8, BC1+9 , BC1+10, BATCH+1, BATCH+4, BATCH+6, BATCH+10, BATCH+19, BATCH+26, UPDATE, UPDATE+2, UPDATE+6 , UPDATE+9, UPDATE+11, UPDATE+13, UPDATE+15, GETFILL+1, RXP, DCHK+3, DCHK+4, DCHK+6, XMIT+1
^PSRX("AR"	BATCH+28
^PSRX("B"	RXP, DCHK+3
^UTILITY($J	AC+1!, XMIT+2!, XMIT+3*, XMIT+4!
^XTMP("PSA"	AC1+4, AC1+8, BATCH+28*

Label References

Name	Line Occurrences
AC1	BC+3
BC	AC1+3, AC1+4, AC1+5, AC1+7, BC+4, BC+5, BC+6, BC+9, BC1+2, BC1+5 , BC1+6, BC1+9, REF+3
BC1	BC+4, BC+7
BCI	BC+4
DCHK	BC1+5, BC1+6, BC1+9, REF+2, DCHK+4, DCHK+9
EXIT	AC+2, AC+3, AC1+1
REF	BC1+10, BATCH+1, BATCH+6
RXP	RXP
UPDATE	BATCH+6
XMIT	UPDATE+15

Naked Globals

Name	Field # of Occurrence
^("STA"	BC1+6
^(0	AC1+4, AC1+8, BATCH+7, BATCH+10
^(2	BATCH+1, BATCH+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BATCH+20, EXIT+1!, XMIT
APSPEXPD	UPDATE+5~, UPDATE+8*, UPDATE+9, UPDATE+10
BFILL	UPDATE+1~*
BINGDIV	BC+1!, UPDATE+13*, DCHK+2!, DCHK+5!, DCHK+8!
BINGNAM	BC+1!, UPDATE+13*, DCHK+2!, DCHK+5!, DCHK+8!
BINGRO	BC+1!, UPDATE+13*, DCHK+2!, DCHK+5!, DCHK+8!
BINGRPR	BC+1!, DCHK+2!, DCHK+5!, DCHK+8!
BNGPDV	BC+1!, DCHK+2!, DCHK+5!, DCHK+8!
BNGRDV	BC+1!, DCHK+2!, DCHK+5!, DCHK+8!
CMOP	BC+2!, BATCH+8!
CX	AC!, EXIT+1!
DA	AC!, AC1+6, AC1+7!, AC1+8, AC1+9!, BATCH+20!, UPDATE+5~, UPDATE+10*, EXIT+1!
DIC	AC1+1!, AC1+3!, AC1+5!, AC1+6, AC1+7!, AC1+9!, EXIT+1!
DIC("A"	AC1+1*
DIC("S"	AC1+1*
DIC(0	AC1+1, AC1+3, AC1+5*
DIE	AC!, BATCH+20!, UPDATE+5~, UPDATE+10, EXIT+1!
DIQ	AC1+6!*, AC1+7!, AC1+9!
DIQ(0	AC1+6*
DIR	AC!, BC+2!, EXIT+1!
DIR("?"	BC+2*
DIR("A"	BC+2*
DIR(0	BC+2*
DIRUT	AC!, AC1+1, BC+3!, EXIT+1!
>> DISGROUP	BC+1, DCHK+2, DCHK+5, DCHK+8
DR	AC!, AC1+6, BATCH+20!, UPDATE+5~, UPDATE+10*, EXIT+1!
DT	AC1+4, AC1+8, BATCH+28
DTOUT	AC1+1, BC+3!
DUOUT	AC!, AC1+1, BC+3!, EXIT+1!
>> FP	XMIT+3
>> FPN	XMIT+3
>> I	UPDATE+15*
>> IDGN	XMIT+1*, XMIT+3
IFN	REF+1!, EXIT+1!
ISUF	BC+2!, BATCH+6, BATCH+7*, BATCH+8!, UPDATE, EXIT+1!
J	EXIT+1!
LBL	BC+2!, BATCH+10*, BATCH+20!
LBLP	BC+2!, BATCH+6, BATCH+10*, BATCH+13, BATCH+16!, REF+1!, UPDATE+13
MAN	BC+1!, BC+4*, EXIT+1!, DCHK+1, DCHK+3!
>> NFLD	GETFILL+1*
OUT	BC1+9*!, REF+2, EXIT+1!
>> PDUZ	XMIT+3
POERR	BC+2, BC1+2, BC1+5, BC1+6, BC1+9, REF+2, DCHK+3!, DCHK+7*
PSA	AC1+6!, AC1+9!
PSA(19	AC1+7, AC1+8
PSIN	AC1*, BATCH+6, EXIT+1!
PSOCPN	AC!, BATCH+4*, EXIT+1!
PSOCPRX	AC!, UPDATE+2*, EXIT+1!
PSODA	AC!, AC1+4, AC1+8, BATCH+28
PSODA(1	BC1+8*, BATCH+28
PSODISP	BATCH+3~*, UPDATE+14, EXIT+1!
PSODT	AC!, BATCH+20*, BATCH+28
>> PSODTM	XMIT*, XMIT+3
PSOIBFL	AC+3, EXIT+1!
PSOIBLP	EXIT+1!
PSOIBSS	AC+3*, EXIT+1!
PSOIBST	EXIT+1!
>> PSOLIST	BC1+3*
PSOLOUD	BC+8*!
>> PSOPAR	AC+2
PSOPID	AC!, AC+1*, BATCH+16
>> PSOSITE	AC+3, BC1+8, BATCH+3, BATCH+28
PSRH	AC!, AC1+1*, BATCH+20, EXIT+1!
PX	AC!, EXIT+1!
QDRUG	AC!, BATCH+4*, BATCH+8, BATCH+19, BATCH+28, EXIT+1!
QTY	AC!, BATCH+4*, BATCH+19, BATCH+28, EXIT+1!
RDT	UPDATE+5~, UPDATE+6*, UPDATE+8
RDUZ	AC!, EXIT+1!
REC	AC!, EXIT+1!
RESK	BATCH+1*, EXIT+1!
RX2	EXIT+1!
RXFD	BATCH+6*, BATCH+7, EXIT+1!
RXP	AC!, BC+1, BC+4, BC+6, BC+7, BC+8, BC1+1, BC1+2, BC1+3, BC1+5 , BC1+6, BC1+8, BC1+9, BC1+10, BATCH+1, BATCH+4, BATCH+6, BATCH+7, BATCH+8, BATCH+10 , BATCH+12, BATCH+16, BATCH+19, BATCH+20, BATCH+23, BATCH+25, BATCH+26, BATCH+28, UPDATE, UPDATE+2 , UPDATE+6, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+11, UPDATE+13, UPDATE+15, EXIT+1!, GETFILL+1, BCI , RXP, DCHK+3, DCHK+4, DCHK+6, XMIT+1, XMIT+3
>> SPEED	BC1+3, BC1+10
SUB	UPDATE+15*, EXIT+1!
SUPN	BATCH+7*, EXIT+1!
TYPE	AC!, EXIT+1!
U	AC1+4, AC1+8, BC1+8, BATCH+19, UPDATE+6, UPDATE+9
>> UU	GETFILL+1*
X	AC!, AC1+1, AC1+3!, AC1+5!, AC1+7!, AC1+9!, BC+4, BC+5, BC+6, EXIT+1! , RXP
X1	AC!, EXIT+1!
X2	AC!, EXIT+1!
XTYPE	AC!, REF+1*, EXIT+1!
XX	EXIT+1!
Y	AC!, AC+3, AC1+1, AC1+3!, AC1+5, AC1+6, AC1+7!, AC1+9!, BC1+9, BC1+10 , EXIT+1!
Y(0	AC1+4
YDT	AC!, EXIT+1!
YY	AC!, EXIT+1!
>> ZTDESC	XMIT+4*
>> ZTDTH	XMIT+4*
>> ZTIO	XMIT+4*
>> ZTRTN	XMIT+4*
>> ZTSAVE("PSOLAP"	XMIT+4*
>> ZTSAVE("PSOSITE"	XMIT+4*
>> ZTSAVE("RXP"	XMIT+4*
>> ZTSAVE("^UTILITY($J,""PSOHL"","	XMIT+4*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODISP

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: