Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call