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

Package: Pharmacy Data Management

Routine: PSSPOIMO


Information

PSSPOIMO ;BIR/RTR/WRT - Edit Orderable Item Name and Inactive date ;Jun 23, 2020@13:14

Source Information

Source file <PSSPOIMO.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 8 DD^%DT  EN^DDIOL  ^DIC  MIX^DIC1  (,UPDATE)^DIE  (,EN)^DIK  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 5 EN2^PSSHL1  MEDRT^PSSJORDF  CHECK^PSSPOID2  (EN,REST)^PSSPOIDT  ADDSYN^PSSPOIMP  

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

Package Total Caller Graph
Pharmacy Data Management 2 PSS EDIT ORDERABLE ITEMS  PSSPOIM1  

Entry Points

Name Comments DBIA/ICR reference
EN
EDIT
DIR
IMMUN ;PSS*1*141 FOR 'IMMUNIZATIONS DOCUMENTATION BY BCMA'
SYN
SYN1 ;File
END
DISP
HEAD
ADDIT ;If orderable item is flagged for IV
CHECK ;
ZCHECK ;
SOL ;
SHEAD
DTE
DTEX
IVMSG ; display a message if the CORRESPONDING IV field is entered
UDMSG ; display a message if the CORRESPONDING UD field is entered
DFR(PSDOSE) ; dosage form med routes - called by DR string at DIR+20^PSSPOIMO
DFRL
PDR ; possible med routes - called by DR string at DIR+20^PSSPOIMO
PDCHK ; called by DR string at DIR+20^PSSPOIMO
ASK() ; confirm adding the new entry
DASK() ; delete possible med route
MRTHLP ; help of possible med route
DP ; check the existence of Default Med Route & Possible Med Routes
SETF ;
MRSEL ;
LIND ;*242

External References

Name Field # of Occurrence
DD^%DT DIR+14, DIR+16, DTEDTEX
EN^DDIOL DFRL+3, DFRL+4, DFRL+5, DFRL+6, MRTHLP+2, MRTHLP+3, MRTHLP+4, DP+9
^DIC SYN+1
MIX^DIC1 EN+7
^DIE DIR+4, DIR+10, DIR+21, DIR+35, IMMUN+2, SYN+3
UPDATE^DIE PDCHK+17
^DIK PDCHK+9
EN^DIK DIR+32
$$GET1^DIQ DISP+6
^DIR PSSPOIMO+2, EN+12, EDITDIRDIR+13, HEADSOL+1, SHEADPDCHK+4, ASK+3
, DASK+2, DP+14
EN2^PSSHL1 SYN+2, SYN1+1
MEDRT^PSSJORDF SETF+1, MRSEL+1
CHECK^PSSPOID2 DIR+24
EN^PSSPOIDT SYN+2, SYN1+1
REST^PSSPOIDT DIR+30, DIR+31
ADDSYN^PSSPOIMP DIR+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Orderable Item Auto-Create has not been completed yet!",!
  • Line Location: PSSPOIMO+2
Function Call: WRITE
  • Prompt: !!,"This option enables you to edit Orderable Item names, Formulary status,",!,"drug text, Inactive Dates, Indications for Use, and Synonyms."
  • Line Location: PSSPOIMO+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,$C(7),"Another person is editing this one."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!!,?5,"Orderable Item -> ",PSOINAME,!?5,"Dosage Form -> ",$P($G(^PS(50.606,PSDOSE,0)),"^"),!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!?3,"Now editing Orderable Item:",!?3,PSOINAME," ",$P($G(^PS(50.606,PSDOSE,0)),"^")
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: $C(7),!!?5,"??"
  • Line Location: DIR+2
Function Call: WRITE
  • Prompt: !!,"Name changed from ",PSOINAME,!?15,"to ",PSONEW
  • Line Location: DIR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+5
Function Call: WRITE
  • Prompt: !,"This Orderable Item is marked as a Non-VA Med.",!
  • Line Location: DIR+9
Function Call: WRITE
  • Prompt: ?40,"Inactive Date deleted!"
  • Line Location: DIR+15
Function Call: WRITE
  • Prompt: ?40,$G(Y)
  • Line Location: DIR+16
Function Call: WRITE
  • Prompt: !
  • Line Location: IMMUN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SYN+3
Function Call: WRITE
  • Prompt: !,$P($G(^PSDRUG(ZZ,0)),"^")
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: " N/F"
  • Condition for execution: $P($G(^PSDRUG(ZZ,0)),"^",9)
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: $C(7),!,"This Orderable Item is flagged for IV use, but currently there are no IV",!,"Additives or IV Solutions matched to this Orderable Item!"
  • Line Location: ADDIT+3
Function Call: WRITE
  • Prompt: $C(7),!!?5,"There is already an Orderable Item with this same name and Dosage Form",!?5,"that is not flagged as 'IV'. Use the 'DISPENSE DRUG/ORDERABLE ITEM",!?5,"MAINTENANCE' option if you want to re-match to this Orderable Item!",!
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: $C(7),!!?5,"There is already an Orderable Item with the same name and Dosage Form,",!?5,"that is flagged for 'IV' use.",!
  • Line Location: ZCHECK+2
Function Call: WRITE
  • Prompt: !,$P($G(^PS(52.7,ZZ,0)),"^")," ",$P($G(^(0)),"^",3)
  • Line Location: SOL+4
Function Call: WRITE
  • Prompt: !?5,"IV Solutions:",!
  • Line Location: SHEAD+1
Function Call: WRITE
  • Prompt: !?5,"IV Solutions:",!
  • Line Location: SHEAD+2
Function Call: WRITE
  • Prompt: !,$P($G(^PS(52.6,PSOARRAD,0)),"^")," ","(IV Additive)",!
  • Line Location: SHEAD+3
Function Call: WRITE
  • Prompt: !?5,"IV Solutions:",!
  • Line Location: SHEAD+3
Function Call: WRITE
  • Prompt: ?50,Y
  • Line Location: DTE+0
Function Call: WRITE
  • Prompt: ?50,$G(Y)
  • Line Location: DTEX+0
Function Call: WRITE
  • Prompt: !!,"The Corresponding IV Item is currently identified as: "_PSSIVMSG,!
  • Line Location: IVMSG+5
Function Call: WRITE
  • Prompt: !!,"The Corresponding UD Item is currently identified as: "_PSSUDMSG,!
  • Line Location: UDMSG+5
Function Call: WRITE
  • Prompt: !!," List of med routes associated with the DOSAGE FORM of the orderable item:",!
  • Line Location: DFRL+0
Function Call: WRITE
  • Prompt: !,?3,"NO MED ROUTE DEFINED"
  • Line Location: DFRL+1
Function Call: WRITE
  • Prompt: !,?3,$G(^(MCT))
  • Line Location: DFRL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DFRL+6
Function Call: WRITE
  • Prompt: !,?3,$G(^(MCT))
  • Line Location: PDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PDR+6
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: PDCHK+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MRTHLP+3
Function Call: WRITE
  • Prompt: !,"The following Med Routes will now be displayed during order entry:"
  • Line Location: MRSEL+2
Function Call: WRITE
  • Prompt: !,$P(^(I),"^",2)
  • Line Location: MRSEL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MRSEL+5
Function Call: WRITE
  • Prompt: !!,"Existing INDICATIONS FOR USE:"
  • Line Location: LIND+12
Function Call: WRITE
  • Prompt: !,X(I)
  • Line Location: LIND+13
Function Call: WRITE
  • Prompt: !
  • Line Location: LIND+14
Routine Call
  • DIC
  • Line Location:
    • SYN+1
Routine Call
  • DIE
  • Line Location:
    • DIR+4
    • DIR+10
    • DIR+21
    • DIR+35
    • IMMUN+2
    • SYN+3
Routine Call
  • DIE
  • Line Location:
    • PDCHK+17
Routine Call
  • DIR
  • Line Location:
    • PSSPOIMO+2
    • EN+12
    • EDIT
    • DIR
    • DIR+13
    • HEAD
    • SOL+1
    • SHEAD
    • PDCHK+4
    • ASK+3
    • DASK+2
    • DP+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] Classic Fileman Calls
^PS(52.6 - [#52.6] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] EN+9, EDIT+1, HEAD+1, SHEAD+1, IVMSG+3, UDMSG+3, DFR+3, DFR+4
^PS(50.7 - [#50.7] ENEN+8, DIR+3, DIR+5, DIR+8, DIR+9, DIR+22*, DIR+23, SYN+1*, SYN+2!
ENDHEAD+1, CHECK+1, ZCHECK+1, SHEAD+1, IVMSG+2, IVMSG+3, IVMSG+4, UDMSG+2, UDMSG+3
UDMSG+4, PDR+2, PDCHK+8, PDCHK+11, PDCHK+14, MRTHLP+2, DP+2, LIND+1, LIND+3, LIND+4
LIND+6, LIND+8, LIND+9
^PS(51.2 - [#51.2] DFR+4, PDR+2, MRTHLP+2
^PS(52.6 - [#52.6] DISP+3, DISP+5, DISP+7, ADDIT+1, SOL+2, SHEAD+3
^PS(52.7 - [#52.7] DISP+10, DISP+11, DISP+12, ADDIT+2, SOL+3, SOL+4
^PS(59.7 - [#59.7] PSSPOIMO+2, DIR+17
^PSDRUG - [#50] DISPDTE
^PSDRUG("AOC" IMMUN+1
^PSDRUG("ASP" DISP
^TMP("PSJMR" DIR+21!, SETF+1!, SETF+2, MRSEL+1!, MRSEL+3
^TMP("PSSDMR" DIR+21!, DFR+2!, DFR+5*, DFRL+1, DFRL+2, ASK+2
^TMP("PSSMR" PDR+1!, PDR+2*, PDR+3, PDR+5, PDR+6!, PDCHK+18!

Label References

Name Line Occurrences
$$ASK PDCHK+15
$$DASK PDCHK+6
@( DIR+3
DFR PDCHK+14
DFRL DFR+6
DIR DIR+2, DIR+3
DISP EN+13
DP PDCHK+19
DTE DISP
DTEX DISP+7, DISP+12
EDIT ADDIT+3, SOL+1, SOL+6
EN EN+12, EDITDIR+1, SYN+2, SYN1+2, SOL+1, SOL+5
END EN+7
HEAD DISPDISP+3, DISP+10
MRSEL DIR+21
PDR PDCHK+4
SETF DFR+1
SHEAD SOL+4
SOL ADDIT+4
SYN IMMUN+1, SYN+3
SYN1 SYN

Naked Globals

Name Field # of Occurrence
^( DFRL+2, PDR+5, MRSEL+3
^(0 DISP+11, SOL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AA END!, ADDIT+1*, ADDIT+3
AAA END!, SOL+2*
ANS PDCHK+1~, PDCHK+6*, PDCHK+7, PDCHK+15*
BB END!, ADDIT+2*, ADDIT+3
C LIND+1~*, LIND+2*, LIND+5*, LIND+7*, LIND+10*, LIND+11, LIND+13
D EN+7*!, PDCHK+1~, MRTHLP+1~, DP+1~
DA DIR+4*, DIR+10*, DIR+18*, DIR+32*, DIR+34~, DIR+35*, IMMUN+2*, SYN+3*, PDCHK+6, PDCHK+7~
PDCHK+8*, PDCHK+11, PDCHK+14, PDCHK+16, MRTHLP+2, LIND+1, LIND+3, LIND+4, LIND+6, LIND+8
LIND+9
DA(1 SYN+1*, SYN+3*, PDCHK+7*, PDCHK+8
DIC EN+2!, EN+7*!, SYN+1!*, END!, PDCHK+1~, MRTHLP+1~, DP+1~
DIC("A" SYN+1*
DIC("S" EN+5*
DIC("W" EN+5*
DIC(0 EN+7*, SYN+1*
DICR PDCHK+1~, DP+1~
DIE DIR+4*, DIR+5!, DIR+10*!, DIR+18*, DIR+21!, DIR+34~, DIR+35*!, IMMUN+2*!, SYN+3*!, END!
PDCHK+1~, DP+1~
DIE("NO^" SETF+2*, SETF+3!
DIK DIR+32*!, PDCHK+7~*
DIK(1 DIR+32*
>> DILOCKTM EN+8
DIR PSSPOIMO+2!, EN+10!, EN+12!, EDIT!, DIR!, DIR+13!, END!, HEAD!, SOL+1!, SHEAD!
PDCHK+1~, ASK+1~, DASK+1~, DP+1~, DP+10!, DP+14!
DIR("?" EN+10*, EN+11*, EDIT*, DP+10*, DP+11*
DIR("A" PSSPOIMO+2*, EN+12*, EDIT*, DIR*, DIR+13*, HEAD*, SOL+1*, SHEAD*, PDCHK+2*, ASK+2*
, ASK+3*, DASK+2*, DP+12*, DP+13*
DIR("B" EN+12*, EDIT*, DIR*, DIR+14*, SOL+1*, PDCHK+9!, PDCHK+12!, PDCHK+13*, ASK+1*, ASK+2*
DP+13*
DIR("PRE" PDCHK+3*
DIR("S" PDCHK+2*
DIR(0 PSSPOIMO+2*, EN+12*, EDIT*, DIR*, DIR+13*, HEAD*, SOL+1*, SHEAD*, PDCHK+2*, ASK+1*
, DASK+2*, DP+10*
DIRUT EN+1!, SYN, END!
>> DLAYGO SYN+1*
DO PDCHK+1~, DP+1~
DR DIR+4*, DIR+10*, DIR+19*, DIR+20*, DIR+34~, DIR+35*, IMMUN+2*, SYN+3*, PDCHK+1~, DP+1~
DTOUT EN+1!, EN+7, EN+12, EDITDIR+1, DIR+10, DIR+13, SYNSYN+2, END!
SOL+1, PDCHK+5, DP+14
DUOUT EN+1!, EN+7, EN+12, EDITDIR+1, DIR+13, SYN+2, END!, PDCHK+5, DP+14
FLAG END!, DISP*, DISP+2*, HEADHEAD+1, SOL+4*, SHEADSHEAD+1, SHEAD+2, SHEAD+3
I MRSEL+3~*, LIND+1~, LIND+3*, LIND+4, LIND+8*, LIND+9, LIND+13*
IOF HEAD+1, SHEAD+1
IOSL DISPDISP+3, DISP+10, SOL+4
J LIND+1~, LIND+4*, LIND+9*
K LIND+1~, LIND+4*, LIND+5, LIND+9*, LIND+10
L LIND+1~*, LIND+2, LIND+7
M LIND+1~*, LIND+7, LIND+10
MCT DFR+3*, DFR+5*, DFRL+1*, DFRL+2*, PDR+1~, PDR+2*, PDR+5*
MFLG DIR+5~
MR DFR+2~, DFR+3*, DFR+4, PDR+1~
MRNODE DFR+2~, DFR+4*, DFR+5, PDR+1~, PDR+2*
PLINE EN+7*, END!, SHEAD+1
PSAFTER DIR+5*, DIR+22*, DIR+33!
PSBEFORE DIR+5*, DIR+14, DIR+15, DIR+23, DIR+33!
PSCREATE DIR+10*!, DIR+21*!
PSDOSE EN+8*, EN+9, EDIT+1, END!, CHECK+1, ZCHECK+1, DFR~, DFR+3, DFR+4
PSINORDE DIR+5*, DIR+23*, DIR+24, DIR+25, DIR+30, DIR+31, DIR+33!
PSOARR END!, SOL+2!, SHEAD+3
PSOARR( SOL+3*, SOL+4
PSOARRAD END!, SOL+2!*, SHEAD+1, SHEAD+3
PSOIEN ENEN+8*, DIR+3, DIR+4, DIR+5, DIR+8, DIR+9, DIR+10, DIR+18, DIR+22
DIR+23, DIR+24, DIR+30, DIR+31, DIR+32, DIR+35, IMMUN+1, IMMUN+2, SYN+1, SYN+2
SYN+3, SYN1+1, END!, DISPDISP+3, DISP+10, HEAD+1, ADDIT+1, ADDIT+2, SOL+2
SOL+3, SHEAD+1, IVMSG+2, UDMSG+2, PDR+2, DP+2, SETF+1, MRSEL+1
PSOINAME EN+8*, EN+9, EDIT+1, DIRDIR+3, DIR+4, END!, HEAD+1, SHEAD+1
PSONEW DIR+4*, END!
PSOUT EN+7!, END!, DISPDISP+1, DISP+3, DISP+8, DISP+10, HEAD*, SOL+4, SOL+5
, SHEAD*, PDCHK+1~, PDCHK+2*, PDCHK+4, PDCHK+5*
>> PSR DP+9
>> PSR(1 DP+3*
>> PSR(2 DP+4*
>> PSR(3 DP+5*
>> PSR(4 DP+6*
>> PSR(5 DP+7*
>> PSR(6 DP+8*
>> PSS1 EN+3*, EN+5
>> PSS2 EN+4*, EN+5
PSSAACT DIR+33!
PSSAACT(0 DIR+28, DIR+29, DIR+31
PSSAACTI DIR+33!
PSSAACTI(0 DIR+26, DIR+27, DIR+30
PSSCROSS EN+1!
PSSDA PDCHK+1~
PSSDA( PDCHK+16*
PSSDACT DIR+33!
PSSDACT(0 DIR+28, DIR+29, DIR+31
PSSDACTI DIR+33!
PSSDACTI(0 DIR+26, DIR+27, DIR+30
PSSDTENT DIR+5*, DIR+16*, DIR+22, DIR+33!
PSSFG DIR+18~, DP+14*, DP+15*, DP+16*, SETF+2*, SETF+3*
PSSITE PSSPOIMO+2*!, PSSPOIMO+3!
PSSIVFRM IVMSG+3*, IVMSG+4, IVMSG+6!
PSSIVMSG IVMSG+2*, IVMSG+3, IVMSG+4*, IVMSG+5, IVMSG+6!
PSSLDATE DISP~, DISP+7*, DISP+12*, DTEX
PSSLFLAG DISP~, DISP+2*, DISP+4*
PSSOTH DIR+17*, DIR+21!
PSSOU DIR+18~, DIR+21, SETF+1*, MRSEL+3*, MRSEL+4, MRSEL+5*
PSSSACT DIR+33!
PSSSACT(0 DIR+28, DIR+29, DIR+31
PSSSACTI DIR+33!
PSSSACTI(0 DIR+26, DIR+27, DIR+30
PSSUDFRM UDMSG+3*, UDMSG+4, UDMSG+6!
PSSUDMSG UDMSG+2*, UDMSG+3, UDMSG+4*, UDMSG+5, UDMSG+6!
PSSX PDCHK+1~, PDCHK+14*, PDCHK+15, PDCHK+16, ASK+2
PSSXA PDCHK+1~, PDCHK+14*, ASK+3
PSSY PDCHK+1~, PDCHK+6, PDCHK+8, PDCHK+9!, PDCHK+12!, PDCHK+13*
>> PSVAR PDR+2, DP+2, SETF+1, MRSEL+1
PY EN+7!
Q PDCHK+1~, DP+1~
RTE MRTHLP+1~, MRTHLP+2*
SSS END!, SOL+3*
U DFR+5, PDR+2, LIND+4, LIND+9
UPFLAG END!, SOL+4*, SHEAD*
VV END!, CHECK+1*, ZCHECK+1*
X DIR+2, DIR+3, DIR+4, CHECK+1, ZCHECK+1, PDCHK+1~, PDCHK+5, PDCHK+6, ASK+1~, DP+1~
LIND+1~
X( LIND+5*, LIND+7*, LIND+10*, LIND+13
X(1 LIND+2*
XX DFR+2~, DFR+4*, DFR+5, PDR+1~, PDR+2*
Y EN+7, EN+8, EN+12, EN+13, EDITDIR+1, DIR+10, DIR+13, DIR+14*, DIR+15
DIR+16, SYNSYN+2, SYN+3, END!, HEADSOL+1, SHEAD, DTE*!, DTEX*!
PDCHK+1~, PDCHK+10, PDCHK+11, PDCHK+13, PDCHK+14, ASK+1~, ASK+4, DASK+3, DP+1~, DP+14
DP+15, LIND+1~*, LIND+2, LIND+6*, LIND+7
Y(0 PDCHK+13, PDCHK+14
Z PDCHK+1~, DP+1~
ZZ END!, DISP*, DISP+3*, DISP+5, DISP+6, DISP+7, DISP+10*, DISP+11, DISP+12, SOL+4*
DTE
ZZFLAG DIR+3*, END!, CHECK+1*, CHECK+2, ZCHECK+1*, ZCHECK+2
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