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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOBGMG3

Package: Outpatient Pharmacy

Routine: PSOBGMG3


Information

PSOBGMG3 ;BHAM ISC/LC - BINGO BOARD MANAGER (CONT'D) ; 06/19/96

Source Information

Source file <PSOBGMG3.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 DD^%DT  ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO BINGO STATUS  PSOORUT3  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT OLDT+1
^DIC STATUS1+2
^DIR ENPG+1

Interaction Calls

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",1:"WINDOW")
  • Line Location: PRSE1+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENPG+2
Routine Call
  • DIC
  • Line Location:
    • STATUS1+2
Routine Call
  • DIR
  • Line Location:
    • ENPG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRSE+6
^DPT - [#2] PEND
^PS(50.7 - [#50.7] PRSE1+7
^PS(52.11 - [#52.11] BING+1, BING+2, OLDT+1, PRSE+2, PRSE+4, PRSE+5
^PS(52.41 - [#52.41] PEND, PEND+1, PEND+3, PRSE1+1, PRSE1+2
^PS(59 - [#59] PRSE+8, PRSE+10, PRSE+13
^PSDRUG - [#50] PRSE1+9
^PSRX - [#52] PRSE+2
^VA(200 - [#200] PRSE1+7, PRSE1+8

Label References

Name Line Occurrences
ENPG PRSE+9, PRSE+11, PRSE+14, PRSE1+10
EX STATUS1+2
OLDT PEND+2
PRSE PEND+2
PRSE1 PEND+3
STATUS1 PEND+5

Naked Globals

Name Field # of Occurrence
^(0 PRSE+2, PRSE+4, PRSE1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT STATUS1+1*, BING+2*, PEND+4!, EX!
CNT1 STATUS1+1*, PEND+1*, PEND+4!, EX!
DA STATUS1~, PEND+2*, PEND+3*, EX!, OLDT+1, PRSE+2, PRSE+4, PRSE+5, STEX!, PRSE1+1
, PRSE1+2, STEX1!
DG EX!, PRSE+4*, PRSE+5, STEX!
DIC STATUS1~, STATUS1+2!*, EX!, STEX!, STEX1!
DIC("A" STATUS1+2*
DIC("S" STATUS1+2*
DIC(0 STATUS1+2*
DIK STATUS1~, EX!, STEX!, STEX1!
DIR ENPG!, ENPG+2!
DIR(0 ENPG*
DIRUT ENPG!, ENPG+2!
DIS EX!, PRSE+4*, PRSE+8, PRSE+10, PRSE+13, STEX!
DIV EX!, PRSE+4*, PRSE+8, PRSE+10, PRSE+13, STEX!
DLAYGO STATUS1+2!
DRG EX!, PRSE1+2*, PRSE1+9, STEX1!
DT OLDT+1, PRSE+7, PRSE1+5
DTME STATUS1+1*, EX!, PRSE+4*, PRSE+6*, STEX!
DTOUT STATUS1+2, ENPG!, ENPG+2!
DUOUT STATUS1+2, ENPG!, ENPG+2!
EBY EX!, PRSE1+2*, PRSE1+8, STEX1!
EXT STATUS1+1*, PEND+2, PEND+3, EX!, PRSE+9, PRSE+11, PRSE+14, PRSE1+10, ENPG+1*
IOF PRSE+7, PRSE1+5, ENPG+2
IOSL PRSE+9, PRSE+11, PRSE+14, PRSE1+10
LOGDT EX!, PRSE1+2*, PRSE1+3*, PRSE1+8, STEX1!
LP PEND+2*, PEND+3*, PEND+4!, EX!
MW EX!, PRSE1+2*, PRSE1+9, STEX1!
NAM STATUS1+2*, BING+1, PEND, PEND+4!, EX!, PRSE+7, PRSE1+5
NDA STATUS1~, BING+2*, PEND+1*, PEND+4!, EX!
NDA( BING+2*, PEND+2
NDA1 STATUS1~, PEND+4!, EX!
NDA1( PEND+1*, PEND+3
NDAINS PEND+1*, PEND+4!
NNAM BING+1*, BING+2, PEND*, PEND+1, PEND+4!, EX!
NNUM STATUS1+2*, BING+2, PEND, EX!, PRSE+5
ODTP EX!, PRSE1+2*, STEX1!
OI PEND+4!, EX!, PRSE1+2*, PRSE1+7
OLDT STATUS1+1*, PEND+4!, EX!, OLDT+1*, PRSE+8
PAS STATUS1~, PEND+4!, EX!, PRSE+7, PRSE+15*, PRSE1+5
PAS1 STATUS1~, PEND+4!, EX!, PRSE1+5, STEX1+1*
PKP EX!, PRSE+5*, PRSE+10, STEX!
PKPD PRSE+5*, PRSE+10, PRSE+13, STEX!
PN EX!, PRSE1+2*, STEX1!
PROV EX!, PRSE1+2*, PRSE1+7, STEX1!
>> PSOHA PEND+5
RX STATUS1~, STATUS1+1*, PRSE+1*, PRSE+3*, PRSE+8, PRSE+10, PRSE+13
RX1 STATUS1~, PRSE+1*, PRSE+3*, PRSE+8, PRSE+10, PRSE+13
RXNUM STATUS1~, STATUS1+1*, PRSE+1*, PRSE+3*
TIN EX!, PRSE+4*, PRSE+6*, PRSE+8, PRSE+10, PRSE+13, STEX!
TOUT EX!, PRSE+4*, PRSE+6*, PRSE+10, PRSE+13, STEX!
XX STATUS1~, EX!, PRSE+2*, STEX!, STEX1!
XX1 PRSE+2*, PRSE+3, STEX!, STEX1!
Y STATUS1~, STATUS1+2, EX!, OLDT+1*, PRSE+6*, STEX!, PRSE1+3*, STEX1!, ENPG+1
Y(0 STATUS1+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All