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

Package: Outpatient Pharmacy

Routine: PSOORED6


Information

PSOORED6 ;BIR/SAB - edit orders from backdoor ;Mar 28, 2022@14:32:09

Source Information

Source file <PSOORED6.m>

Call Graph

Call Graph

Call Graph Total: 26

Package Total Call Graph
Outpatient Pharmacy 18 REVERSE^PSOBPSU1  RXACT^PSOBPSU2  CLRSHD^PSOBPSU4  EXPDT^PSOCLO1  SAVDAW^PSODAWUT  UPDATE^PSODIAG  (,POST)^PSODRG  EN^PSOFSIG  
SIG^PSOHELP  ($$GETNDC,SAVNDC)^PSONDCUT  DCORD^PSONEW2  (DOLST,DOSE,UPDSIG)^PSOORED3  RESUB^PSOORED7  UDPROV^PSOOREDT  (M1,M2)^PSOOREDX  2^PSOORNW1  
DREN^PSOORNW2  (PRK,UNPARK)^PSOPRK  
VA FileMan 6 EN^DDIOL  MIX^DIC1  ^DIE  ($$GET1,GETS)^DIQ  EN^DIQ1  ^DIR  
Inpatient Medications 1 $$ISCLOZ^PSJCLOZ  
List Manager 1 (FULL,PAUSE)^VALM1  

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

Package Total Caller Graph
Outpatient Pharmacy 3 PSOORED5  PSOOREDT  PSOORNE1  

Entry Points

Name Comments DBIA/ICR reference
DRG ;select drug
PSOCOU ;patient counseling
PSOI ;select orderable item
NCPDP ;Reverse previously billed Rx on an edited orderable item or drug.
UPDATE ;add new data to file
UPDX ;
KV
UPD ;updates dosing array
UPD1 ;
M1
M2

External References

Name Field # of Occurrence
EN^DDIOL DRG+10, PSOI+22
MIX^DIC1 PSOI+5
^DIE UPDATE+44, UPDATE+53
$$GET1^DIQ UPDATE+43, UPDATE+45, UPDATE+51, UPDATE+55
GETS^DIQ UPDATE+13
EN^DIQ1 PSOCOU+1, PSOCOU+6
^DIR DRG+20, PSOCOU+2, PSOCOU+7, UPDATE+6
$$ISCLOZ^PSJCLOZ UPDATE+74
REVERSE^PSOBPSU1 NCPDP+5
RXACT^PSOBPSU2 UPDATE+38, UPDATE+46, UPDATE+47, UPDATE+48
CLRSHD^PSOBPSU4 UPDATE+55
EXPDT^PSOCLO1 UPDATE+74
SAVDAW^PSODAWUT UPDATE+40
UPDATE^PSODIAG UPDATE+11
^PSODRG DRG+3
POST^PSODRG DRG+6, PSOI+18
EN^PSOFSIG UPDATE+34, UPDATE+66, UPDATE+72
SIG^PSOHELP UPDATE+27
$$GETNDC^PSONDCUT UPDATE+36, UPDATE+38
SAVNDC^PSONDCUT UPDATE+39
DCORD^PSONEW2 DRG+20
DOLST^PSOORED3 DRG+11, PSOI+23, UPDATE+34, UPDATE+66, UPDATE+72
DOSE^PSOORED3 DRG+11, PSOI+23
UPDSIG^PSOORED3 UPDATE+34, UPDATE+66, UPDATE+72
RESUB^PSOORED7 UPDATE+64
UDPROV^PSOOREDT UPDATE+61
M1^PSOOREDX M1
M2^PSOOREDX M2
2^PSOORNW1 PSOI+16
DREN^PSOORNW2 PSOI+13
PRK^PSOPRK UPDATE+60
UNPARK^PSOPRK UPDATE+59
FULL^VALM1 PSOI+18
PAUSE^VALM1 DRG+27, PSOI+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"New Orderable Item selected. This edit will create a new prescription!",!
  • Line Location: DRG+27
Function Call: WRITE
  • Prompt: !!,"Current Orderable Item: "_$P(^PS(50.7,PSOI,0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
  • Line Location: PSOI+1
Function Call: WRITE
  • Prompt: !!,"New Orderable Item selected. This edit will create a new prescription!",!
  • Line Location: PSOI+8
Function Call: WRITE
  • Prompt: !!,"DRUG NAME REQUIRED!"
  • Line Location: PSOI+16
Routine Call
  • DIE
  • Line Location:
    • UPDATE+44
    • UPDATE+53
Routine Call
  • DIR
  • Line Location:
    • DRG+20
    • PSOCOU+2
    • PSOCOU+7
    • UPDATE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] Classic Fileman Calls
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] PSOI+1, PSOI+22
^PS(50.7 - [#50.7] PSOI+1, PSOI+2, PSOI+22
^PSDRUG - [#50] DRG+2, DRG+10, PSOI+15
^PSRX - [#52] DRG+7, UPDATE+5, UPDATE+7, UPDATE+8, UPDATE+17*, UPDATE+18*, UPDATE+19*, UPDATE+20*, UPDATE+21*, UPDATE+22*
, UPDATE+24!, UPDATE+26*, UPDATE+28!, UPDATE+29*, UPDATE+30*, UPDATE+31*, UPDATE+32*, UPDATE+33*, UPDATE+58, UPDATE+66!
, UPDATE+68!, UPDATE+69*, UPDATE+70*, UPDATE+71*
^PSRX("B" NCPDP+3
^TMP("PSORXBO" DRG+5*
^TMP("PSORXDC" DRG+17
^TMP($J PSOI+17!, PSOI+19!, UPDATE+3, UPDATE+67, UPDATE+69, UPDATE+70, UPDX+1!

Label References

Name Line Occurrences
KV PSOCOU+2, PSOCOU+3
M1 PSOI+10, UPDATE+6
M2 DRG+15, PSOI+11, PSOI+25
PSOI PSOI+6
UPD UPD1+1
UPDX UPDATE+3, UPDATE+66

Naked Globals

Name Field # of Occurrence
^(0 PSOI+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHGNDC UPDATE+1~, UPDATE+37*
>> CLOZPAT UPDATE+74
>> D PSOI+5*
DA PSOCOU+1*, PSOCOU+2, PSOCOU+6*, PSOCOU+7, UPDATE+14*, UPDATE+17, UPDATE+18, UPDATE+19, UPDATE+20, UPDATE+21
, UPDATE+22, UPDATE+24, UPDATE+26, UPDATE+28, UPDATE+29, UPDATE+30, UPDATE+31, UPDATE+32, UPDATE+33, UPDATE+36
, UPDATE+38, UPDATE+39, UPDATE+40, UPDATE+43, UPDATE+45, UPDATE+46, UPDATE+47, UPDATE+48, UPDATE+59*, UPDATE+60
, UPDATE+66, UPDATE+68, UPDATE+69, UPDATE+70, UPDATE+71, UPDX+1!
DD UPDATE+68!, UPDATE+69*, UPDATE+71, UPDX+1!
DIC PSOCOU+1!*, PSOCOU+6!*, PSOI+2*, PSOI+7!
DIC("B" PSOI+2*
DIC("S" PSOI+3*, PSOI+4*
DIC(0 PSOI+2*
DIE UPDATE+14*, UPDX+1!
DIQ PSOCOU+1!*, PSOCOU+6!*
DIR DRG+19!, DRG+20!, PSOCOU+2!, PSOCOU+7!, UPDATE+4!, UPDATE+6!, KV!
DIR("A" DRG+19*, UPDATE+5*
DIR("B" DRG+19*, PSOCOU+2*, PSOCOU+7*, UPDATE+5*
DIR(0 DRG+19*, PSOCOU+2*, PSOCOU+7*, UPDATE+5*
DIRUT DRG+20, PSOCOU+3, PSOCOU+4!, PSOCOU+7!, PSOCOU+8, PSOI+10, UPDATE+4!, UPDATE+10!, KV!
DR PSOCOU+1*, PSOCOU+2, PSOCOU+4, PSOCOU+6*, PSOCOU+7, UPDATE+44*, UPDATE+52*, UPDATE+57, UPDX+1!
DT UPDATE+29
DTOUT PSOCOU+8!, PSOI+10, UPDATE+4!, UPDATE+10!, KV!
DUOUT PSOCOU+8!, PSOI+10, UPDATE+4!, UPDATE+10!, KV!
>> ENT UPD+1
FLD UPDATE+14*, UPDATE+15*, UPDATE+16, UPDATE+17, UPDATE+18, UPDATE+19, UPDATE+20, UPDATE+21, UPDATE+22, UPDATE+23
, UPDATE+35, UPDATE+40, UPDATE+41, UPDATE+44, UPDATE+52, UPDATE+59*, UPDATE+61, UPDX+1!
FLDS UPDATE+1~
FLDTPRE UPDATE+1~, UPDATE+51*, UPDATE+55
>> HENT UPD+1*, UPD1+1, UPD1+2, UPD1+3, UPD1+4, UPD1+5, UPD1+6, UPD1+7, UPD1+8, UPD1+9
, UPD1+10, UPD1+11, UPD1+12, UPD1+13, UPD1+14, UPD1+15, UPD1+16*
>> I UPDATE+69*, UPD1+17*
INDEL PSOI+17!, PSOI+19!
>> INS1 UPDATE+27, UPDATE+28
>> INSDEL UPDATE+3, UPDATE+66
>> NCPDPFLG NCPDP+5*
NPSOY NCPDP+1~, NCPDP+3*
>> PSDA UPDATE+59*
PSHOLDD PSOI+8!, PSOI+12*, PSOI+14, PSOI+15
>> PSOAC DRG+10*
PSODDCHK PSOI+9~*, PSOI+16*, PSOI+18
PSODRUG DRG+8!, PSOI+15!
PSODRUG("COST" DRG+7
PSODRUG("DAW" DRG+26
PSODRUG("DEA" PSOI+12*
PSODRUG("IEN" DRG+2*, DRG+3, DRG+4, DRG+10, DRG+22, DRG+23, PSOI+12!, PSOI+14, PSOI+15*, PSOI+16
, PSOI+17, UPDATE+74
PSODRUG("NAME" DRG+2*, PSOI+12!, PSOI+15*
PSODRUG("NDC" DRG+25
PSODRUG("OI" DRG+16, PSOI+7*, PSOI+8, PSOI+22
PSODRUG("OIN" PSOI+7*, PSOI+22
PSODRUG("TRAD E NAME" , DRG+24
>> PSOFRPK UPDATE+59
>> PSOI DRG+16, DRG+23, PSOI+1, PSOI+2, PSOI+6, PSOI+8, PSOI+22, PSOI+26
PSOMAIL UPDATE+42~, UPDATE+45*, UPDATE+46, UPDATE+47, UPDATE+48
PSOMAILF UPDATE+42~, UPDATE+43*, UPDATE+46, UPDATE+47, UPDATE+48
>> PSONEW("OLD L AST RX#" , NCPDP+3
PSOOIFLG DRG+8!, DRG+27*, PSOI+12*, PSOI+15!
PSOREEDQ DRG+11*!, PSOI+23*!
>> PSORX("DFLG" DRG+4, DRG+8, DRG+12*, PSOI+10*, PSOI+14, PSOI+15, PSOI+19, PSOI+24*
>> PSORX("EDIT" DRG+1*
>> PSORXED UPDATE+34, UPDATE+66, UPDATE+72, UPDATE+74
>> PSORXED("CONJUNCTION" UPD1+1*, UPD1+2!, UPD1+10*
>> PSORXED("DFLG" DRG+4*, DRG+20*, DRG+21, PSOI+5*, PSOI+17*
>> PSORXED("DOSE ORDERED" , UPD1+6*, UPD1+14!
>> PSORXED("DOSE" DRG+12, PSOI+24, UPD1+3, UPD1+4*, UPD1+14!, UPD1+17
>> PSORXED("DURATION" UPD1+9*, UPD1+15!
>> PSORXED("FLD" DRG+3!, DRG+4!, DRG+7*, DRG+8!, DRG+23*, DRG+24*, DRG+25*, DRG+26*, PSOCOU+3!, PSOCOU+4*
, PSOCOU+8!, PSOCOU+9*, PSOCOU+10*, PSOI+17!, PSOI+19!, PSOI+26*, UPDATE+3, UPDATE+11, UPDATE+15, UPDATE+17
, UPDATE+18, UPDATE+19, UPDATE+20, UPDATE+21, UPDATE+22, UPDATE+24, UPDATE+25, UPDATE+26, UPDATE+27, UPDATE+31!
, UPDATE+32!, UPDATE+33!, UPDATE+36, UPDATE+38, UPDATE+39, UPDATE+40, UPDATE+44, UPDATE+52, UPDX+1!
>> PSORXED("IRXN" DRG+7, PSOCOU+1, PSOCOU+6, NCPDP+2, UPDATE+2, UPDATE+5, UPDATE+7, UPDATE+8, UPDATE+13, UPDATE+14
, UPDATE+51, UPDATE+55, UPDATE+58, UPDATE+59
>> PSORXED("NOUN" UPD1+8*, UPD1+15!
>> PSORXED("ODOSE" UPDATE+3, UPD1+5*, UPD1+14!
>> PSORXED("ROUTE" UPD1+11*, UPD1+15!
>> PSORXED("RX0" DRG+10
>> PSORXED("SCHEDULE" UPD1+12*, UPD1+15!
>> PSORXED("SIG" UPDATE+28*, UPDATE+30, UPDATE+66!, UPDATE+68!, UPDATE+69*
>> PSORXED("UNITS" UPD1+7*, UPD1+15!
>> PSORXED("VERB" UPD1+13*, UPD1+15!
>> PSORXED(52 PSOCOU+2!, PSOCOU+7!
PSOSIGFL DRG+8!, DRG+15, DRG+27*, PSOI+12*, PSOI+15!, PSOI+17!, PSOI+19!, PSOI+25
>> PSOTOPK UPDATE+60
PSOXXX DRG+9~, DRG+10, PSOI+20~, PSOI+22
PSOXXX(1 DRG+10*, PSOI+21*
PSOXXX(2 DRG+10*, PSOI+22*
RX NCPDP+1~, NCPDP+2*, NCPDP+3*, NCPDP+4, NCPDP+5
>> RX0 DRG+1, DRG+2, DRG+3, DRG+4, DRG+5, DRG+16*, DRG+22
RX0HLD DRG+1*, DRG+16!
RXREF UPDATE+1~, UPDATE+8*, UPDATE+9*
SAVFLD UPDATE+59*!
>> SENT UPD1+17*
UPDATE UPDATE+1~
>> VALMBCK PSOI+18*
VALMSG DRG+8!, DRG+27*, PSOI+15*, PSOI+17!*, PSOI+19!
X DRG+19!, PSOI+5, UPDATE+10!, UPDATE+27*, UPDX+1!
Y DRG+19!, DRG+20, PSOCOU+4, PSOCOU+5, PSOCOU+9, PSOI+6, PSOI+7, UPDATE+3, UPDATE+6, UPDATE+14!
, UPDX+1!
Y(0 PSOI+7
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