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/Park ;Feb 07, 2019@06:29:42

Source Information

Source file <PSOCMOPA.m>

Call Graph

Call Graph

Call Graph Total: 4

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

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

Package Total Caller Graph
Outpatient Pharmacy 19 PSOCAN  PSOCAN2  PSOCMOP  PSOCMOPC  PSODDPRE  PSODISP1  PSODRDU2  PSODRDUP  
PSOHLD  PSOHLDC  PSOHLEXP  PSOMAUEX  PSOORUTL  PSOPRK  PSOPRKA  PSOREF  
PSORENW  PSOUTL  PSOVCCA  

Entry Points

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

External References

Name Field # of Occurrence
^DIR QS+2, EN+5, DIR+3
D1^PSOCMOP KILL, QS+5
S^PSOCMOP EN1+6, EN1+7, QS+4
SUS1^PSOCMOP EN1
GETPARK^PSORPC01 MW+9
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: !!,$P(^PSRX(DA,0),"^")_" Removed from Park Status",!!
  • Line Location: EN1+5
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",$G(PSOFROM)="PARK":" PARKED",1:" DELETED")
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: $S($G(PSOFROM)="DELETE":" while in",1:" during")
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: $S($G(PSOFROM)="DELETE":" transmission status!",1:" transmission! ")_" Try later.",!!
  • Line Location: MSG+4
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, EN1+5, CMOP+1, CMOP+2
^PSX(550.2 - [#550.2] PSOCMOPA+16

Label References

Name Line Occurrences
DIR MW0, MW1+3
DIRX DIR+2, DIR+4
EN DUPCAN
EN1 UNHOLD, UNPARK
KILL EN1, EN1+2, EN1+6, EN1+7, QS+3
MSG EN+3, EN+5, EN+6
MW0 MW+5
MW1 MW1+4
MWX MW0, MW0+1, 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+6, EN1+7, EN+5, EN+6
CMOP("52.5" PSOCMOPA+18*
CMOP("L" PSOCMOPA+13*, PSOCMOPA+17, EN1+2, EN1+6, EN1+7, EN+5, EN+6
CMOP("S" PSOCMOPA+18*, EN+3
DA PSOCMOPA+13, PSOCMOPA+14, PSOCMOPA+15, PSOCMOPA+18, EN1+4, EN1+5, 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*, MW+5*, MW+10*, MW+11*
DIR("B" QS+2*, MW+3*, MW+4*, MW1+2*
DIR(0 QS+2*, EN+5*, MW+2*, MW+5*, MW+10*, MW+11*, MW1+1*, DIR+2
DIROUT DIR+4, DIRX!
DIRUT KILL+1!, QS+3, DIRX!
>> DNM DUPCAN
>> DRGNM MW+5
DT EN1+7
DTOUT KILL+1!, DIR+4, DIRX!
DUOUT KILL+1!, QS+3, DIR+4, DIRX!
>> ERXDCIEN EN+5, MSG
FDT UNHOLD~*, UNPARK~*, EN1+7
ION QS+5
>> PPL QS+5*, QS+6*
PSOCMOP PSOCMOPA+12!, PSOCMOPA+17*
PSODIR MW~
PSODIR("DFLG" MW0, MW0+1*, MW1+3, DIR+4*
PSODIR("FIELD" MW0, DIR+1*
PSODIR("MAIL/WINDOW" MW0+2*, MW1
PSODIR("METHO D OF PICK-UP" , MW1+5*
>> PSODRUG("DEA" MW+4, MW+5
PSOFROM HLD~*, EN+5, EN+6, MSG+2, MSG+3, MSG+4, DUPCAN~*
>> PSOLAP QS+5
>> PSOPAR QS, QS+1, QS+2, MW1
PSOPARKX MW+8~
PSOPARKX(0 MW+10
>> PSORX("FILL D ATE" , UNHOLD, UNPARK
>> PSORX("MAIL/WINDOW" MW+3, MW+4, MW0+2*
>> 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
RESULTS MW+8~, MW+9*
>> 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+5*
XFROM UNHOLD*, UNPARK*, REINS*, EN1+3, EN1+4, EN1+5, KILL+1!
XN PSOCMOPA+11~, PSOCMOPA+15*, PSOCMOPA+17, PSOCMOPA+19!
Y KILL+1!, QS+4, QS+5, QS+6, MW0+2, MW1+5, MWX!, DIR+4
Y(0 MW0+1, MW0+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All