Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSOBINGO

Package: Outpatient Pharmacy

Routine: PSOBINGO


Information

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

Source Information

Source file <PSOBINGO.m>

Entry Points

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

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+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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.11 - [#52.11] Classic Fileman Calls
^PS(59.2 - [#59.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call