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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSORXDL

Package: Outpatient Pharmacy

Routine: PSORXDL


Information

PSORXDL ;BIR/SAB - Deletes one prescription ;08/23/17 20:48

Source Information

Source file <PSORXDL.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Outpatient Pharmacy 10 REVERSE^PSOBPSU1  NOOR^PSOCAN4  EN^PSOHLSN1  EN^PSOHLUP  ^PSOLSET  LOCK^PSOORCPY  DCV^PSOPKIV1  (ACT,CP,STAT)^PSORESK1  
LOGRTS^PSORTSUT  A1^PSORXVW  
VA FileMan 4 NOW^%DTC  ^DIE  ^DIK  ^DIR  
List Manager 1 FULL^VALM1  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  

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

Package Total Caller Graph
Outpatient Pharmacy 7 PSO RXDL  PSOCAN4  PSODGDG1  PSODGDGI  PSODGDGP  PSORESK  PSOVER2  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
PASS
ENQ
KILL
ACT ;adds activity info for deleted rx
EX
RESK ;
REF ;
INVT ;
INVINC ;
ULK ;
ULP ;

External References

Name Field # of Occurrence
NOW^%DTC ACT+3, RESK+20, REF+19
^DIE RESK+20, REF+19
^DIK ENQ+7, ENQ+8, ENQ+10, RESK+23, REF+22
^DIR PSORXDL+20, PSORXDL+24, PASS+8, RESK+5, INVT+2
REVERSE^PSOBPSU1 EX+3, RESK+29, REF+27
NOOR^PSOCAN4 PASS+7
EN^PSOHLSN1 ENQ+5, RESK+24, REF+25
EN^PSOHLUP RESK+2
^PSOLSET PSORXDL+7
LOCK^PSOORCPY PSORXDL+14
DCV^PSOPKIV1 PASS+9
ACT^PSORESK1 RESK+22, REF+21
CP^PSORESK1 RESK+12, REF+11
STAT^PSORESK1 RESK+3
LOGRTS^PSORTSUT RESK+18, REF+17
A1^PSORXVW PSORXDL+10
$$L^PSSLOCK PSORXDL+14
PSOL^PSSLOCK PSORXDL+15
PSOUL^PSSLOCK ULK+1
UL^PSSLOCK ULP+1
FULL^VALM1 PSORXDL+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Requires Pharmacy Key (PSORPH) !"
  • Line Location: PSORXDL+6
Function Call: WRITE
  • Prompt: $C(7),!!,"SITE PARAMETERS MUST BE DEFINED!",!
  • Line Location: PSORXDL+7
Function Call: WRITE
  • Prompt: !!,$S($G(PSOGGFL):"Refill number "_$G(PSOGGFL),1:"The Original Fill")," has already been released for Rx # "_$P($G(^PSRX(DA,0)),"^")
  • Line Location: PSORXDL+18
Function Call: WRITE
  • Prompt: !,"Drug: ",$P($G(^PSDRUG(+$P($G(^PSRX(DA,0)),"^",6),0)),"^"),?49,$P($G(^DPT(+$P($G(^PSRX(DA,0)),"^",2),0)),"^")
  • Line Location: PSORXDL+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PSORXDL+20
Function Call: WRITE
  • Prompt: !!?5,"No Action Taken.",!
  • Line Location: PSORXDL+20
Function Call: WRITE
  • Prompt: !!,"Please wait, Rx is Loading for CMOP Transmission.."
  • Line Location: PASS+0
Function Call: WRITE
  • Prompt: !!,"Sorry, still loading for CMOP transmission, try again later.",!
  • Line Location: PASS+2
Function Call: WRITE
  • Prompt: !!?5,"Deleting prescription..",!
  • Line Location: PASS+6
Function Call: WRITE
  • Prompt: " NO ACTION TAKEN!",!
  • Line Location: PASS+7
Function Call: WRITE
  • Prompt: !!?5,"NO ACTION TAKEN!",!
  • Line Location: PASS+8
Function Call: WRITE
  • Prompt: !,"...PRESCRIPTION #"_$P(RX,"^")_" MARKED DELETED!!"
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: !!?5,"Returning Medication to Stock..",!
  • Line Location: RESK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RESK+5
Function Call: WRITE
  • Prompt: !!,"No Action Taken!",!
  • Line Location: RESK+5
Function Call: WRITE
  • Prompt: !,"Rx # "_$P($G(^PSRX(RXP,0)),"^")_" Returned to Stock.",!
  • Line Location: RESK+27
Function Call: WRITE
  • Prompt: !
  • Line Location: REF+19
Function Call: WRITE
  • Prompt: !,"Rx # "_$P($G(^PSRX(RXP,0)),"^")_" Refill Returned to Stock.",!
  • Line Location: REF+25
Function Call: WRITE
  • Prompt: !
  • Line Location: INVT+2
Routine Call
  • DIE
  • Line Location:
    • RESK+20
    • REF+19
Routine Call
  • DIR
  • Line Location:
    • PSORXDL+20
    • PSORXDL+24
    • PASS+8
    • RESK+5
    • INVT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls
^PS(52.4 - [#52.4] Classic Fileman Calls
^PS(52.41 - [#52.41] Classic Fileman Calls
^PS(52.5 - [#52.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PSORXDL+19, PSORXDL+23
^PS(52.4 - [#52.4] ENQ+8
^PS(52.41 - [#52.41] ENQ+10
^PS(52.5 - [#52.5] PASS, PASS+1, ENQ+7, RESK+23, REF+22
^PS(55 - [#55] ENQ+15, ENQ+16, RESK+2
^PS(59.7 - [#59.7] RESK+1
^PSDRUG - [#50] PSORXDL+19, PSORXDL+22, ENQ+14*, RESK+13, RESK+14, REF+12, REF+13, INVINC+1*
^PSRX - [#52] PSORXDL+13, PSORXDL+16, PSORXDL+17, PSORXDL+18, PSORXDL+19, PSORXDL+22, PSORXDL+23, ENQ, ENQ+1, ENQ+2*
, ENQ+3, ENQ+4*, ENQ+5, ENQ+6!, ACT+1, ACT+2, ACT+3*, RESK+2, RESK+3, RESK+6
, RESK+7, RESK+8, RESK+9, RESK+12, RESK+27, REF+1, REF+4, REF+5, REF+6, REF+7
, REF+10, REF+11, REF+25
^PSRX("ACP" ENQ+3!, ACT+1!
^PSRX("AH" ENQ+4!
^PSRX("APARK" ENQ+6!
^PSRX("AR" RESK+11, RESK+15!, REF+9, REF+14!
^XTMP("PSA" RESK+25, RESK+26*, REF+23, REF+24*
^XUSEC("PSORPH" PSORXDL+6

Label References

Name Line Occurrences
ACT ENQ+3
INVINC RESK+13, RESK+14, REF+12, REF+13
INVT RESK+13, REF+12
KILL PSORXDL+10, PSORXDL+20, PSORXDL+24, PASS+2, PASS+5, PASS+7, PASS+8
PASS PSORXDL+20
PSORXDL PSORXDL+14, PSORXDL+15, PSORXDL+20, PSORXDL+24, PASS+2, PASS+5, PASS+7, PASS+9, ENQ+13, ENQ+17
REF RESK+6
RESK PASS+5
ULK PSORXDL+20, PSORXDL+24, PASS+2, PASS+5, PASS+7, PASS+8, PASS+9, ENQ+13, ENQ+17
ULP PSORXDL+15, PSORXDL+20, PSORXDL+24, PASS+2, PASS+5, PASS+7, PASS+8, PASS+9, ENQ+13, ENQ+17

Naked Globals

Name Field # of Occurrence
^( ENQ+15, ENQ+16!
^("STA" RESK+3
^(0 PSORXDL+17, ENQ+15!*, RESK+6, RESK+25*, REF+6, REF+23*
^(2 PSORXDL+17, ENQ+3
^(660.1 ENQ+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KILL!, ACT+3, EX+1!, RESK+20
%H EX+1!
%I EX+1!
%Y KILL!
COM ENQ+17!, RESK+5!*
COPAYFLG KILL!, RESK+12*, REF+11*
D0 KILL!
DA PSORXDL+8!, PSORXDL+10, PSORXDL+12, PSORXDL+16, PSORXDL+17, PSORXDL+18, PSORXDL+19, PSORXDL+22, PSORXDL+23, PASS
, PASS+4, PASS+5, PASS+6*, PASS+7, PASS+8*, ENQ, ENQ+1, ENQ+3*, ENQ+4*, ENQ+5
, ENQ+6, ENQ+7*, ENQ+8*, ENQ+9, ENQ+10*!, ENQ+11*, ENQ+12*, ENQ+13, KILL!, ACT+2*
, ACT+3*, EX+1*, RESK+20*, RESK+23*, REF+19*, REF+22*
DA(1 REF+19*
>> DFN ENQ+15*, ENQ+16
DI KILL!
DIC KILL!, EX+1!
DIC("S" PSORXDL+9*, PSORXDL+10!
DIE KILL!, EX+1!, RESK+20!*, REF+19!*
DIG KILL!
DIH KILL!
DIK ENQ+7*, ENQ+8*, ENQ+10*!, RESK+23!*, REF+22!*
DIR PSORXDL+20!, PSORXDL+22!, PASS+8!, KILL+1!, RESK+5!, INVT+2!
DIR("?" PSORXDL+21*, RESK+5*, INVT+3*
DIR("A" PSORXDL+20*, PSORXDL+22*, PSORXDL+23*, PASS+8*, RESK+5*, INVT+2*
DIR("B" PSORXDL+20*, PSORXDL+24*, PASS+8*, INVT+2*
DIR(0 PSORXDL+20*, PSORXDL+22*, PASS+8*, RESK+5*, INVT+2*
DIRUT PSORXDL+24, PASS+7, PASS+8, KILL+1!, RESK+5, INVT+2!
DIU KILL!
DIV KILL!
DR KILL!, RESK+20*, REF+19*
DT ACT+3, RESK+25, RESK+26, REF+23, REF+24
DTOUT PSORXDL+24, KILL+1!
DUOUT KILL+1!
DUZ PSORXDL+6, ACT+3
FDA ACT+2*, EX+1!
I ENQ+15*, ENQ+16*, KILL!, ACT+1*, EX+1!
IFN KILL+1!
II KILL!
INCOM PASS+9~*
J KILL!
N KILL!
PHYS KILL!
>> PKI1 PASS+9
PS PSORXDL+9*, KILL!
PSDEL PSORXDL+9*, ENQ+17, KILL!
PSIN KILL!, RESK+1*, RESK+8, REF+6
PSOABCDA PSORXDL+8!, PASS+7*, PASS+8!, ENQ+9!*, ENQ+11, ENQ+12!, KILL+1!
PSOCPRX KILL+1!
PSODA KILL+1!
PSODEF KILL!, RESK+1!
PSODEFLG PSORXDL+8!, PASS+5*, KILL!, RESK+3*, RESK+5*, RESK+12*, RESK+13, REF+11*, REF+12, INVT+2*
PSODLCOM KILL!, RESK+5!*
PSODT KILL+1!
PSOGG PSORXDL+16*, KILL!
PSOGGFL PSORXDL+16*, PSORXDL+17, PSORXDL+18, KILL+1!
PSOHLDAH PSORXDL+8!, PASS+4*, PASS+6, KILL!
PSOHLRE PSORXDL+8!, PASS+4*, PASS+6, KILL!
PSOIB ENQ*, KILL!
PSOINVTX KILL+1!, RESK+13, REF+12, INVT+1*, INVT+2*
PSOLOCRL KILL+1!, RESK+9!*, RESK+10, RESK+11, RESK+15, REF+7*, REF+8, REF+9, REF+14
PSOLOUD RESK+2*!
PSOMSG PSORXDL+15!, KILL!
PSONODF KILL+1!
PSONOOR ENQ+5, KILL+1!
>> PSOPAR PSORXDL+7
PSOPCECT KILL!, RESK+1*
PSOPFS KILL+1!, RESK+12~*, REF+11~*
PSOPLCK PSORXDL+14*!, PSORXDL+15!, KILL!
PSOREF PSORXDL+8!, KILL!, ACT+1*, EX+3
>> PSORX("INTERVENE" ENQ+13, ENQ+17
PSORXDAC PASS~*, PASS+1
PSORXDFN PSORXDL+13*, PSORXDL+14, KILL!, ULP+1
>> PSOSITE RESK+26, REF+24
PSOWHERE KILL+1!, RESK+9!, RESK+11*, RESK+13, RESK+14, RESK+15, REF+9*, REF+12, REF+13, REF+14
PSOXXDEL PSORXDL+9*, KILL+1!
PSOXYZ PASS~, PASS+1*
PSOXYZF PASS!*, PASS+1*, PASS+2!, PASS+3!, KILL+1!
>> PSOZVER ENQ+13
PSROF KILL+1!, REF+1*
>> PSVFLAG ENQ+13, ENQ+17
QDRUG KILL+1!, RESK+6*, RESK+13, RESK+14, RESK+26, REF+12, REF+13, REF+24, INVINC+1
QTY PSORXDL+8!, KILL+1!, RESK+6*, RESK+26, REF+10*, REF+24, INVINC+1
REL PSORXDL+16*, PSORXDL+17*, PSORXDL+18, PSORXDL+19, PSORXDL+20, PASS+4, PASS+5, PASS+6*, KILL+1!
RESK KILL!, RESK+1*
RFDATE KILL!
RFL KILL!
RFL1 KILL!
RX ENQ+1*, ENQ+14, ENQ+15, ENQ+17!, KILL!, EX
RX0 KILL!
RX2 KILL!
RXF ACT+1*, ACT+3, EX+1!
RXN PSORXDL+12*, PSORXDL+13, PSORXDL+15, ENQ+1*, ENQ+2, ENQ+3, ENQ+4, ENQ+7, ENQ+8, ENQ+10
, ENQ+15, ENQ+16, ENQ+17!, KILL!, ACT+1, ACT+2, ACT+3, EX+1, EX+3, ULK+1
RXO KILL!
RXP PASS+5*, KILL+1!, RESK+2, RESK+3, RESK+6, RESK+7, RESK+8, RESK+9, RESK+11, RESK+12
, RESK+15, RESK+18, RESK+20, RESK+23, RESK+24, RESK+27, RESK+29, REF+1, REF+4, REF+5
, REF+6, REF+7, REF+9, REF+10, REF+11, REF+14, REF+17, REF+19, REF+22, REF+25
, REF+27
SIGOK KILL+1!
ST KILL!
ST0 KILL!
STAT ENQ+17!
TYPE KILL+1!, REF+1!*, REF+2, REF+4, REF+5, REF+6, REF+7, REF+9, REF+10, REF+11
, REF+14, REF+17, REF+19, REF+27
U RESK+25, REF+23
X KILL!
XTYPE KILL+1!, RESK+7*, REF+3*
Y PSORXDL+20, PSORXDL+24, PASS+9, ENQ+2, KILL!, RESK+5, INVT+2
Z KILL!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All