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

Package: Outpatient Pharmacy

Routine: PSORESUS


Information

PSORESUS ;BIR/EJW Queue/Requeue an Rx to CMOP ;07/25/07

Source Information

Source file <PSORESUS.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Outpatient Pharmacy 2 ^PSOBUILD  TEST^PSOCMOP  
VA FileMan 2 NOW^%DTC  ^DIR  
List Manager 1 FULL^VALM1  
Registration 1 KVA^VADPT  

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

Package Total Caller Graph
Outpatient Pharmacy 2 PSO LM QUEUE TO CMOP  PSO RX QUEUE CMOP  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
END
CM ; ENTRY POINT FOR SPEED QUEUE/REQUEUE TO CMOP
TOP ;
KILL ; CLEAN UP VARIABLES
SENDRX ; SET RX INTO SUSPENSE FILE FOR CMOP
OS

External References

Name Field # of Occurrence
NOW^%DTC SENDRX+5
^DIR TOP+4, OS
^PSOBUILD OS+12
TEST^PSOCMOP SENDRX+11
KVA^VADPT OS+13
FULL^VALM1 OS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Rx # "_RX_" not found"
  • Line Location: TOP+6
Function Call: WRITE
  • Prompt: !!,$P(^PSRX(PSOIEN,0),"^")," cannot be suspended for CMOP. Make sure the last fill has a Mail routing, the drug is marked for CMOP, the last fill has not been released, etc...",!!
  • Line Location: TOP+8
Function Call: WRITE
  • Prompt: !!,$P(^PSRX(PSOIEN,0),"^")," is not active or suspended"
  • Line Location: OS+5
Function Call: WRITE
  • Prompt: !!,$P(^PSRX(PSOIEN,0),"^")_" cannot be suspended for CMOP. Make sure the last fill has a Mail routing, the drug is marked for CMOP, the last fill has not been released, etc...",!
  • Line Location: OS+10
Function Call: WRITE
  • Prompt: !,"Cannot suspend for CMOP. Patient's mail status not a CMOP mail status"
  • Line Location: SENDRX+10
Routine Call
  • DIR
  • Line Location:
    • TOP+4
    • OS

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] SENDRX+9
^PSRX - [#52] TOP+8, OS+5, OS+6, OS+10, SENDRX+2, SENDRX+4, SENDRX+9
^PSRX("B" TOP+6

Label References

Name Line Occurrences
END TOP+4, TOP+6, TOP+9
KILL OS+1, OS+13
SENDRX TOP+7, OS+9
TOP TOP+6, TOP+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!, SENDRX+11
CHECK END!
CT END!
DFN SENDRX+9*!
DIC KILL+1!
DIR TOP+4!, END!, OS!, OS+1!
DIR("?" TOP+3*
DIR("A" TOP+2*, OS*
DIR(0 TOP+2*, OS*
DIROUT END!
DIRUT TOP+4, END!, OS!, OS+1!
DT SENDRX+10
DTOUT OS!, OS+1!
DUOUT OS!
I SENDRX+1~, SENDRX+2*
II CM+2~, OS+8*
LAST END!, SENDRX+1~, SENDRX+2*, SENDRX+4
LST OS*, OS+1, OS+3, OS+4, KILL+1!
NODE END!
ORD OS+3*, OS+4, KILL+1!
ORN OS+4*, KILL+1!
PNM KILL+1!
PPL TOP+1, TOP+8, END!, END+2*, CM+1, OS+3*, OS+6*, OS+8, OS+10, KILL+1!
, KILL+2*, SENDRX+7*, SENDRX+8, SENDRX+10!
>> PSOCNT CM+4, OS
PSOIEN TOP+6*, TOP+8, END!, CM+3~, OS+4*, OS+5, OS+6, OS+8*, OS+10, KILL+1!
, SENDRX+2, SENDRX+4, SENDRX+7, SENDRX+11
>> PSOLST( OS+4
PSOMC SENDRX+1~, SENDRX+9*, SENDRX+10
PSOMDT SENDRX+1~, SENDRX+9*, SENDRX+10
PSOOELSE CM+3~, OS+1!, OS+2*, OS+11
PSOREPX OS+1!
>> PSOSITE SENDRX+3, SENDRX+4*, SENDRX+12*
PSOSTA CM+2~, OS+5*
PSX END!
PSXPPL END!
PSXSITEA END+1!, SENDRX+3*, SENDRX+12
PSZIP KILL+1!
RF END!
RX TOP+5*, TOP+6, END!, KILL+1!
SAVEPPL TOP+1*, END+2!, CM+1*, OS+8*, OS+12!, KILL+2!
SSNP KILL+1!
TRX SENDRX+1~, SENDRX+8*, SENDRX+9!
VA KILL+1!
VADDR1 KILL+1!
VADM KILL+1!
VAEL KILL+1!
>> VALMBCK CM+4*, OS*, OS+1*, OS+7*, OS+11*
VALMCNT CM+3~
>> VALMSG CM+4*
VAPA KILL+1!
VASTREET KILL+1!
X END!
Y TOP+5!, END!, OS
ZD END!, SENDRX+6~
ZD( SENDRX+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All