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 |  Local Variables  | All
Print Page as PDF
Routine: PSIVEDT

Package: Inpatient Medications

Routine: PSIVEDT


Information

PSIVEDT ;BIR/MLM - EDIT IV ORDER ;Nov 23, 2021@09:57:57

Source Information

Source file <PSIVEDT.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Inpatient Medications 11 $$ACTPRO^PSGOE1  (50,51)^PSGOE82  ENSTOP^PSIVCAL  (DRG,SAVEDRG)^PSIVEDRG  (10,25,26,39,59,63,64,IND,ORFLDS)^PSIVEDT1  (OC,SETDD)^PSIVOC  ENHLP^PSIVORC1  CMPLX^PSJCOM1  
$$COMPARE^PSJMISC  GMRAOC^PSJOC  $$COMPLEX^PSJOE  
VA FileMan 4 ^DIC  (,CHK)^DIE  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 2 START1^PSSJORDF  $$OIDEA^PSSOPKI  
Kernel 1 $$SDEA^XUSER  
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: 9

Package Total Caller Graph
Inpatient Medications 9 PSIVCHK  PSIVOPT2  PSIVORA1  PSIVORC2  PSIVORE2  PSIVORFE  PSJCOMR  PSJLIFN  
PSJLIFNI  

Entry Points

Name Comments DBIA/ICR reference
EDIT ;
1 ; Provider.
N1 ;
3 ; Med Route.
CNT ;
10 ; Start Date.
25 ; Stop Date.
26 ; Schedule
39 ; Admin Times.
57 ; Additive.
58 ; Solution.
DKILL ; Kill for drug edit.
59 ; Infusion Rate.
62 ; IV Room.
63 ; Remarks.
64 ; Other Print Info.
66 ; Provider's comments.
101 ; Orderable Item.
109 ; Dosage Ordered.
113 ; Clinic appointment. ;*p319
126 ; Clinic date. ;*p319
132 ;*399-IND
FF ; up-arrow to another field.
NEWDRG ; Ask if adding a new drug.
MRSL ;check for OI med route short list;*366
CKMRSL ;;check for med route short list leading letters ;*366
MROL ;
IVDEA(DRG,PROVIEN,P) ; Check that provider PROVIEN is authorized to prescribe CS schedules in DRG("AD") and DRG("SOL")

External References

Name Field # of Occurrence
^DIC N1+15, CNT+1, 101+6, FF+1, MRSL+2, CKMRSL+1
^DIE 66+1
CHK^DIE 109+3
$$GET1^DIQ IVDEA+17, IVDEA+27
^DIR 62+2, NEWDRG+1
$$ACTPRO^PSGOE1 N1+8
50^PSGOE82 113+1
51^PSGOE82 126+1
ENSTOP^PSIVCAL 57+12, 58+15
DRG^PSIVEDRG 57+7, 58+4
SAVEDRG^PSIVEDRG EDIT+3, EDIT+14
10^PSIVEDT1 10+1
25^PSIVEDT1 25+1
26^PSIVEDT1 26+1
39^PSIVEDT1 39+1
59^PSIVEDT1 59+1
63^PSIVEDT1 63+1
64^PSIVEDT1 64+1
IND^PSIVEDT1 132+1
ORFLDS^PSIVEDT1 N1+13, 3+20, 109+2
OC^PSIVOC EDIT+11, 57+13, 58+15
SETDD^PSIVOC 58+11
ENHLP^PSIVORC1 N1+16, CNT+2
CMPLX^PSJCOM1 EDIT+7
$$COMPARE^PSJMISC 57+11, 58+7, 58+8
GMRAOC^PSJOC 58+12
$$COMPLEX^PSJOE EDIT+4, N1+5, 3+3, 57+3, 101+3
START1^PSSJORDF MROL+5
$$OIDEA^PSSOPKI IVDEA+18, IVDEA+28
FULL^VALM1 EDIT+7
PAUSE^VALM1 N1+4, N1+6, N1+11, 3+2, 3+4, 57+2, 57+4, 58+3, 101+2, 101+4
$$SDEA^XUSER IVDEA+18, IVDEA+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"This order is part of a complex order. Please review the following ",!?5,"associated orders before changing this order."
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !!?5,"This is Renewal order. Provider may not be edited at this point."
  • Line Location: N1+4
Function Call: WRITE
  • Prompt: !!?5,"This is a Complex Order. Provider may not be edited at this point."
  • Line Location: N1+6
Function Call: WRITE
  • Prompt: !,"PROVIDER: "_$S($P(P(6),U,2)]"":$P(P(6),U,2)_"//",1:"")
  • Line Location: N1+9
Function Call: WRITE
  • Prompt: $C(7),!!?5,"INVALID PROVIDER."
  • Line Location: N1+11
Function Call: WRITE
  • Prompt: $C(7),!!,"A Provider must be entered.",!!
  • Line Location: N1+16
Function Call: WRITE
  • Prompt: !!?5,"Med Route may not be edited at this point."
  • Line Location: 3+2
Function Call: WRITE
  • Prompt: !!?5,"This is a Complex Order. Med Route may not be edited at this point."
  • Line Location: 3+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 3+18
Function Call: WRITE
  • Prompt: $C(7),!!,"A Med Route must be entered."
  • Line Location: CNT+2
Function Call: WRITE
  • Prompt: !!?5,"Additive may not be edited at this point."
  • Line Location: 57+2
Function Call: WRITE
  • Prompt: !!?5,"This is a Complex Order. Provider may not be edited at this point."
  • Line Location: 57+4
Function Call: WRITE
  • Prompt: !!,"Only additives marked for use in IV Fluid Order Entry may be selected."
  • Line Location: 57+5
Function Call: WRITE
  • Prompt: !!?5,"Solution may not be edited at this point."
  • Line Location: 58+3
Function Call: WRITE
  • Prompt: $P($P(Y,U,2),X,2)
  • Line Location: 62+2
Function Call: WRITE
  • Prompt: !!?5,"This is Renewal order. Orderable Item may not be edited at this point."
  • Line Location: 101+2
Function Call: WRITE
  • Prompt: !!?5,"This is a Complex Order. Orderable Item may not be edited at this point."
  • Line Location: 101+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 101+5
Function Call: WRITE
  • Prompt: $C(7),!!,"Orderable Item is required!",!!
  • Line Location: 101+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 109+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter the dosage in which the Orderable Item entered should be dispensed.",!
  • Line Location: 109+3
Function Call: WRITE
  • Prompt: "Answer must be 1-20 characters in length."
  • Line Location: 109+3
Function Call: WRITE
  • Prompt: !,?10,I_" "_$P(^TMP(MRTFN,$J,I,0),U)_" "_$P(^TMP(MRTFN,$J,I,0),U,3)
  • Line Location: MRSL+1
Function Call: WRITE
  • Prompt: !,"Provider not authorized to prescribe medications in Federal Schedule "_PSDEA_".",!,"Please contact the provider.",!
  • Line Location: IVDEA+20
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider must have a valid DEA# or VA# to write prescriptions for this drug.",!
  • Line Location: IVDEA+21
Function Call: WRITE
  • Prompt: !,"Provider not authorized to prescribe medications in Federal Schedule "_PSDEA_".",!,"Please contact the provider.",!
  • Line Location: IVDEA+30
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider must have a valid DEA# or VA# to write prescriptions for this drug.",!
  • Line Location: IVDEA+31
Routine Call
  • DIC
  • Line Location:
    • N1+15
    • CNT+1
    • 101+6
    • FF+1
    • MRSL+2
    • CKMRSL+1
Routine Call
  • DIE
  • Line Location:
    • 66+1
Routine Call
  • DIE
  • Line Location:
    • 109+3
Routine Call
  • DIR
  • Line Location:
    • 62+2
    • NEWDRG+1

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
^PS(52.7 - [#52.7] GET1^DIQ
^PS(53.1 - [#53.1] CHK^DIE
^PS(53.45 - [#53.45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] 3+11
^PS(51.2 - [#51.2] 3+11
^PS(52.7 - [#52.7] NEWDRG+2
^PS(53.1 - [#53.1] N1+3, 3+1, 57+1, 58+2, 101+1
^PS(55 - [#55] EDIT+5
^TMP( 3+16!, 3+22!, MRSL+1, MROL+8*, MROL+12*

Label References

Name Line Occurrences
$$IVDEA N1+10, N1+15
101 101+7
109 109+2, 109+3
3 3+20, 3+21, CNT+2
@( EDIT+9
CKMRSL 3+22
CNT 3+21
DKILL 57+7, 57+14, 58+17
FF EDIT+9
MROL 3+17
MRSL 3+21
N1 N1+10, N1+13, N1+15, N1+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD 3+8~, 3+9*
>> ADCNT IVDEA+14*, IVDEA+16
BKP6 1+1~*, N1+11
CT MROL+1~, MROL+2*, MROL+3*, MROL+4, MROL+11*, MROL+12*
DA 66+1~*
>> DFN EDIT+4, N1+5, 3+3, 57+3, 101+3
DIC N1+15!*, CNT+1!*, 101+6~*!, FF+1~*!, MRSL+2~*, CKMRSL+1~*
DIC("A" MRSL+2*
DIC("B" 101+6*
DIC("S" N1+15*, CNT+1*, 101+6*, FF+1*
DIC("T" CKMRSL+1*
DIC(0 N1+15*, CNT+1*, 101+6*, FF+1*, MRSL+2*, CKMRSL+1*
DIE 66+1~*
DIR 62+1~, 66+1~, NEWDRG+1!
DIR("??" 62+1*
DIR("A" 62+1*, NEWDRG+1*
DIR("B" 62+1*, NEWDRG+1*
DIR(0 62+1*, NEWDRG+1*
>> DIRUT 62+2
>> DONE EDIT+8*, EDIT+9, N1+10*, 3+18*, 101+5*, 109+1*
DR 66+1~*
DRG EDIT+3, EDIT+14, N1+10, N1+15, 57+11, 58+7, 58+8, NEWDRG+2*, IVDEA~, IVDEA+10
DRG( NEWDRG+2*
DRG("AD" 3+9, MROL+2, IVDEA+14, IVDEA+16
DRG("SOL" 3+10, MROL+3, IVDEA+24, IVDEA+26
DRGI DKILL+1!, NEWDRG+2*
DRGN DKILL+1!
DRGT 57+7*, 58+4*, DKILL+1!, NEWDRG+1, NEWDRG+2
DRGTN 57+7*, 58+4*, DKILL+1!
DTIME N1+9, 3+18, 101+5, 109+1
>> DTOUT NEWDRG+1
>> DUOUT NEWDRG+1
EDIT EDIT+9, EDIT+12!, 57+13, 58+15
>> F1 N1+16*, CNT+2*
>> F2 N1+16*, CNT+2*
FIL 57+7*, 58+4*, DKILL+1!
I MRSL+1~*, MROL+1~, MROL+2*, MROL+3*, MROL+9*, MROL+10, MROL+11*, MROL+12
MRTFN 3+16~*, 3+22!, MRSL+1, MROL+8, MROL+12
OI 3+8~, 3+9*, 3+10*, 3+11*, MROL+1~, MROL+2*, MROL+3*
OI( 3+9*, 3+10*, 3+11
OIZ 3+16~*, 3+21, 3+22!, MROL+5, MROL+6*, MROL+7, MROL+8
OIZ( MROL+2*, MROL+3*, MROL+9, MROL+10
OIZ("A" MROL+6
OIZ(0 MROL+4*
>> ON N1+3, N1+5, 3+1, 3+3, 57+1, 57+3, 58+2, 101+1, 101+3
>> OREND EDIT+9*
P N1+10, N1+15, IVDEA~
P("DO" 109+1, 109+4*
P("IVRM" 62+1, 62+2*
P("MR" 3+7, 3+14*, 3+18, CNT+1*
P("OT" N1+13, 3+20
P("PD" 101+5, 101+6*
P("RES" N1+3, 3+1, 57+1, 58+2, 101+1
P(6 1+1, N1+8*, N1+9, N1+10, N1+11*, N1+15*, IVDEA+19*, IVDEA+29*
P2ND EDIT+5~*, EDIT+6
PARENT EDIT+5~, EDIT+6*, EDIT+7
PDEA IVDEA+18*, IVDEA+19, IVDEA+20, IVDEA+26~, IVDEA+28*, IVDEA+29, IVDEA+30
PROVIEN IVDEA~, IVDEA+9, IVDEA+18, IVDEA+19*, IVDEA+28, IVDEA+29*
PSADCNT N1+1~
PSADIEN IVDEA+16~*, IVDEA+17, IVDEA+26~*, IVDEA+27
PSADOI IVDEA+16~, IVDEA+17*, IVDEA+18, IVDEA+26~, IVDEA+27*, IVDEA+28
>> PSDEA IVDEA+18*, IVDEA+20, IVDEA+28*, IVDEA+30
>> PSDEAFLG IVDEA+8*, IVDEA+19*, IVDEA+29*, IVDEA+32
PSGDI EDIT+12!
>> PSGORQF EDIT+10, EDIT+11, EDIT+14, 58+12, 58+14
>> PSGP EDIT+5, EDIT+7
>> PSGSI 66+1*
PSIALLFL EDIT+2~, 58+12*
>> PSIVAC EDIT+9, N1+13, 3+20, 57+5
>> PSIVDEA IVDEA+18*, IVDEA+28*
PSIVE EDIT+2~, EDIT+9*
PSIVEDIT EDIT+10!
PSIVENO EDIT+10*, EDIT+11!
PSIVOK EDIT+9*, EDIT+12!
PSIVSTR DKILL+1!
>> PSIVUP 66+1
PSJALLGY 58+9~, 58+10!, 58+13!
>> PSJBKDR N1+6, 3+4, 57+4, 101+4
PSJCMPFG 58+1~, 58+7*, 58+8, 58+15, 58+16!
>> PSJENHOC 57+13*, 58+15*
PSJFLG57 EDIT+2~, 57+13!, FF+2*
>> PSJFNDS CNT+1*, 10+2*, 25+2*
PSJOCCHK EDIT+10*, EDIT+11!, 57+13!, 58+15!
>> PSJOCFG CNT+1, 10+2, 25+2
>> PSJORD EDIT+4, EDIT+5, EDIT+7, N1+3, 3+1, 57+1, 58+2, 101+1
PSPROV N1+1~, N1+10*
RT 3+8~, 3+11*, 3+12*, 3+14*
RT( 3+11*, 3+12, 3+14
RT("" 3+14
RTCNT 3+8~, 3+12*, 3+13
SCHDCHK IVDEA+13~*
SOL 3+8~, 3+10*
>> SOLCNT IVDEA+24*, IVDEA+26
>> TDRG NEWDRG+1, NEWDRG+2
TMPDRG EDIT+2~, EDIT+3, EDIT+14, 57+11, 58+7, 58+8
U EDIT+9, N1+9, N1+10, N1+11, N1+15, 3+18, 3+21, CNT+1, 62+1, 62+2
, 101+5, 101+6, 109+1, FF+1, NEWDRG+1, NEWDRG+2, MRSL+1, MROL+8, MROL+10
X EDIT+5~, EDIT+9, N1+9*, N1+10*, N1+11, N1+12, N1+13, N1+15, 3+18*, 3+20
, 3+21, CNT+1, 57+14, 58+9~, 58+17, 62+2, 66+1, 101+5*, 101+6, 109+1*
, 109+2, 109+3, 109+4, FF+1*, NEWDRG+2*, MRSL+4*, MRSL+5*, CKMRSL+3*
Y EDIT+5~, EDIT+9, N1+15, CNT+1, 62+2, 66+1*, 101+6, FF+1*, FF+2, NEWDRG+2
, MRSL+3, MRSL+5, CKMRSL+2, CKMRSL+3
Y(0 N1+15, CNT+1
ZZ MROL+9~
ZZ( MROL+10*, MROL+11, MROL+12
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 |  Local Variables  | All