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

Package: CMOP

Routine: PSXOPUTL


Information

PSXOPUTL ;BIR/HTW-Utility for Hold/Can ;[ 04/08/97 2:06 PM ]

Source Information

Source file <PSXOPUTL.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
CMOP 2 (D1,S,SUS1)^PSXNEW  ^PSXOPUTL  
Outpatient Pharmacy 1 (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: 5

Package Total Caller Graph
Outpatient Pharmacy 4 PSODSPL  PSOORNE3  PSOORUT1  PSOPMP1  
CMOP 1 PSXOPUTL  

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, DIR+3
Q1^PSORXL QS+6
QLBL^PSORXL QS+5
D1^PSXNEW KILL, QS+5
S^PSXNEW EN1+5, EN1+6, QS+4
SUS1^PSXNEW EN1
^PSXOPUTL EN+2

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":" CANCELLED",1:" DELETED")
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: $S($G(PSOFROM)="DELETE":" while in",1:" during")
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: $S($G(PSOFROM)="DELETE":" transmission status!",1:" transmission! ")_" Try later.",!!
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,"Cannot jump to another field ..",!
  • Line Location: MW1+4
Routine Call
  • DIR
  • Line Location:
    • QS+2
    • DIR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.5 - [#52.5] PSXOPUTL+13
^PSRX - [#52] PSXOPUTL+10, PSXOPUTL+11, PSXOPUTL+12, EN1+4, CMOP+1, CMOP+2

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+4
MW1 MW1+4
MWX MW+4, MW+5, MW1, MW1+3
PSXOPUTL EN1+1
QS EN1+7

Naked Globals

Name Field # of Occurrence
^(0 PSXOPUTL+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA PSXOPUTL+10, PSXOPUTL+11, PSXOPUTL+12, PSXOPUTL+13, EN1+4, QS+5, QS+6, EN+2, DUPCAN~*, DIR+3!
DIC MW+1!, DIR+3!
DIE DIR+3!
DIR KILL+1!, QS+2!, MW+1!, DIR+3!
DIR("?" QS+1*
DIR("A" QS*
DIR("B" QS+2*, MW+3*, MW1+2*
DIR(0 QS+2*, MW+2*, MW1+1*, DIR+2
DIROUT DIR+4, DIRX!
DIRUT KILL+1!, QS+3, DIRX!
>> DNM DUPCAN
DT EN1+6, EN1+7
DTOUT KILL+1!, DIR+4, DIRX!
DUOUT KILL+1!, QS+3, DIR+4, DIRX!
FDT UNHOLD~*, EN1+6, EN1+7
ION QS+5
>> PPL QS+5*, QS+6*
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+4, MSG, MSG+1, MSG+2, 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*
>> PSXDFLAG MSG+3*
>> PSXEDREL EN1+2
>> PSXFLAG EN1
PSXFROM UNHOLD*, REINS*, EN1+3, EN1+4, KILL+1!
PSXZ KILL+1!, QS+4!, QS+5!, EN+3!, EN+5!, CMOP+1*, CMOP+2, CMOP+3!
PSXZ( PSXOPUTL+12*, EN1+2, EN1+5, EN1+6, EN1+7, EN+4
PSXZ("L" PSXOPUTL+10*, EN1+2, EN1+5, EN1+6, EN1+7, EN+4
PSXZ("S" PSXOPUTL+13*, EN+3
>> RX EN1+3
>> RXN CMOP+1, CMOP+2
U CMOP+2, MW1+4
X PSXOPUTL+9~, PSXOPUTL+10*, PSXOPUTL+11*, PSXOPUTL+12, PSXOPUTL+13*, PSXOPUTL+14!, KILL+1!, MW1+4, MWX!, DIR+4
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 |  Naked Globals |  Local Variables |  All