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 |  Local Variables |  All
Print Page as PDF
Routine: PSOCMOPA

Package: Outpatient Pharmacy

Routine: PSOCMOPA


Information

PSOCMOPA ;BIR/HTW-Utility for Hold/Can ;[ 12/30/96 10:28 AM ]

Source Information

Source file <PSOCMOPA.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Outpatient Pharmacy 2 (D1,S,SUS1)^PSOCMOP  (Q1,QLBL)^PSORXL  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Outpatient Pharmacy 15 PSOCAN  PSOCAN2  PSOCMOP  PSOCMOPC  PSODDPRE  PSODISP1  PSODRDU2  PSODRDUP  
PSOHLD  PSOHLDC  PSOHLEXP  PSOMAUEX  PSOORUTL  PSORENW  PSOUTL  

Entry Points

Name Comments DBIA/ICR reference
UNHOLD
QS
EN ; Called from PSORXDL,HLD+4^PSOHLD, PSOCAN
; if in suspense and "loading" no delete
DIRX
MWX
REINS
DUPCAN
EN1
KILL
MSG
MW1
MW(PSODIR) ;
HLD
CMOP ;
DIR ;

External References

Name Field # of Occurrence
^DIR QS+2, EN+5, DIR+3
D1^PSOCMOP KILL, QS+5
S^PSOCMOP EN1+5, EN1+6, QS+4
SUS1^PSOCMOP EN1
Q1^PSORXL QS+6
QLBL^PSORXL QS+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,RX_" REINSTATED -- ",!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!,$P(^PSRX(DA,0),"^")_" Removed from Hold Status",!!
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: QS+0
Function Call: WRITE
  • Prompt: !!,"A CMOP Rx cannot be"_$S($G(PSOFROM)="HOLD":" placed on HOLD",$G(PSOFROM)="CANCEL":" DISCONTINUED",1:" DELETED")
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: $S($G(PSOFROM)="DELETE":" while in",1:" during")
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: $S($G(PSOFROM)="DELETE":" transmission status!",1:" transmission! ")_" Try later.",!!
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,"Cannot jump to another field ..",!
  • Line Location: MW1+4
Routine Call
  • DIR
  • Line Location:
    • QS+2
    • EN+5
    • DIR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.5 - [#52.5] PSOCMOPA+18
^PSRX - [#52] PSOCMOPA+13, PSOCMOPA+14, PSOCMOPA+15, EN1+4, CMOP+1, CMOP+2
^PSX(550.2 - [#550.2] PSOCMOPA+16

Label References

Name Line Occurrences
DIR MW+4, MW1+3
DIRX DIR+2, DIR+4
EN DUPCAN
EN1 UNHOLD
KILL EN1, EN1+2, EN1+5, EN1+6, QS+3
MSG EN+3, EN+5, EN+6
MW1 MW1+4
MWX MW+4, MW+5, MW1, MW1+3
PSOCMOPA EN1+1, EN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BATCH PSOCMOPA+11~, PSOCMOPA+15*, PSOCMOPA+16, PSOCMOPA+19!
BIEN PSOCMOPA+11~, PSOCMOPA+16*, PSOCMOPA+19!
CMOP KILL+1!, QS+4!, QS+5!, EN+3!, EN+7!
CMOP( PSOCMOPA+17*, EN1+2, EN1+5, EN1+6, EN+5, EN+6
CMOP("52.5" PSOCMOPA+18*
CMOP("L" PSOCMOPA+13*, PSOCMOPA+17, EN1+2, EN1+5, EN1+6, EN+5, EN+6
CMOP("S" PSOCMOPA+18*, EN+3
DA PSOCMOPA+13, PSOCMOPA+14, PSOCMOPA+15, PSOCMOPA+18, EN1+4, QS+5, QS+6, EN+2, DUPCAN~*, DIR+3!
DIC MW+1!, DIR+3!
DIE DIR+3!
DIR KILL+1!, QS+2!, EN+5!, MW+1!, DIR+3!
DIR("?" QS+1*
DIR("A" QS*, EN+5*
DIR("B" QS+2*, MW+3*, MW1+2*
DIR(0 QS+2*, EN+5*, MW+2*, MW1+1*, DIR+2
DIROUT DIR+4, DIRX!
DIRUT KILL+1!, QS+3, DIRX!
>> DNM DUPCAN
DT EN1+6
DTOUT KILL+1!, DIR+4, DIRX!
DUOUT KILL+1!, QS+3, DIR+4, DIRX!
>> ERXDCIEN EN+5, MSG
FDT UNHOLD~*, EN1+6
ION QS+5
>> PPL QS+5*, QS+6*
PSOCMOP PSOCMOPA+12!, PSOCMOPA+17*
PSODIR MW~
PSODIR("DFLG" MW+4, MW+5*, MW1+3, DIR+4*
PSODIR("FIELD" MW+4, DIR+1*
PSODIR("MAIL/WINDOW" MW+6*, MW1
PSODIR("METHO D OF PICK-UP" , MW1+5*
PSOFROM HLD~*, EN+5, EN+6, MSG+1, MSG+2, MSG+3, DUPCAN~*
>> PSOLAP QS+5
>> PSOPAR QS, QS+1, QS+2, MW1
>> PSORX("FILL D ATE" , UNHOLD
>> PSORX("MAIL/WINDOW" MW+3, MW+6*
>> PSORX("METHOD OF PICK-UP" , MW1+2, MW1+5*
>> PSOSD( DUPCAN
PSOX DIRX!
>> PSX( CMOP+2*
PSXZ CMOP+1*, CMOP+2, CMOP+3!
>> REL EN1+2
>> RX EN1+3
>> RXLTOP QS+5*, QS+6*
>> RXN CMOP+1, CMOP+2
>> STA DUPCAN
TDT PSOCMOPA+11~, PSOCMOPA+16*, PSOCMOPA+17, PSOCMOPA+19!
U CMOP+2, MW1+4
X PSOCMOPA+11~, PSOCMOPA+13*, PSOCMOPA+14*, PSOCMOPA+15, PSOCMOPA+18*, PSOCMOPA+19!, KILL+1!, MW1+4, MWX!, DIR+4
>> XFLAG EN1, MSG*, MSG+4*
XFROM UNHOLD*, REINS*, EN1+3, EN1+4, KILL+1!
XN PSOCMOPA+11~, PSOCMOPA+15*, PSOCMOPA+17, PSOCMOPA+19!
Y KILL+1!, QS+4, QS+5, QS+6, MW+6, MW1+5, MWX!, DIR+4
Y(0 MW+5, MW+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All