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: PSOBING1

Package: Outpatient Pharmacy

Routine: PSOBING1


Information

PSOBING1 ;BHAM ISC/LC - bingo board utility routine ;11/09/17 20:19

Source Information

Source file <PSOBING1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 7 DD^%DT  NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIK  ^DIR  
Outpatient Pharmacy 5 (CHKUP,REMOVE1,SIGMSG)^PSOBINGO  $$STATUS^PSOBPSUT  STATS1^PSOBRPRT  BCI^PSODISP  ^PSOLSET  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Outpatient Pharmacy 13 PSOBBC  PSOBINGO  PSOCSRL  PSODISP  PSODISP3  PSODISPS  PSOHLDI1  PSOORFIN  
PSORX1  PSORXEDT  PSOSUPAT  PSOSUPRX  PSOTPRX1  

Entry Points

Name Comments DBIA/ICR reference
BEG
NEW
NEW1
STO
NOTE
STALK
HELP
BCRMV
BCRMV1
WARN
STORX ;Sto Rx # for each entry in 52.11
WTIME ;sto bingo wait time in 52
CREF ;check for deleted refills
REL
REL1
END

External References

Name Field # of Occurrence
DD^%DT REL+7
NOW^%DTC REL1
^DIC STALK+3, STORX+8
FILE^DICN NEW, REL1+7, REL1+8, REL1+9
^DIE STO+1, STORX+9, WTIME+5, WTIME+7, WTIME+8, WTIME+9, REL1+3
^DIK WARN, CREF+4, CREF+8, REL+7
^DIR BCRMV
CHKUP^PSOBINGO STO+3
REMOVE1^PSOBINGO BCRMV1+7
SIGMSG^PSOBINGO BCRMV1+6
$$STATUS^PSOBPSUT BCRMV1+6
STATS1^PSOBRPRT REL1+10
BCI^PSODISP BCRMV+2
^PSOLSET BEG
$$SITE^VASITE BCRMV+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$P(^DPT(TDFN,0),"^")_" ("_TSSN_") was issued ticket # "_TIC,". Try again!",!
  • Line Location: NEW1+4
Function Call: WRITE
  • Prompt: !!,$C(7),Y(0,0)," is being edited!",!
  • Line Location: STO+0
Function Call: WRITE
  • Prompt: !!,?5,"NAME",?30,"SSN",?45,"ID",?50,"ORDER"
  • Line Location: NOTE+0
Function Call: WRITE
  • Prompt: !,?5,Z1,?30,Z4,?46,Z2,?52,Z3
  • Line Location: NOTE+1
Function Call: WRITE
  • Prompt: !!,"Please advise the patient that the above ID # and/or ORDER Letter"
  • Line Location: NOTE+2
Function Call: WRITE
  • Prompt: !,"will be displayed with his/her name on the Bingo Display",!!
  • Line Location: NOTE+3
Function Call: WRITE
  • Prompt: !!,$C(7),"** ",$P($G(^DPT(DFN,0)),"^")," is enrolled for ScripTalk.",!
  • Line Location: STALK+0
Function Call: WRITE
  • Prompt: !!?5,"Please review ScripTalk mapped device setup.",!!?5,"No ScripTalk label will print.",!!
  • Line Location: STALK+9
Function Call: WRITE
  • Prompt: !?5,"Using Mapped printer",!!
  • Line Location: STALK+11
Function Call: WRITE
  • Prompt: !!?5,"There is no Mapped printer and the Division printer is set for Manual.",!!?5,"You must manually queue the ScripTalk label(s) to print.",!
  • Line Location: STALK+13
Function Call: WRITE
  • Prompt: !
  • Line Location: STALK+14
Function Call: WRITE
  • Prompt: !!,"Wand the barcode of the Rx or manually key in",!,"the number below the barcode, the Rx number, or the",!,"patient name in the format - 'LASTNAME,FIRSTNAME'"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"The barcode # should be of the format - 'NNN-NNNNNNN'"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: BCRMV+0
Function Call: WRITE
  • Prompt: !?7,$C(7)," INVALID STATION # !",!
  • Line Location: BCRMV+3
Function Call: WRITE
  • Prompt: !?7,$C(7)," NON-EXISTENT RX #"
  • Line Location: BCRMV+4
Function Call: WRITE
  • Prompt: !?7,$C(7)," IMPROPER BARCODE FORMAT"
  • Line Location: BCRMV+6
Function Call: WRITE
  • Prompt: !!,BNAME," isn't in the Bingo Board file.",$C(7)
  • Line Location: BCRMV1+4
Function Call: WRITE
  • Prompt: !!,BNAME," has already been removed from the display.",$C(7)
  • Line Location: BCRMV1+5
Function Call: WRITE
  • Prompt: !!,BNAME," is removed from the display."
  • Line Location: BCRMV1+8
Function Call: WRITE
  • Prompt: !!,$C(7),"Bingo record is incomplete!"
  • Line Location: WARN+0
Function Call: WRITE
  • Prompt: !!,"Bingo record removed.",!
  • Line Location: WARN+0
Function Call: WRITE
  • Prompt: !!,"The Rx for ",NAM," isn't in the Bingo Board",!,"file and must be entered manually.",$C(7)
  • Line Location: REL+5
Function Call: WRITE
  • Prompt: !!,NAM," is already in the display queue.",$C(7)
  • Line Location: REL+6
Function Call: WRITE
  • Prompt: !!,$C(7),NAM," was entered on "_Y_".",!,"It can't be displayed and is now deleted."
  • Line Location: REL+7
Function Call: WRITE
  • Prompt: !!,NAM," is from another division",!,"and must be displayed manually.",$C(7)
  • Line Location: REL+9
Function Call: WRITE
  • Prompt: !!,$C(7),NM," is being edited!",!
  • Line Location: REL1+2
Function Call: WRITE
  • Prompt: !!,NAM," added to the "_$P($G(^PS(59.3,$P(RX0,"^",3),0)),"^")_" display."
  • Line Location: REL1+5
Function Call: WRITE
  • Prompt: !,$C(7),"This patient is enrolled in ScripTalk and may benefit from",!,"a non-visual announcement that prescriptions are ready."
  • Line Location: REL1+6
Routine Call
  • DIC
  • Line Location:
    • STALK+3
    • STORX+8
Routine Call
  • DIE
  • Line Location:
    • STO+1
    • STORX+9
    • WTIME+5
    • WTIME+7
    • WTIME+8
    • WTIME+9
    • REL1+3
Routine Call
  • DIR
  • Line Location:
    • BCRMV

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" STO, REL1+2
^DD(52.11 STORX+2
^DD(59.2 REL1+8
^DPT - [#2] NEW1, NEW1+4, STALK, BCRMV1, REL+1, REL1+1
^PS(52.11 - [#52.11] NEW1+2, NEW1+3, NEW1+4, STO, STO+2, NOTE, NOTE+1, BCRMV1+1, BCRMV1+2, BCRMV1+5
, WTIME+4, CREF+1, CREF+2, CREF+6, REL+2, REL+3, REL+6, REL+7, REL+8, REL+9
, REL1+1, REL1+2, REL1+3, REL1+4, REL1+6
^PS(55 - [#55] STALK, REL1+6
^PS(59 - [#59] STALK+10, STALK+13
^PS(59.2 - [#59.2] REL1+7
^PS(59.3 - [#59.3] NEW1, REL1+4, REL1+5
^PS(59.7 - [#59.7] STALK+6, STALK+8
^PSRX - [#52] BCRMV+4, BCRMV+5, BCRMV1, STORX+4, STORX+6, STORX+8, WTIME+8, WTIME+9, CREF+3

Label References

Name Line Occurrences
BCRMV BCRMV+3, BCRMV+4, BCRMV+6, BCRMV1+4, BCRMV1+5, BCRMV1+9
BCRMV1 BCRMV+2, BCRMV+5
END BEG, NEW1, NEW1+6, STO, STO+1, STO+3, BCRMV+1, REL+5, REL+6, REL+7
, REL+9, REL1+2, REL1+3, REL1+4
NEW NEW
NEW1 NEW1+6
NOTE STO+3
REL1 REL+8, REL+10, REL+11, REL+12
STALK STO+3
STO NEW1+1
STORX STO+2
WARN STO, STO+1, REL1+2, REL1+3, REL1+4
WTIME REL1+10

Naked Globals

Name Field # of Occurrence
^(0 WTIME+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % REL1
A STALK+5~, STALK+6*, STALK+8
ADA REL+1*, END!
BB STORX+1~, STORX+3*, STORX+4, STORX+5, STORX+6, STORX+8
BBN STORX+1~, STORX+3*
>> BBRX( STORX+3
>> BBRX(1 STORX+1
BDA BCRMV1*, WTIME+1*, WTIME+4, WTIME+10, CREF+1*, CREF+2, CREF+4, CREF+6, CREF+9!, END!
BDIV REL+10*, REL+11*, REL+12*, END!
>> BINGDIV REL+10
>> BINGNAM REL+1, REL+2
>> BINGRO REL+10
>> BINGRPR REL+11, REL+12
BNAME BCRMV1*, BCRMV1+4, BCRMV1+5, BCRMV1+8, END!
>> BNGPDV REL+11
>> BNGRDV REL+12
BNGRXP REL*, REL+1*, REL+4, END!
BNGSUS NEW*, NEW1+1, NEW1+7, END!
BRB CREF+1*, CREF+5*, CREF+6, CREF+7, CREF+9!
BRX BCRMV1+2*, BCRMV1+3, BCRMV1+8!, WTIME+4*, WTIME+10!, REL+3*, REL+4, END!
BRX0 CREF+2*, CREF+9!
BRX1 WTIME+2~, WTIME+4*, WTIME+6, WTIME+10!, CREF+2*, CREF+3, CREF+5, CREF+9!
BRXFL WTIME+2~, WTIME+4*, WTIME+8, WTIME+9, WTIME+10!, CREF+2*, CREF+3, CREF+9!
BRXFLN WTIME+2~, WTIME+4*, WTIME+7, WTIME+8, WTIME+9, WTIME+10!, CREF+2*, CREF+3, CREF+5, CREF+9!
CNT1 BCRMV1*, END!
CT END!
DA NEW*, NEW1, NEW1+1, NEW1+2, NEW1+3, STO*, STO+1*, STO+2*, NOTE, BCRMV1+3*
, BCRMV1+4, BCRMV1+5, BCRMV1+8!, WARN!, STORX+2, STORX+9*, WTIME+1, WTIME+3, WTIME+4*, WTIME+6~*
, WTIME+8*, WTIME+9*, WTIME+10*, CREF+1*, CREF+2, CREF+6*, REL+4*, REL+5, REL+6, REL+7
, REL+8, REL+9, REL1+1, REL1+2, REL1+3, REL1+4, REL1+6, REL1+7!, REL1+8!, REL1+9!
, REL1+10*, END!
DA(1 STORX+2*, WTIME+3*, WTIME+8*, WTIME+9*, WTIME+10!, CREF+4*!, REL1+8*, REL1+9*
DD NEW!, REL1+7!, REL1+8!, REL1+9!, END!
>> DFN NOTE*, NOTE+1, STALK
DIC NEW*!, STALK+3*, STORX+1~, STORX+2*, REL1+7!*, REL1+8*!, REL1+9!*, END!
DIC("P" STORX+2*, REL1+8*
DIC(0 NEW*, STALK+3*, STORX+2*, REL1+7*, REL1+8*, REL1+9*
DIE NEW*, STORX+1~, STORX+2*, WTIME+2~, WTIME+3*, WTIME+6~, WTIME+7*!, WTIME+8*!, WTIME+9*!, WTIME+10!
, REL1+1*, END!
>> DIF WTIME+1, WTIME+5, WTIME+7, WTIME+8, WTIME+9
DIK BCRMV1+8!, WARN*!, CREF+4*!, CREF+8*, REL+7*!, END!
>> DINUM REL1+7*, REL1+8*, REL1+9*
DIR BCRMV!, END!
DIR("?" BCRMV*
DIR("A" BCRMV*
DIR(0 BCRMV*
>> DIRUT BCRMV+1
>> DISGROUP NEW1, NEW1+1, NEW1+7
>> DLAYGO STORX+2*
DO NEW!, REL1+7!, REL1+8!, REL1+9!, END!
DR NEW1+1*, NEW1+7*, STORX+1~, STORX+9*, WTIME+2~, WTIME+5*, WTIME+7*, WTIME+8*, WTIME+9*, WTIME+10!
, REL1+1*, END!
DT REL+7, REL1+7, REL1+9
DTOUT STO+1, REL1+3, END!
DUOUT STO+1, REL1+3, END!
FL STORX+1~, STORX+5*, STORX+6*, STORX+7*, STORX+9!
FLN STORX+1~, STORX+5*, STORX+6*, STORX+7*, STORX+9!
GRP REL1+4*, END!
GRTP NEW1*, NEW1+6, STO, STO+3, END!
I STORX+1~, STORX+6*
JOES REL1+4*, REL1+8, REL1+9, END!
NAM NEW1*, NEW1+1, NEW1+7, REL~, REL+1*, REL+5, REL+6, REL+7, REL+9, REL1+5
, END+1!
NAME REL~
NDA NEW*, STO, END+1!
NFLAG STO*, NOTE*, END+1!
>> NM REL1+1*, REL1+2
NME BCRMV1*, BCRMV1+1, END+1!
NODE NOTE+1*, STALK+15!
NUM STORX+1~, STORX+3*
ODA NEW*, STO+1, REL+4*, REL1+10, END+1!
>> PSODFN BEG, NEW, NEW1
>> PSODRF CREF+8*
>> PSOLAP STALK+3
>> PSOPAR BEG
>> PSOSITE NEW1+1, NEW1+7, STALK+10, STALK+13, REL+9
PSOSTDEV STALK+1~, STALK+2*, STALK+4, STALK+7*, STALK+8*, STALK+9
PSOSTMAP STALK+1~, STALK+2*, STALK+3*, STALK+4, STALK+6*, STALK+10, STALK+11, STALK+13
PSZ REL1+7*, REL1+8, REL1+9, END+1!
>> RX0 REL1+4*, REL1+5
RXO REL~, END+1!
>> RXP BCRMV+2, BCRMV+4*, BCRMV+5, BCRMV1, BCRMV1+3, BCRMV1+6, REL, REL+1
>> RXPR( STORX+5, STORX+6
SSN NEW1*, NEW1+1, NEW1+7, REL~, END+1!
>> SUSROUTE NEW
TDFN NEW1+4*, NEW1+5!, END+1!
TFLAG NEW1+1!, NEW1+4*, NEW1+5, NEW1+6, STO+3*, END+1!
TIC NEW1+2*, NEW1+3, NEW1+4, END+1!
TICK REL1+4*, END+1!
TIEN NEW1+3*, NEW1+4, NEW1+5!, END+1!
TM NEW1+1, NEW1+7, REL1~*, END+1!
TM1 NEW1+1, NEW1+7, REL1~*, REL1+1, END+1!
TSSN NEW1+4*, NEW1+5!, END+1!
X NEW*, STO+1, STALK+1~, STALK+3*, BCRMV+2, BCRMV+3, BCRMV+4, STORX+8*, REL1+3, REL1+7*
, REL1+8*, REL1+9*, END+1!
>> XDA STO+1*, STO+2
XX BCRMV1+1*, BCRMV1+2, BCRMV1+3, BCRMV1+8!, WTIME+2~, WTIME+4*, WTIME+10!, CREF+1*, REL+2*, REL+3
, REL+4, END+1!
Y NEW, STALK+1~, STALK+3, STORX+9, REL+7*, REL1+7, REL1+8, END+1!
Y(0 STO
>> Z NOTE+1*
Z1 NOTE+1*, STALK+15!
Z2 NOTE+1*, STALK+15!
Z3 NOTE+1*, STALK+15!
>> Z4 NOTE+1*
>> ZDA NOTE+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