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

Package: Inpatient Medications

Routine: PSIVORC1


Information

PSIVORC1 ;BIR/MLM - PROCESS INCOMPLETE IV ORDER - CONT ;13 Jan 98 11:36 AM

Source Information

Source file <PSIVORC1.m>

Entry Points

Name Comments DBIA/ICR reference
53 ; IV Type
OTYP ; Get order type, display type.
C ; Edit Chemo order
S ; Edit Syringe order
56 ; Intermittent Syringe
55 ; Syringe Size
DIRQ ; Set DIR("?") for IV Type prompt.
CKFLDS ; Find required fields missing data.
DONE ; Kill variables and exit
ENHLP ; order entry fields' help
SC ;
COMPLTE ;
EDIT ;
EDIT1 ;
59 ; Infusion Rate
PSBPOIV ; Invalid IV bags based on BCMA IV parameters
SETNML55 ; Set NUMBER OF LABELS into ^PS(55,DFN,"IV",+ON55,0
; Added to PROTOCOL PSJI LM VERIFY after call to VF^PSJLIACT
; Made necessary by 11th hour code conflicts caused by MOCHA 2.0
SETNL531 ; Set NUMBER OF LABELS into ^PS(53.1,+PSGORD,8
; Added to PROTOCOL PSJI LM VERIFY after call to VF^PSJLIACT
; Made necessary by 11th hour code conflicts caused by MOCHA 2.0

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"PLEASE NOTE: This order's admin times (",PSGAT,")"
  • Line Location: 53+9
Function Call: WRITE
  • Prompt: !
  • Line Location: 53+12
Function Call: WRITE
  • Prompt: !?5
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: !?5
  • Condition for execution: $L(F3)+$X>78
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: F3_" "
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: !?2,PSJD("DESCRIPTION",F)
  • Line Location: ENHLP+10
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM:",!?8,0,?16,"NO",!?8,1,?16,"YES"
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: $C(7),!,"Order Unchanged.",!
  • Line Location: COMPLTE+2
Function Call: WRITE
  • Prompt: !!,"*** One or more Additives has an invalid value for the bottle number(s).",!
  • Line Location: COMPLTE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: COMPLTE+14
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: COMPLTE+15
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),?30," Stop date: "
  • Line Location: COMPLTE+15
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),?30," Stop date: "
  • Line Location: COMPLTE+15
Function Call: WRITE
  • Prompt: !,"Please re-edit this order"
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt:
  • Condition for execution: 'Y $C(7),"order unchanged." Q:'Y
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: $C(7),"Order unchanged."
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !!?5,"This is a Renewal Order. Infusion Rate may not be edited at this point."
  • Line Location: 59+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 59+4
Function Call: WRITE
  • Prompt: $C(7),!!,"An infusion rate must be entered!"
  • Line Location: 59+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(51.1 - [#51.1] FIND^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call