Routine: PSOBINGO

Information

PSOBINGO ;BHAM ISC/LC - BINGO BOARD OPTION DRIVER ;29-May-2012 14:39;PLS

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
VA Fileman	8	DD^%DT NOW^%DTC ^DIC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR
Outpatient Pharmacy	4	(BCRMV,CREF,WTIME)^PSOBING1 STATS1^PSOBRPRT ^PSOLSET EN^PSOPATLK
IHS Patient	1	$$HRN^AUPNPAT
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSO BINGO DELETE PATIENT PSO BINGO DISPLAY PATIENT PSO BINGO NEW PATIENT PSOBING1 ^PS(52.11

Entry Points

Name	Comments	DBIA/ICR reference
HELP
SETUP
BEG	;PSOAP=1 NEW ENTRY; 2=DISPLAY; 3=REMOVE
REMOVE1	;
NEW	;Init lookup
DIR
TIC
CHKUP	;Multi & dupe names
STUF
ATICSET	;Set ATIC xref PSO*232
STRX0
STRX1
END
BICK	;Chks "BI" Xref & assigns seq#
SHOW
BROW
WARN
ATICKIL	;Kill ATIC xref PSO*232
PASS
FIRST	;Set 1st dup
STRX	;sto Rx #'s IN 52.11
REMOVE
NOTE	; IHS/CIA/PLS - 07/08/04 - Change SSN reference to HRN
MW	;
HELP2
SETNEW

External References

Name	Field # of Occurrence
DD^%DT	BEG+7
NOW^%DTC	BEG+1
$$HRN^AUPNPAT	NEW+7
^DIC	BEG+2, BEG+4, STRX0+1
FILE^DICN	NEW+3, MW+5, SETUP, SETUP+1, SETUP+2
^DIE	PASS+1, REMOVE1+3, REMOVE1+6, CHKUP+2, FIRST+1, SETNEW+1, BICK+2, BICK+4
^DIK	BEG+7, WARN, REMOVE
$$GET1^DIQ	NEW+7
^DIR	TIC, STRX0, NOTE+6, DIR+1, HELP2+2
BCRMV^PSOBING1	BEG+1
CREF^PSOBING1	BEG+9
WTIME^PSOBING1	BEG+11
STATS1^PSOBRPRT	BEG+11
^PSOLSET	PSOBINGO+9
EN^PSOPATLK	NEW+1
DEM^VADPT	NEW+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: BEG+3
Function Call: WRITE	Prompt: !!,NAM," is already in the display queue.",$C(7) Line Location: BEG+6
Function Call: WRITE	Prompt: !!,$C(7),NAM," was entered on "_Y_".",!,"It can't be displayed and is now deleted." Line Location: BEG+7
Function Call: WRITE	Prompt: !!,$C(7),NAM," was entered under the "_$P(^PS(59,$P(^(0),"^",4),0),"^")_" division." Line Location: BEG+8
Function Call: WRITE	Prompt: !! Line Location: NEW+1
Function Call: WRITE	Prompt: !! Line Location: TIC+1
Function Call: WRITE	Prompt: !,$C(7),$P(^DPT(TDFN,0),"^")_" ("_TSSN_") was issued ticket # "_TIC,". Try again!",! Line Location: TIC+3
Function Call: WRITE	Prompt: !!,$C(7),Y(0,0)," is being edited!",! Line Location: PASS+0
Function Call: WRITE	Prompt: !?5,$C(7),"Routing is set for Mail" Line Location: MW+1
Function Call: WRITE	Prompt: !!!,$C(7),"Patient record incomplete!" Line Location: WARN+0
Function Call: WRITE	Prompt: !!,"Record is removed." Line Location: SHOW+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: !! Line Location: NOTE+4
Function Call: WRITE	Prompt: !,$P(^PSRX(PD,0),"^")," ",$P(^PSDRUG($P(^PSRX(PD,0),"^",6),0),"^") Line Location: HELP2+1
Function Call: WRITE	Prompt: !,"Enter the patient's Rx number.",! Line Location: HELP+0
Routine Call	DIE Line Location: PASS+1 REMOVE1+3 REMOVE1+6 CHKUP+2 FIRST+1 SETNEW+1 BICK+2 BICK+4
Routine Call	DIC Line Location: BEG+2 BEG+4 STRX0+1
Routine Call	DIR Line Location: TIC STRX0 NOTE+6 DIR+1 HELP2+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	PASS
^DD(52.11	MW+5
^DD(59.2	SETUP+1
^DPT - [#2]	BEG+10, TIC+3, REMOVE1+1, REMOVE1+2, REMOVE1+4
^PS(52.11 - [#52.11]	BEG+6, BEG+7, BEG+8, BEG+10, TIC+2, TIC+3, PASS, PASS+1, STUF, REMOVE1+1 , REMOVE1+2, REMOVE1+4!, REMOVE1+5, REMOVE1+7!, CHKUP+1, CHKUP+2, BROW+1, BROW+3!, BROW+4, SETNEW , BICK+1, BICK+2, BICK+3, NOTE+2, NOTE+3, ATICSET+1, ATICSET+2, ATICSET+3, ATICSET+4*, ATICKIL+1 , ATICKIL+2, ATICKIL+3, ATICKIL+4!
^PS(55 - [#55]	HELP2, HELP2+1
^PS(59 - [#59]	BEG+8
^PS(59.2 - [#59.2]	SETUP, SETUP+2
^PS(59.3 - [#59.3]	NEW+2, NEW+4, ATICSET+3, ATICKIL+3
^PSDRUG - [#50]	HELP2+1
^PSRX - [#52]	STRX0+6, STRX0+7, STRX0+8, STRX0+9, STRX0+11, STRX0+12, STRX0+13, HELP2+1

Label References

Name	Line Occurrences
BEG	BEG+2, BEG+5, BEG+6, BEG+7, BEG+8, BEG+9, TIC, PASS+1, STRX0, STRX0+1 , STRX0+3, STRX1, SETUP+3
BICK	BROW+4
BROW	CHKUP+1, CHKUP+2
CHKUP	STRX1
DIR	MW+1
END	PSOBINGO+9, BEG+1, BEG+2, BEG+4, NEW+1
NEW	BEG+1, NEW+3, NEW+5, SETUP+2
NOTE	STRX1
PASS	BEG+11, TIC+5
REMOVE	NOTE+6
REMOVE1	BEG+5
SETNEW	BROW+5
SETUP	BEG+11
SHOW	WARN
STRX	MW+2, MW+5
STRX0	STRX0+2
STRX1	PASS+2, STRX0, STRX0+4
STUF	BEG+5, STRX1
TIC	TIC+5
WARN	NEW+5, TIC, PASS+1, STRX0, STRX0+1, STRX0+3, STUF

Naked Globals

Name	Field # of Occurrence
^(	BICK+2, BICK+3
^(0	BEG+8, REMOVE1+5, REMOVE1+7, ATICSET+4, ATICKIL+4
^(1	REMOVE1+1, REMOVE1+2, REMOVE1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BEG+1, END!
ADA	NEW+1*, NEW+2, SHOW!, HELP2, HELP2+1, END!
ADFN	SETNEW*, END!
ADV	PSOBINGO+9, NEW+4, TIC, TIC+1, TIC+5, STRX1, STUF, END!
BBFNUM	STRX+1~, STRX0+11, STRX0+12, STRX0+13*, MW+2!, MW+4, MW+5!
BBFTYP	STRX+1~, STRX0+10, STRX0+11, STRX0+12, STRX0+13, MW+2!, MW+4, MW+5!
BBMW	STRX+1~, STRX0+11, STRX0+12, STRX0+13*, MW+1, MW+2!
BRXNUM	STRX+1~, STRX0+5*, STRX0+6, STRX0+7, STRX0+8, STRX0+9, STRX0+11, STRX0+12, STRX0+13, MW+2! , MW+4, MW+5!
CNT	FIRST+1!, BROW, BROW+4, SETNEW, BICK+2, BICK+3, BICK+4, END!
DA	BEG+2, BEG+4, BEG+6, BEG+7, BEG+11, NEW+1, NEW+4, TIC+2, PASS, PASS+1 , MW+5, SETUP!, SETUP+1!, SETUP+2!, STUF, SHOW!, REMOVE1+1, REMOVE1+2, REMOVE1+4, REMOVE1+5 , REMOVE1+7, CHKUP+1, BROW, BROW+1, BICK+2*, NOTE+2, ATICSET+1, ATICSET+2, ATICSET+3, ATICSET+4 , ATICKIL+1, ATICKIL+2, ATICKIL+3, ATICKIL+4, END!
DA(1	MW+5, SETUP+1, SETUP+2*
DATE	END!
DD	NEW+2!, NEW+3!, MW+5!, SETUP!, SETUP+1!, SETUP+2!
DFN	NEW+1, NEW+7, CHKUP+1, BICK+2, NOTE+2*, NOTE+3, END!
>> DGP	PSOBINGO+9, NEW+2
DIC	BEG+2!, BEG+3!, BEG+4!, NEW+1!, NEW+2, NEW+3!, STRX0+1!, MW+5, SETUP!, SETUP+1! , SETUP+2!*
DIC("A"	BEG+3, NEW+1
DIC("DR"	NEW+2, MW+4
DIC("P"	MW+5, SETUP+1
DIC("S"	BEG+2, BEG+3, STRX0+1*
DIC(0	BEG+2, BEG+3, NEW+1, NEW+3, STRX0+1, MW+5, SETUP, SETUP+1, SETUP+2*
DIE	BEG+3!, NEW+2, REMOVE1+2~, REMOVE1+5
DIK	BEG+7!, WARN, REMOVE*, SHOW!
DINUM	SETUP, SETUP+1, SETUP+2*, END!
DIR	NOTE+6!, DIR!, DIR+1!, HELP2+2~!
DIR("?"	TIC, STRX0, DIR*
DIR("??"	STRX0*
DIR("A"	TIC, STRX0, NOTE+4, NOTE+5, DIR, HELP2+2
DIR("B"	DIR*
DIR(0	TIC, STRX0, NOTE+4, DIR, HELP2+2*
DIRUT	TIC, STRX0, DIR+1!
>> DISGROUP	NEW+2
DLAYGO	BEG+3!, NEW+3, MW+4, SETUP, SETUP+1, SETUP+2*, END!
DO	NEW+2!, NEW+3!, MW+5!, SETUP!, SETUP+1!, SETUP+2!
DR	BEG+10, TIC+5, TIC+6, REMOVE1+2~, REMOVE1+5, CHKUP+2, FIRST+1!, SETNEW+1, BICK+2, BICK+4 , END!
DT	BEG+7, SETUP, SETUP+2, HELP2
DTOUT	BEG+2, BEG+4, NEW+1, NEW+5, TIC, PASS+1, STRX0+1, NOTE+6, DIR+1!, END!
DUOUT	BEG+2, BEG+4, NEW+1, NEW+5, TIC, PASS+1, STRX0+1, DIR+1!, END!
F1	CHKUP+2, SETNEW+1, BICK+2, BICK+4, END!
FL	STRX+1~, STRX0+7*, MW+2!, MW+5!
FLAG	PSOBINGO+9, STRX1, WARN, END!
FLAG1	PSOBINGO+9, TIC+5, STUF, END!
FLGG	PASS+2, STRX0, STRX0+3, STRX0+4, MW+5, END!
FLN	STRX+1~, STRX0+6*, STRX0+7, STRX0+10, STRX0+12, MW+2!
FLNDT	STRX+1~, STRX0+7*, STRX0+10, MW+2!, MW+5!
>> GROUPCNT	NEW+2
II	STRX+1~, STRX0+6, STRX0+8, MW+2!, MW+5!
JOES	PSOBINGO+9, NEW+4, STUF*, END!
LAST	CHKUP+1*, CHKUP+2, END!
MWDIR	STRX+1~, MW+2!, DIR+1*
NAM	BEG+2, BEG+4, BEG+6, BEG+7, BEG+8, NEW+1*, TIC+5, TIC+6, STUF, BROW+1 , BROW+3, SETNEW, BICK+1, END!
NDFN	BICK+3*, END!
NFLAG	PASS, STRX1, NOTE+2, NOTE+6*, END!
NIEN	BROW+1*, BROW+3, SETNEW, BICK+1, END!
NM	BEG+10*, END!
NODE	NOTE+3*, NOTE+6!, END!
NOPE	BROW, BROW+1, SETNEW, BICK+1*, END!
ODA	BEG+4*, BEG+8, BEG+10, BEG+11, END+1!
P	CHKUP+1*, END+1!
PA	HELP2*, HELP2+1, END+1!
PD	HELP2, HELP2+1, END+1!
PL	HELP2, HELP2+1, HELP2+2*, END+1!
PR	STRX+1~, STRX0+9*, STRX0+10, MW+2!, MW+5!
PRN	STRX+1~, STRX0+8*, STRX0+9, STRX0+10, STRX0+11, MW+2!
PRNDT	STRX+1~, STRX0+9*, STRX0+10, MW+2!, MW+5!
PSOAP	PSOBINGO+9, BEG+1, BEG+2, BEG+3, BEG+4, BEG+5, BEG+6, BEG+7, BEG+8, BEG+9 , TIC+1, PASS+2, STRX1, SETUP+2, STUF, STUF+1, END+1!
>> PSODFN	CHKUP+1
PSODRF	BEG+9*, END+1!
>> PSOPAR	PSOBINGO+9
PSOPTLK	NEW+1!
>> PSOSITE	BEG+8, NEW+7, TIC+2, TIC+5, TIC+6, SETUP+1, SETUP+2
RX0	STUF*, END+1!
SDA	CHKUP+1*, BROW, BICK+1, BICK+2, END+1!
SSN	NEW+1, NEW+7, TIC+5, TIC+6, SETNEW, BICK+1, END+1!
SSN1	SETNEW, BICK+1, END+1!
TDFN	TIC+3*, TIC+4!
TFLAG	TIC!, TIC+1, TIC+3, TIC+4, TIC+5, END+1!
TIC	TIC+1*, TIC+2, TIC+3, TIC+5, END+1!
TICK	STUF*, END+1!
TIEN	TIC+2*, TIC+3, TIC+4!
TM	BEG+1*, TIC+5, TIC+6, END+1!
TM1	BEG+1*, BEG+10, TIC+5, TIC+6, END+1!
TRIPS	PSOBINGO+9, CHKUP+2, CHKUP+3!
TSSN	TIC+3*, TIC+4!
VADM	END+1!
VADM(1	NEW+1
VADM(2	NEW+1
>> VAERR	NEW+1
X	BEG+1, NEW+2, NEW+5, PASS+1, STRX0, MW+4, MW+5!, SETUP, SETUP+1, SETUP+2* , DIR!, DIR+1!, END+1!
Y	BEG+2, BEG+4, BEG+7, NEW+1, NEW+3, NEW+4, TIC+1, STRX+1~, STRX0+2, STRX0+3 , STRX0+4, STRX0+5, MW+2!, MW+5!, SETUP, SETUP+1, NOTE+6, DIR!, DIR+1!, END+1!
Y(0	BEG+2, BEG+4, NEW+4, PASS
Z	NOTE+3*, END+1!
Z1	NOTE+3*, NOTE+6!, END+1!
Z2	NOTE+3*, NOTE+6!, END+1!
Z3	NOTE+3*, NOTE+6!, END+1!
Z4	NOTE+3*, END+1!
ZDA	NOTE+3*, END+1!
ZZZ	SETUP*, SETUP+1, SETUP+2, END+1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOBINGO

Information

Source Information

Call Graph

Call Graph Total: 14

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: