Routine: PSOBINGO

Information

PSOBINGO ;BHAM ISC/LC - BINGO BOARD OPTION DRIVER ;8/1/07 1:45pm

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

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+0
Function Call: WRITE	Prompt: !! Line Location: NOTE+2
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
Function Call: WRITE	Prompt: !,"* This ePharmacy Rx requires a patient signature! ",7 Line Location: SIGMSG+1

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