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

Package: Inpatient Medications

Routine: PSIVORFB


Information

PSIVORFB ;BIR/MLM - FILE/RETRIEVE ORDERS IN ^PS(55 ;Nov 2, 2021@12:53:00

Source Information

Source file <PSIVORFB.m>

Entry Points

Name Comments DBIA/ICR reference
NEW55 ; Get new order number in 55.
LOCK0
SET55 ; Move data from local variables to 55.
PUTD55 ; Move drug data from local array into 55
GT55 ; Retrieve data from 55 into local array
K ; Kill and exit.
GTDRG ; Get drug info and place in DRG(.
GTCUM ; Retrieve dispensing info.
GTPC(ON) ; Retrieve Provider Comments and create "scratch" fields to edit
SETNEW ; Create new order and set
CMPLIM(PSJORD,PSJDSTP1,PSJDSTP2) ; Compare stop date of order against IV Limit
LIMSTOP(PSJDSTP1,PSJDSTP2) ; Calculate default stop date using IV Limit
; Output: PSJDSTP1 - Default stop using duration only
; PSJDSTP2 - Default stop using duration and IV parameters for time
GETFRQ(PSJSKED) ;Get frequency using name of schedule
CHKD ;Check for a previous active order and compare the duration
CHKDR
LOGOPI(DFN,ON55) ; Log OPI activity into activity log

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"*** Can't create this order at this time ***"
  • Line Location: SET55+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(55 - [#55] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call