Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOBINGO

Package: Outpatient Pharmacy

Routine: PSOBINGO


Information

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

Source Information

Source file <PSOBINGO.m>

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  

Caller Graph

Caller Graph Total: 5

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All