Routine: PSOBGMG3

Information

PSOBGMG3 ;BHAM ISC/LC - BINGO BOARD MANAGER (CONT'D) ;03/02/15 18:05

Name	Comments	DBIA/ICR reference
STATUS	;
STATUS1
BING	;do not remove this entry point SAB
PEND
EX
OLDT	;
PRSE	;
STEX
PRSE1	;PENDING
STEX1
ENPG

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Being Processed: "_OLDT,!,?3,"Division: "_$P(^PS(59,DIV,0),"^"),?42,"Time In: "_TIN,?60,"Time Out: ",!,?3,"Rx #: "_RX Line Location: PRSE+8
Function Call: WRITE	Prompt: !,?3,RX1 Condition for execution: $G(RX1) Line Location: PRSE+8
Function Call: WRITE	Prompt: !!,"Ready For Pickup: ",!,?3,"Division: "_$P(^PS(59,DIV,0),"^"),?42,"Time In: "_TIN,?60,"Time Out: "_TOUT,!,?3,"Rx #: "_RX Line Location: PRSE+10
Function Call: WRITE	Prompt: !,?3,RX1 Condition for execution: $G(RX1) Line Location: PRSE+10
Function Call: WRITE	Prompt: !!,"Picked Up: ",!,?3,"Division: "_$P(^PS(59,DIV,0),"^"),?42,"Time In: "_TIN,?60,"Time Out: "_TOUT,!,?3,"Rx #: "_RX Line Location: PRSE+13
Function Call: WRITE	Prompt: !,?3,RX1 Condition for execution: $G(RX1) Line Location: PRSE+13
Function Call: WRITE	Prompt: !!,"Pending: ",!,?3,"Orderable Item: "_$P(^PS(50.7,OI,0),"^"),?52,"Provider: "_$P(^VA(200,PROV,0),"^") Line Location: PRSE1+7
Function Call: WRITE	Prompt: !,?3,"Entered By: "_$P(^VA(200,EBY,0),"^"),?52,"Time In: "_LOGDT Line Location: PRSE1+8
Function Call: WRITE	Prompt: !,?3,"Drug: "_$S($G(DRG):$P(^PSDRUG(DRG,0),"^"),1:""),?52,"Routing: "_$S($G(MW)="M":"MAIL",$G(MW)="P":"PARK",1:"WINDOW") Line Location: PRSE1+9
Function Call: WRITE	Prompt: @IOF Line Location: ENPG+2