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 ;05-Jun-2013 22:18;PLS

Source Information

Source file <PSSPOIMO.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 6 DD^%DT  ^DIC  MIX^DIC1  ^DIE  EN^DIK  ^DIR  
Pharmacy Data Management 4 EN2^PSSHL1  CHECK^PSSPOID2  (EN,REST)^PSSPOIDT  ADDSYN^PSSPOIMP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Data Management 1 PSS EDIT ORDERABLE ITEMS  

Entry Points

Name Comments DBIA/ICR reference
DISP
HEAD
EN
END
IVMSG ; display a message if the CORRESPONDING IV field is entered
EDIT
SYN
DTE
SOL ;
SHEAD
IMMUN ;PSS*1*141 FOR 'IMMUNIZATIONS DOCUMENTATION BY BCMA'
UDMSG ; display a message if the CORRESPONDING UD field is entered
DTEX
ZCHECK ;
CHECK ;
DIR
ADDIT ;If orderable item is flagged for IV

External References

Name Field # of Occurrence
DD^%DT DIR+16, DIR+18, DTE, DTEX
^DIC SYN
MIX^DIC1 EN+7
^DIE DIR+4, DIR+12, DIR+21, SYN+2
EN^DIK DIR+32
^DIR PSSPOIMO+3, EN+14, EDIT, DIR, DIR+15, HEAD, SOL+1, SHEAD
EN2^PSSHL1 SYN+1, SYN+3
CHECK^PSSPOID2 DIR+24
EN^PSSPOIDT SYN+1, SYN+3
REST^PSSPOIDT DIR+30, DIR+31
ADDSYN^PSSPOIMP DIR+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Orderable Item Auto-Create has not been completed yet!",!
  • Line Location: PSSPOIMO+3
Function Call: WRITE
  • Prompt: !!,"This option enables you to edit Orderable Item names, Formulary status,",!,"drug text, Inactive Dates, and Synonyms."
  • Line Location: PSSPOIMO+4
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,"*** This Orderable Item is flagged for IV use! ***",!
  • Line Location: EN+10
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+7
Function Call: WRITE
  • Prompt: !,"This Orderable Item is marked as a Non-VA Med.",!
  • Line Location: DIR+11
Function Call: WRITE
  • Prompt: ?40,"Inactive Date deleted!"
  • Line Location: DIR+17
Function Call: WRITE
  • Prompt: ?40,$G(Y)
  • Line Location: DIR+18
Function Call: WRITE
  • Prompt: !
  • Line Location: SYN+2
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+8
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
Routine Call
  • DIE
  • Line Location:
    • DIR+4
    • DIR+12
    • DIR+21
    • SYN+2
Routine Call
  • DIC
  • Line Location:
    • SYN
Routine Call
  • DIR
  • Line Location:
    • PSSPOIMO+3
    • EN+14
    • EDIT
    • DIR
    • DIR+15
    • HEAD
    • SOL+1
    • SHEAD

FileMan Files Accessed Via FileMan Db Call

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

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
^PS(50.7 - [#50.7] EN, EN+8, DIR+3, DIR+7, DIR+10, DIR+11, DIR+22*, DIR+23, SYN*, SYN+1!
, END, HEAD+1, CHECK+1, ZCHECK+1, SHEAD+1, IVMSG+2, IVMSG+3, IVMSG+4, UDMSG+2, UDMSG+3
, UDMSG+4
^PS(52.6 - [#52.6] DISP+3, DISP+5, DISP+6, ADDIT+1, SOL+2, SHEAD+3
^PS(52.7 - [#52.7] DISP+9, DISP+10, DISP+11, ADDIT+2, SOL+3, SOL+4
^PS(59.7 - [#59.7] PSSPOIMO+3, DIR+19
^PSDRUG - [#50] DISP, DTE
^PSDRUG("AOC" IMMUN+1
^PSDRUG("ASP" DISP

Label References

Name Line Occurrences
@( DIR+3
DIR DIR+2, DIR+3
DISP EN+15
DTE DISP
DTEX DISP+6, DISP+11
EDIT ADDIT+3, SOL+1, SOL+6
EN EN+14, EDIT, DIR+1, SYN+1, SYN+4, SOL+1, SOL+5
END EN+7
HEAD DISP, DISP+3, DISP+9
SHEAD SOL+4
SOL ADDIT+4
SYN IMMUN+1, SYN+2

Naked Globals

Name Field # of Occurrence
^(0 DISP+10, 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*
BB END!, ADDIT+2*, ADDIT+3
D EN+7*!
>> DA DIR+4*, DIR+12*, DIR+20*, DIR+32*, SYN+2*
>> DA(1 SYN*, SYN+2*
DIC EN+2!, EN+7*!, SYN!*, END!
DIC("A" SYN*
DIC("S" EN+5*
DIC("W" EN+5*
DIC(0 EN+7*, SYN*
DIE DIR+4*, DIR+7!, DIR+12*!, DIR+20*, DIR+21!, SYN+2*!, END!
DIK DIR+32*!
DIK(1 DIR+32*
>> DILOCKTM EN+8
DIR PSSPOIMO+3!, EN+12!, EN+14!, EDIT!, DIR!, DIR+15!, END!, HEAD!, SOL+1!, SHEAD!
DIR("?" EN+12*, EN+13*, EDIT*
DIR("A" PSSPOIMO+3*, EN+14*, EDIT*, DIR*, DIR+15*, HEAD*, SOL+1*, SHEAD*
DIR("B" EN+14*, EDIT*, DIR*, DIR+16*, SOL+1*
DIR(0 PSSPOIMO+3*, EN+14*, EDIT*, DIR*, DIR+15*, HEAD*, SOL+1*, SHEAD*
>> DLAYGO SYN*
>> DR DIR+4*, DIR+12*, DIR+20*, SYN+2*
DTOUT EN+7, EN+14, EDIT, DIR+1, DIR+12, DIR+15, SYN+1, END!, SOL+1
DUOUT EN+7, EN+14, EDIT, DIR+1, DIR+15, SYN+1, END!
FLAG END!, DISP*, DISP+2*, HEAD, HEAD+1, SOL+4*, SHEAD, SHEAD+1, SHEAD+2, SHEAD+3
IOF HEAD+1, SHEAD+1
IOSL DISP, DISP+3, DISP+9, SOL+4
MFLG DIR+7~
PLINE EN+7*, END!, SHEAD+1
PSAFTER DIR+7*, DIR+22*, DIR+33!
PSBEFORE DIR+7*, DIR+16, DIR+17, DIR+23, DIR+33!
PSCREATE DIR+12*!, DIR+21*!
PSDOSE EN+8*, EN+9, EDIT+1, END!, CHECK+1, ZCHECK+1
PSINORDE DIR+7*, 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 EN, EN+8*, DIR+3, DIR+4, DIR+7, DIR+10, DIR+11, DIR+12, DIR+20, DIR+22
, DIR+23, DIR+24, DIR+30, DIR+31, DIR+32, IMMUN+1, SYN, SYN+1, SYN+2, SYN+3
, END!, DISP, DISP+3, DISP+9, HEAD+1, ADDIT+1, ADDIT+2, SOL+2, SOL+3, SHEAD+1
, IVMSG+2, UDMSG+2
PSOINAME EN+8*, EN+9, EDIT+1, DIR, DIR+3, DIR+4, END!, HEAD+1, SHEAD+1
PSONEW DIR+4*, END!
PSOUT EN+7!, END!, DISP, DISP+1, DISP+3, DISP+7, DISP+9, HEAD*, SOL+4, SOL+5
, SHEAD*
>> 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!
PSSDACT DIR+33!
PSSDACT(0 DIR+28, DIR+29, DIR+31
PSSDACTI DIR+33!
PSSDACTI(0 DIR+26, DIR+27, DIR+30
PSSDTENT DIR+7*, DIR+18*, DIR+22, DIR+33!
PSSITE PSSPOIMO+3*!, PSSPOIMO+4!
PSSIVFRM IVMSG+3*, IVMSG+4, IVMSG+6!
PSSIVMSG IVMSG+2*, IVMSG+3, IVMSG+4*, IVMSG+5, IVMSG+6!
PSSLDATE DISP~, DISP+6*, DISP+11*, DTEX
PSSLFLAG DISP~, DISP+2*, DISP+4*
PSSOTH DIR+19*, DIR+21!
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!
PY EN+7!
SSS END!, SOL+3*
UPFLAG END!, SOL+4*, SHEAD*
VV END!, CHECK+1*, ZCHECK+1*
>> X DIR+2, DIR+3, DIR+4, CHECK+1, ZCHECK+1
Y EN+7, EN+8, EN+14, EN+15, EDIT, DIR+1, DIR+12, DIR+15, DIR+16*, DIR+17
, DIR+18, SYN+1, SYN+2, END!, HEAD, SOL+1, SHEAD, DTE*!, DTEX*!
ZZ END!, DISP*, DISP+3*, DISP+5, DISP+6, DISP+9*, DISP+10, DISP+11, 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