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 ;29-May-2012 15:11;PLS

Source Information

Source file <PSORXDL.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Outpatient Pharmacy 9 REVERSE^PSOBPSU1  NOOR^PSOCAN4  EN^PSOHLSN1  EN^PSOHLUP  ^PSOLSET  LOCK^PSOORCPY  DCV^PSOPKIV1  (ACT,CP,STAT)^PSORESK1  
A1^PSORXVW  
VA Fileman 4 NOW^%DTC  ^DIE  ^DIK  ^DIR  
IHS Changes To Pharmacy 1 CALLPOS^APSPFUNC  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Outpatient Pharmacy 6 PSO RXDL  PSOCAN4  PSODGDG1  PSODGDGI  PSORESK  PSOVER2  
IHS Changes To Pharmacy 1 APSQDGDG  
IHS Omnicell Pyxis Interface 1 BOPROC  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Requires Pharmacy Key (PSORPH) !"
  • Line Location: PSORXDL+8
Function Call: WRITE
  • Prompt: $C(7),!!,"SITE PARAMETERS MUST BE DEFINED!",!
  • Line Location: PSORXDL+9
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+20
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+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PSORXDL+22
Function Call: WRITE
  • Prompt: !!?5,"No Action Taken.",!
  • Line Location: PSORXDL+22
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+22
Function Call: WRITE
  • Prompt: !
  • Line Location: REF+15
Function Call: WRITE
  • Prompt: !,"Rx # "_$P($G(^PSRX(RXP,0)),"^")_" Refill Returned to Stock.",!
  • Line Location: REF+19
Function Call: WRITE
  • Prompt: !
  • Line Location: INVT+2
Routine Call
  • DIE
  • Line Location:
    • RESK+16
    • REF+15
Routine Call
  • DIR
  • Line Location:
    • PSORXDL+22
    • PSORXDL+26
    • 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+21, PSORXDL+25
^PS(52.4 - [#52.4] ENQ+7
^PS(52.41 - [#52.41] ENQ+9
^PS(52.5 - [#52.5] PASS, PASS+1, ENQ+6, RESK+19, REF+18
^PS(55 - [#55] ENQ+14, ENQ+16, RESK+2
^PS(59.7 - [#59.7] RESK+1
^PSDRUG - [#50] PSORXDL+21, PSORXDL+24, ENQ+13*, RESK+13, RESK+14, REF+12, REF+13, INVINC+1*
^PSRX - [#52] PSORXDL+15, PSORXDL+18, PSORXDL+19, PSORXDL+20, PSORXDL+21, PSORXDL+24, PSORXDL+25, ENQ, ENQ+1, ENQ+2*
, ENQ+3, ENQ+4*, ENQ+5, ENQ+15, ACT+1, ACT+2, ACT+3*, RESK+2, RESK+3, RESK+6
, RESK+7, RESK+8, RESK+9, RESK+12, RESK+22, REF+1, REF+4, REF+5, REF+6, REF+7
, REF+10, REF+11, REF+19
^PSRX("ACP" ENQ+3!, ACT+1!
^PSRX("AH" ENQ+4!
^PSRX("AR" RESK+11, RESK+15!, REF+9, REF+14!
^XUSEC("PSORPH" PSORXDL+8

Label References

Name Line Occurrences
ACT ENQ+3
INVINC RESK+13, RESK+14, REF+12, REF+13
INVT RESK+13, REF+12
KILL PSORXDL+12, PSORXDL+22, PSORXDL+26, PASS+2, PASS+5, PASS+7, PASS+8
PASS PSORXDL+22
PSORXDL PSORXDL+16, PSORXDL+17, PSORXDL+22, PSORXDL+26, PASS+2, PASS+5, PASS+7, PASS+9, ENQ+12, ENQ+17
REF RESK+6
RESK PASS+5
ULK PSORXDL+22, PSORXDL+26, PASS+2, PASS+5, PASS+7, PASS+8, PASS+9, ENQ+12, ENQ+17
ULP PSORXDL+17, PSORXDL+22, PSORXDL+26, PASS+2, PASS+5, PASS+7, PASS+8, PASS+9, ENQ+12, ENQ+17

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KILL!, ACT+3, EX+1!, RESK+16
%H EX+1!
%I EX+1!
%Y KILL!
COM ENQ+17!, RESK+5!*
COPAYFLG KILL!, RESK+12*, REF+11*
D0 KILL!
DA PSORXDL+10!, PSORXDL+12, PSORXDL+14, PSORXDL+18, PSORXDL+19, PSORXDL+20, PSORXDL+21, PSORXDL+24, PSORXDL+25, 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, KILL!, ACT+2*, ACT+3*
, EX+1*, RESK+16*, RESK+19*, REF+15*, REF+18*
DA(1 REF+15*
>> DFN ENQ+14*, ENQ+16
DI KILL!
DIC KILL!, EX+1!
DIC("S" PSORXDL+11*, PSORXDL+12!
DIE KILL!, EX+1!, RESK+16!*, REF+15!*
DIG KILL!
DIH KILL!
DIK ENQ+6*, ENQ+7*, ENQ+9*!, RESK+19!*, REF+18!*
DIR PSORXDL+22!, PSORXDL+24!, PASS+8!, KILL+1!, RESK+5!, INVT+2!
DIR("?" PSORXDL+23*, RESK+5*, INVT+3*
DIR("A" PSORXDL+22*, PSORXDL+24*, PSORXDL+25*, PASS+8*, RESK+5*, INVT+2*
DIR("B" PSORXDL+22*, PSORXDL+26*, PASS+8*, INVT+2*
DIR(0 PSORXDL+22*, PSORXDL+24*, PASS+8*, RESK+5*, INVT+2*
DIRUT PSORXDL+26, PASS+7, PASS+8, KILL+1!, RESK+5, INVT+2!
DIU KILL!
DIV KILL!
DR KILL!, RESK+16*, REF+15*
DT ACT+3
DTOUT PSORXDL+26, KILL+1!
DUOUT KILL+1!
DUZ PSORXDL+8, ACT+3
FDA ACT+2*, EX+1!
I ENQ+14*, 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+11*, KILL!
PSDEL PSORXDL+11*, ENQ+17, KILL!
PSIN KILL!, RESK+1*, RESK+8, REF+6
PSOABCDA PSORXDL+10!, PASS+7*, PASS+8!, ENQ+8!*, ENQ+10, ENQ+11!, KILL+1!
PSOCPRX KILL+1!
PSODA KILL+1!
PSODEF KILL!, RESK+1!
PSODEFLG PSORXDL+10!, 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+18*, KILL!
PSOGGFL PSORXDL+18*, PSORXDL+19, PSORXDL+20, KILL+1!
PSOHLDAH PSORXDL+10!, PASS+4*, PASS+6, KILL!
PSOHLRE PSORXDL+10!, 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+17!, KILL!
PSONODF KILL+1!
PSONOOR ENQ+5, KILL+1!
>> PSOPAR PSORXDL+9
PSOPCECT KILL!, RESK+1*
PSOPFS KILL+1!, RESK+12~*, REF+11~*
PSOPLCK PSORXDL+16*!, PSORXDL+17!, KILL!
PSOREF PSORXDL+10!, KILL!, ACT+1*, EX+3
>> PSORX("INTERVENE" ENQ+12, ENQ+17
PSORXDAC PASS~*, PASS+1
PSORXDFN PSORXDL+15*, PSORXDL+16, KILL!, ULP+1
PSOWHERE KILL+1!, RESK+9!, RESK+11*, RESK+13, RESK+14, RESK+15, REF+9*, REF+12, REF+13, REF+14
PSOXXDEL PSORXDL+11*, KILL+1!
PSOXYZ PASS~, PASS+1*
PSOXYZF PASS!*, PASS+1*, PASS+2!, PASS+3!, KILL+1!
>> PSOZVER ENQ+12
PSROF KILL+1!, REF+1*
>> PSVFLAG ENQ+12, ENQ+17
QDRUG KILL+1!, RESK+6*, RESK+13, RESK+14, REF+12, REF+13, INVINC+1
QTY PSORXDL+10!, KILL+1!, RESK+6*, REF+10*, INVINC+1
REL PSORXDL+18*, PSORXDL+19*, PSORXDL+20, PSORXDL+21, PSORXDL+22, PASS+4, PASS+5, PASS+6*, KILL+1!
RESK KILL!, RESK+1*
RFDATE KILL!
RFL KILL!
RFL1 KILL!
RX ENQ+1*, ENQ+13, ENQ+14, ENQ+17!, KILL!, EX
RX0 KILL!
RX2 KILL!
RXF ACT+1*, ACT+3, EX+1!
RXN PSORXDL+14*, PSORXDL+15, PSORXDL+17, ENQ+1*, ENQ+2, ENQ+3, ENQ+4, ENQ+6, ENQ+7, ENQ+9
, ENQ+14, 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+16, RESK+19, RESK+20, RESK+21, RESK+22, RESK+24, REF+1, REF+4, REF+5
, REF+6, REF+7, REF+9, REF+10, REF+11, REF+14, REF+15, REF+18, REF+19, REF+20
, REF+22
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+15, REF+20, REF+22
U ENQ+15
X KILL!
XTYPE KILL+1!, RESK+7*, REF+3*
Y PSORXDL+22, PSORXDL+26, 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