Routine: PSOBING1

Package	Total	Call Graph
VA Fileman	8	DD^%DT NOW^%DTC ^DIC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR
Outpatient Pharmacy	4	(CHKUP,REMOVE1)^PSOBINGO STATS1^PSOBRPRT BCI^PSODISP ^PSOLSET
IHS Patient	1	$$HRN^AUPNPAT
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Outpatient Pharmacy	13	PSOBBC PSOBINGO PSOCSRL PSODISP PSODISP3 PSODISPS PSOHLDI1 PSOORFIN PSORX1 PSORXEDT PSOSUPAT PSOSUPRX PSOTPRX1
IHS Changes To Pharmacy	1	APSPAUTO

Entry Points

External References

Name	Field # of Occurrence
DD^%DT	REL+8
NOW^%DTC	REL1
$$HRN^AUPNPAT	NEW1+2
^DIC	STORX+8
FILE^DICN	NEW, REL1+7, REL1+8, REL1+9
^DIE	STO+1, STORX+9, WTIME+5, WTIME+7, WTIME+8, WTIME+9, REL1+3
^DIK	WARN, CREF+4, CREF+8, REL+8
$$GET1^DIQ	NEW1+2, REL
^DIR	BCRMV
CHKUP^PSOBINGO	STO+3
REMOVE1^PSOBINGO	BCRMV1+6
STATS1^PSOBRPRT	REL1+10
BCI^PSODISP	BCRMV+2
^PSOLSET	BEG
$$SITE^VASITE	BCRMV+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$P(^DPT(TDFN,0),"^")_" ("_TSSN_") was issued ticket # "_TIC,". Try again!",! Line Location: NEW1+8
Function Call: WRITE	Prompt: !!,$C(7),Y(0,0)," is being edited!",! Line Location: STO+0
Function Call: WRITE	Prompt: !!,?5,"NAME",?30,"SSN",?45,"ID",?50,"ORDER" Line Location: NOTE+1
Function Call: WRITE	Prompt: !!,?5,"NAME",?30,"HRN",?45,"ID",?50,"ORDER" Line Location: NOTE+2
Function Call: WRITE	Prompt: !,?5,Z1,?30,Z4,?46,Z2,?52,Z3 Line Location: NOTE+3
Function Call: WRITE	Prompt: !!,"Please advise the patient that the above ID # and/or ORDER Letter" Line Location: NOTE+4
Function Call: WRITE	Prompt: !,"will be displayed with his/her name on the Bingo Display",!! Line Location: NOTE+5
Function Call: WRITE	Prompt: !,$C(7),"** ",Z1," is enrolled for ScripTalk.",!," Please use label(s) from ScripTalk printer." Line Location: NOTE+6
Function Call: WRITE	Prompt: ! Line Location: NOTE+6
Function Call: WRITE	Prompt: !," ** NO SCRIPTALK PRINTER DEFINED FOR THIS DIVISION!",! Line Location: NOTE+7
Function Call: WRITE	Prompt: !," ** SCRIPTALK PRINTER IS NOT DEFINED FOR AUTO-PRINT",!,"You must manually queue the ScripTalk label(s) to print.",! Line Location: NOTE+8
Function Call: WRITE	Prompt: !!,"Wand the barcode of the Rx or manually key in",!,"the number below the barcode, the Rx number, or the",!,"patient name in the format - 'LASTNAME,FIRSTNAME'" Line Location: HELP+0
Function Call: WRITE	Prompt: !!,"The barcode # should be of the format - 'NNN-NNNNNNN'" Line Location: HELP+1
Function Call: WRITE	Prompt: !! Line Location: BCRMV+0
Function Call: WRITE	Prompt: !?7,$C(7)," INVALID STATION # !",! Line Location: BCRMV+3
Function Call: WRITE	Prompt: !?7,$C(7)," NON-EXISTENT RX #" Line Location: BCRMV+4
Function Call: WRITE	Prompt: !?7,$C(7)," IMPROPER BARCODE FORMAT" Line Location: BCRMV+6
Function Call: WRITE	Prompt: !!,BNAME," isn't in the Bingo Board file.",$C(7) Line Location: BCRMV1+4
Function Call: WRITE	Prompt: !!,BNAME," has already been removed from the display.",$C(7) Line Location: BCRMV1+5
Function Call: WRITE	Prompt: !!,BNAME," is removed from the display." Line Location: BCRMV1+7
Function Call: WRITE	Prompt: !!,$C(7),"Bingo record is incomplete!" Line Location: WARN+0
Function Call: WRITE	Prompt: !!,"Bingo record removed.",! Line Location: WARN+0
Function Call: WRITE	Prompt: !!,"The Rx for ",NAM," isn't in the Bingo Board",!,"file and must be entered manually.",$C(7) Line Location: REL+6
Function Call: WRITE	Prompt: !!,NAM," is already in the display queue.",$C(7) Line Location: REL+7
Function Call: WRITE	Prompt: !!,$C(7),NAM," was entered on "_Y_".",!,"It can't be displayed and is now deleted." Line Location: REL+8
Function Call: WRITE	Prompt: !!,NAM," is from another division",!,"and must be displayed manually.",$C(7) Line Location: REL+10
Function Call: WRITE	Prompt: !!,$C(7),NM," is being edited!",! Line Location: REL1+2
Function Call: WRITE	Prompt: !!,NAM," added to the "_$P($G(^PS(59.3,$P(RX0,"^",3),0)),"^")_" display." Line Location: REL1+5
Function Call: WRITE	Prompt: !,$C(7),"This patient is enrolled in ScripTalk and may benefit from",!,"a non-visual announcement that prescriptions are ready." Line Location: REL1+6
Routine Call	DIE Line Location: STO+1 STORX+9 WTIME+5 WTIME+7 WTIME+8 WTIME+9 REL1+3
Routine Call	DIC Line Location: STORX+8
Routine Call	DIR Line Location: BCRMV

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls
^PS(52.11 - [#52.11]	Classic Fileman Calls
^PS(59 - [#59]	GET1^DIQ
^PS(59.2 - [#59.2]	Classic Fileman Calls
^APSPCTRL - [#9009033]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	STO, REL1+2
^DD(52.11	STORX+2
^DD(59.2	REL1+8
^DPT - [#2]	NEW1+2, NEW1+8, BCRMV1, REL+2, REL1+1
^PS(52.11 - [#52.11]	NEW1+6, NEW1+7, NEW1+8, STO, STO+2, NOTE+2, NOTE+3, BCRMV1+1, BCRMV1+2, BCRMV1+5 , WTIME+4, CREF+1, CREF+2, CREF+6, REL+3, REL+4, REL+7, REL+8, REL+9, REL+10 , REL1+1, REL1+2, REL1+3, REL1+4, REL1+6
^PS(55 - [#55]	NOTE+6, REL1+6
^PS(59 - [#59]	NOTE+7, NOTE+8
^PS(59.2 - [#59.2]	REL1+7
^PS(59.3 - [#59.3]	NEW1+2, REL1+4, REL1+5
^PSRX - [#52]	BCRMV+4, BCRMV+5, BCRMV1, STORX+4, STORX+6, STORX+8, WTIME+8, WTIME+9, CREF+3

Label References

Name	Line Occurrences
BCRMV	BCRMV+3, BCRMV+4, BCRMV+6, BCRMV1+4, BCRMV1+5, BCRMV1+8
BCRMV1	BCRMV+2, BCRMV+5
END	BEG, NEW1+2, NEW1+10, STO, STO+1, STO+3, BCRMV+1, REL+6, REL+7, REL+8 , REL+10, REL1+2, REL1+3, REL1+4
NEW	NEW
NEW1	NEW1+10
NOTE	STO+3
REL1	REL+9, REL+11, REL+12, REL+13
STO	NEW1+5
STORX	STO+2
WARN	STO, STO+1, REL1+2, REL1+3, REL1+4
WTIME	REL1+10

Naked Globals

Name	Field # of Occurrence
^(0	WTIME+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	REL1
ADA	REL+2*, END!
BB	STORX+1~, STORX+3*, STORX+4, STORX+5, STORX+6, STORX+8
BBN	STORX+1~, STORX+3*
>> BBRX(	STORX+3
>> BBRX(1	STORX+1
BDA	BCRMV1, WTIME+1, WTIME+4, WTIME+10, CREF+1*, CREF+2, CREF+4, CREF+6, CREF+9!, END!
BDIV	REL+11, REL+12, REL+13*, END!
>> BINGDIV	REL+11
>> BINGNAM	REL+2, REL+3
>> BINGRO	REL+11
>> BINGRPR	REL+12, REL+13
BNAME	BCRMV1*, BCRMV1+4, BCRMV1+5, BCRMV1+7, END!
>> BNGPDV	REL+12
>> BNGRDV	REL+13
BNGRXP	REL+1, REL+2, REL+5, END!
BNGSUS	NEW*, NEW1+5, NEW1+13, END!
BRB	CREF+1, CREF+5, CREF+6, CREF+7, CREF+9!
BRX	BCRMV1+2, BCRMV1+3, BCRMV1+7!, WTIME+4, WTIME+10!, REL+4*, REL+5, END!
BRX0	CREF+2*, CREF+9!
BRX1	WTIME+2~, WTIME+4, WTIME+6, WTIME+10!, CREF+2, CREF+3, CREF+5, CREF+9!
BRXFL	WTIME+2~, WTIME+4, WTIME+8, WTIME+9, WTIME+10!, CREF+2, CREF+3, CREF+9!
BRXFLN	WTIME+2~, WTIME+4, WTIME+7, WTIME+8, WTIME+9, WTIME+10!, CREF+2, CREF+3, CREF+5, CREF+9!
CNT1	BCRMV1*, END!
CT	END!
DA	NEW, NEW1+2, NEW1+5, NEW1+6, NEW1+7, STO, STO+1, STO+2, NOTE+2, BCRMV1+3* , BCRMV1+4, BCRMV1+5, BCRMV1+7!, WARN!, STORX+2, STORX+9, WTIME+1, WTIME+3, WTIME+4, WTIME+6~* , WTIME+8, WTIME+9, WTIME+10, CREF+1, CREF+2, CREF+6, REL+5, REL+6, REL+7, REL+8 , REL+9, REL+10, REL1+1, REL1+2, REL1+3, REL1+4, REL1+6, REL1+7!, REL1+8!, REL1+9! , REL1+10*, END!
DA(1	STORX+2, WTIME+3, WTIME+8, WTIME+9, WTIME+10!, CREF+4!, REL1+8, REL1+9*
DD	NEW!, REL1+7!, REL1+8!, REL1+9!, END!
>> DFN	NEW1+2, NOTE+2*, NOTE+3, NOTE+6
DIC	NEW!, STORX+1~, STORX+2, REL1+7!, REL1+8!, REL1+9!*, END!
DIC("P"	STORX+2, REL1+8
DIC(0	NEW, STORX+2, REL1+7, REL1+8, REL1+9*
DIE	NEW, STORX+1~, STORX+2, WTIME+2~, WTIME+3, WTIME+6~, WTIME+7!, WTIME+8!, WTIME+9!, WTIME+10! , REL1+1*, END!
>> DIF	WTIME+1, WTIME+5, WTIME+7, WTIME+8, WTIME+9
DIK	BCRMV1+7!, WARN!, CREF+4!, CREF+8, REL+8!, END!
>> DINUM	REL1+7, REL1+8, REL1+9*
DIR	BCRMV!, END!
DIR("?"	BCRMV*
DIR("A"	BCRMV*
DIR(0	BCRMV*
>> DIRUT	BCRMV+1
>> DISGROUP	NEW1+2, NEW1+5, NEW1+13
>> DLAYGO	STORX+2*
DO	NEW!, REL1+7!, REL1+8!, REL1+9!, END!
DR	NEW1+5, NEW1+13, STORX+1~, STORX+9, WTIME+2~, WTIME+5, WTIME+7, WTIME+8, WTIME+9, WTIME+10! , REL1+1, END!
DT	REL+8, REL1+7, REL1+9
DTOUT	STO+1, REL1+3, END!
DUOUT	STO+1, REL1+3, END!
FL	STORX+1~, STORX+5, STORX+6, STORX+7*, STORX+9!
FLN	STORX+1~, STORX+5, STORX+6, STORX+7*, STORX+9!
GRP	REL1+4*, END!
GRTP	NEW1+2*, NEW1+10, STO, STO+3, END!
I	STORX+1~, STORX+6*
JOES	REL1+4*, REL1+8, REL1+9, END!
NAM	NEW1+2, NEW1+5, NEW1+13, REL+1~, REL+2, REL+6, REL+7, REL+8, REL+10, REL1+5 , END+1!
NAME	REL+1~
NDA	NEW*, STO, END+1!
NFLAG	STO, NOTE+2, END+1!
>> NM	REL1+1*, REL1+2
NME	BCRMV1*, BCRMV1+1, END+1!
NODE	NOTE+3*, NOTE+9!
NUM	STORX+1~, STORX+3*
ODA	NEW, STO+1, REL+5, REL1+10, END+1!
>> PSODFN	NEW, NEW1+2
>> PSODRF	CREF+8*
>> PSOPAR	BEG
>> PSOSITE	NEW1+2, NEW1+5, NEW1+13, NOTE+7, NOTE+8, REL, REL+10
PSZ	REL1+7*, REL1+8, REL1+9, END+1!
>> RX0	REL1+4*, REL1+5
RXO	REL+1~, END+1!
>> RXP	BCRMV+2, BCRMV+4*, BCRMV+5, BCRMV1, BCRMV1+3, REL+1, REL+2
>> RXPR(	STORX+5, STORX+6
SSN	NEW1+2*, NEW1+5, NEW1+13, REL+1~, END+1!
>> SUSROUTE	NEW
TDFN	NEW1+8*, NEW1+9!, END+1!
TFLAG	NEW1+5!, NEW1+8, NEW1+9, NEW1+10, STO+3, END+1!
TIC	NEW1+6*, NEW1+7, NEW1+8, END+1!
TICK	REL1+4*, END+1!
TIEN	NEW1+7*, NEW1+8, NEW1+9!, END+1!
TM	NEW1+5, NEW1+13, REL1~*, END+1!
TM1	NEW1+5, NEW1+13, REL1~*, REL1+1, END+1!
TSSN	NEW1+8*, NEW1+9!, END+1!
X	NEW, STO+1, BCRMV+2, BCRMV+3, BCRMV+4, STORX+8, REL1+3, REL1+7, REL1+8, REL1+9* , END+1!
>> XDA	STO+1*, STO+2
XX	BCRMV1+1, BCRMV1+2, BCRMV1+3, BCRMV1+7!, WTIME+2~, WTIME+4, WTIME+10!, CREF+1, REL+3, REL+4 , REL+5, END+1!
Y	NEW, STORX+9, REL+8*, REL1+7, REL1+8, END+1!
Y(0	STO
>> Z	NOTE+3*
Z1	NOTE+3*, NOTE+6, NOTE+9!
Z2	NOTE+3*, NOTE+9!
Z3	NOTE+3*, NOTE+9!
>> Z4	NOTE+3*
>> ZDA	NOTE+3*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOBING1

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
WARN
STORX	;Sto Rx # for each entry in 52.11
END
HELP
WTIME	;sto bingo wait time in 52
REL1
STO
BEG
NOTE	; IHS/CIA/PLS - 07/08/04 - Changed SSN reference to HRN
REL
NEW
NEW1	; IHS/CIA/PLS - 07/08/04 - Change SSN references to HRN
BCRMV
CREF	;check for deleted refills
BCRMV1