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 ;15-Feb-2013 09:38;PLS

Source Information

Source file <PSOBING1.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 (CHKUP,REMOVE1)^PSOBINGO  STATS1^PSOBRPRT  BCI^PSODISP  ^PSOLSET  
IHS Patient 1 $$HRN^AUPNPAT  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 14

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

Entry Points

Name Comments DBIA/ICR reference
WARN
STORX ;Sto Rx # for each entry in 52.11
END
HELP
WTIME ;sto bingo wait time in 52
REL1
STO
BEG
NOTE ; IHS/CIA/PLS - 07/08/04 - Changed SSN reference to HRN
REL
NEW
NEW1 ; IHS/CIA/PLS - 07/08/04 - Change SSN references to HRN
BCRMV
CREF ;check for deleted refills
BCRMV1

External References

Name Field # of Occurrence
DD^%DT REL+8
NOW^%DTC REL1
$$HRN^AUPNPAT NEW1+2
^DIC 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+8
$$GET1^DIQ NEW1+2, REL
^DIR BCRMV
CHKUP^PSOBINGO STO+3
REMOVE1^PSOBINGO 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+8
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+1
Function Call: WRITE
  • Prompt: !!,?5,"NAME",?30,"HRN",?45,"ID",?50,"ORDER"
  • Line Location: NOTE+2
Function Call: WRITE
  • Prompt: !,?5,Z1,?30,Z4,?46,Z2,?52,Z3
  • Line Location: NOTE+3
Function Call: WRITE
  • Prompt: !!,"Please advise the patient that the above ID # and/or ORDER Letter"
  • Line Location: NOTE+4
Function Call: WRITE
  • Prompt: !,"will be displayed with his/her name on the Bingo Display",!!
  • Line Location: NOTE+5
Function Call: WRITE
  • Prompt: !,$C(7),"** ",Z1," is enrolled for ScripTalk.",!," Please use label(s) from ScripTalk printer."
  • Line Location: NOTE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTE+6
Function Call: WRITE
  • Prompt: !," ** NO SCRIPTALK PRINTER DEFINED FOR THIS DIVISION!",!
  • Line Location: NOTE+7
Function Call: WRITE
  • Prompt: !," ** SCRIPTALK PRINTER IS NOT DEFINED FOR AUTO-PRINT",!,"You must manually queue the ScripTalk label(s) to print.",!
  • Line Location: NOTE+8
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+7
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+6
Function Call: WRITE
  • Prompt: !!,NAM," is already in the display queue.",$C(7)
  • Line Location: REL+7
Function Call: WRITE
  • Prompt: !!,$C(7),NAM," was entered on "_Y_".",!,"It can't be displayed and is now deleted."
  • Line Location: REL+8
Function Call: WRITE
  • Prompt: !!,NAM," is from another division",!,"and must be displayed manually.",$C(7)
  • Line Location: REL+10
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
  • DIE
  • Line Location:
    • STO+1
    • STORX+9
    • WTIME+5
    • WTIME+7
    • WTIME+8
    • WTIME+9
    • REL1+3
Routine Call
  • DIC
  • Line Location:
    • STORX+8
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 - [#59] GET1^DIQ
^PS(59.2 - [#59.2] Classic Fileman Calls
^APSPCTRL - [#9009033] GET1^DIQ

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+2, NEW1+8, BCRMV1, REL+2, REL1+1
^PS(52.11 - [#52.11] NEW1+6, NEW1+7, NEW1+8, STO, STO+2, NOTE+2, NOTE+3, BCRMV1+1, BCRMV1+2, BCRMV1+5
, WTIME+4, CREF+1, CREF+2, CREF+6, REL+3, REL+4, REL+7, REL+8, REL+9, REL+10
, REL1+1, REL1+2, REL1+3, REL1+4, REL1+6
^PS(55 - [#55] NOTE+6, REL1+6
^PS(59 - [#59] NOTE+7, NOTE+8
^PS(59.2 - [#59.2] REL1+7
^PS(59.3 - [#59.3] NEW1+2, REL1+4, REL1+5
^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+8
BCRMV1 BCRMV+2, BCRMV+5
END BEG, NEW1+2, NEW1+10, STO, STO+1, STO+3, BCRMV+1, REL+6, REL+7, REL+8
, REL+10, REL1+2, REL1+3, REL1+4
NEW NEW
NEW1 NEW1+10
NOTE STO+3
REL1 REL+9, REL+11, REL+12, REL+13
STO NEW1+5
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
ADA REL+2*, 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+11*, REL+12*, REL+13*, END!
>> BINGDIV REL+11
>> BINGNAM REL+2, REL+3
>> BINGRO REL+11
>> BINGRPR REL+12, REL+13
BNAME BCRMV1*, BCRMV1+4, BCRMV1+5, BCRMV1+7, END!
>> BNGPDV REL+12
>> BNGRDV REL+13
BNGRXP REL+1*, REL+2*, REL+5, END!
BNGSUS NEW*, NEW1+5, NEW1+13, END!
BRB CREF+1*, CREF+5*, CREF+6, CREF+7, CREF+9!
BRX BCRMV1+2*, BCRMV1+3, BCRMV1+7!, WTIME+4*, WTIME+10!, REL+4*, REL+5, 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+2, NEW1+5, NEW1+6, NEW1+7, STO*, STO+1*, STO+2*, NOTE+2, BCRMV1+3*
, BCRMV1+4, BCRMV1+5, BCRMV1+7!, 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+5*, REL+6, REL+7, REL+8
, REL+9, REL+10, 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 NEW1+2, NOTE+2*, NOTE+3, NOTE+6
DIC NEW*!, STORX+1~, STORX+2*, REL1+7!*, REL1+8*!, REL1+9!*, END!
DIC("P" STORX+2*, REL1+8*
DIC(0 NEW*, 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+7!, WARN*!, CREF+4*!, CREF+8*, REL+8*!, END!
>> DINUM REL1+7*, REL1+8*, REL1+9*
DIR BCRMV!, END!
DIR("?" BCRMV*
DIR("A" BCRMV*
DIR(0 BCRMV*
>> DIRUT BCRMV+1
>> DISGROUP NEW1+2, NEW1+5, NEW1+13
>> DLAYGO STORX+2*
DO NEW!, REL1+7!, REL1+8!, REL1+9!, END!
DR NEW1+5*, NEW1+13*, STORX+1~, STORX+9*, WTIME+2~, WTIME+5*, WTIME+7*, WTIME+8*, WTIME+9*, WTIME+10!
, REL1+1*, END!
DT REL+8, 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+2*, NEW1+10, STO, STO+3, END!
I STORX+1~, STORX+6*
JOES REL1+4*, REL1+8, REL1+9, END!
NAM NEW1+2*, NEW1+5, NEW1+13, REL+1~, REL+2*, REL+6, REL+7, REL+8, REL+10, REL1+5
, END+1!
NAME REL+1~
NDA NEW*, STO, END+1!
NFLAG STO*, NOTE+2*, END+1!
>> NM REL1+1*, REL1+2
NME BCRMV1*, BCRMV1+1, END+1!
NODE NOTE+3*, NOTE+9!
NUM STORX+1~, STORX+3*
ODA NEW*, STO+1, REL+5*, REL1+10, END+1!
>> PSODFN NEW, NEW1+2
>> PSODRF CREF+8*
>> PSOPAR BEG
>> PSOSITE NEW1+2, NEW1+5, NEW1+13, NOTE+7, NOTE+8, REL, REL+10
PSZ REL1+7*, REL1+8, REL1+9, END+1!
>> RX0 REL1+4*, REL1+5
RXO REL+1~, END+1!
>> RXP BCRMV+2, BCRMV+4*, BCRMV+5, BCRMV1, BCRMV1+3, REL+1, REL+2
>> RXPR( STORX+5, STORX+6
SSN NEW1+2*, NEW1+5, NEW1+13, REL+1~, END+1!
>> SUSROUTE NEW
TDFN NEW1+8*, NEW1+9!, END+1!
TFLAG NEW1+5!, NEW1+8*, NEW1+9, NEW1+10, STO+3*, END+1!
TIC NEW1+6*, NEW1+7, NEW1+8, END+1!
TICK REL1+4*, END+1!
TIEN NEW1+7*, NEW1+8, NEW1+9!, END+1!
TM NEW1+5, NEW1+13, REL1~*, END+1!
TM1 NEW1+5, NEW1+13, REL1~*, REL1+1, END+1!
TSSN NEW1+8*, NEW1+9!, END+1!
X NEW*, STO+1, 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+7!, WTIME+2~, WTIME+4*, WTIME+10!, CREF+1*, REL+3*, REL+4
, REL+5, END+1!
Y NEW, STORX+9, REL+8*, REL1+7, REL1+8, END+1!
Y(0 STO
>> Z NOTE+3*
Z1 NOTE+3*, NOTE+6, NOTE+9!
Z2 NOTE+3*, NOTE+9!
Z3 NOTE+3*, NOTE+9!
>> Z4 NOTE+3*
>> ZDA NOTE+3*
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