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

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")

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.6 - [#52.6] GET1^DIQ
^PS(52.7 - [#52.7] GET1^DIQ
^PS(53.1 - [#53.1] CHK^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call