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

Package: Inpatient Medications

Routine: PSIVORFB


Information

PSIVORFB ;BIR/MLM - FILE/RETRIEVE ORDERS IN ^PS(55 ;25 Sep 98 / 2:24 PM

Source Information

Source file <PSIVORFB.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Inpatient Medications 10 ENSET0^PSGNE3  ENTACT^PSIVAL  ($$GETLIM,$$GETMIN)^PSIVCAL  (GTFC,LOG)^PSIVORAL  ENCHK^PSIVSET  GTOT^PSIVUTL  ($$DIFFAR,$$GETOPI,FILEOPI,GETOPI,KILL)^PSJBCMA5  EN1^PSJHL2  
($$FMTDUR,$$GETDUR)^PSJLIVMD  $$OIDF^PSJLMUT1  
VA FileMan 4 NOW^%DTC  %XY^%RCR  ^DIC  IX^DIK  
Kernel 2 $$FMADD^XLFDT  SETUP^XQALERT  
Pharmacy Benefits Management 1 LOGDFN^PSUHL  

Caller Graph

Caller Graph Total: 39

Package Total Caller Graph
Inpatient Medications 39 PSGAPIV  PSGCAPIV  PSGMIV  PSGMMIV  PSGMMIVC  PSIVOD  PSIVOPT  PSIVOPT1  
PSIVOPT2  PSIVORA1  PSIVORC2  PSIVORE  PSIVOREN  PSIVORV2  PSIVPGE  PSIVRD  
PSIVRP  PSIVUTL  PSIVUTL1  PSIVUWL  PSJBCMA2  PSJCLOR2  PSJCOM1  PSJCOMR  
PSJEXP  PSJEXP0  PSJHIS  PSJHL10  PSJLIACT  PSJLIORD  PSJLIPRF  PSJLMPRI  
PSJLMUT1  PSJMIV  PSJOEA  PSJOEA2  PSJORMA2  PSJPDV0  PSJPDV1  

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

External References

Name Field # of Occurrence
NOW^%DTC NEW55+12
%XY^%RCR SET55+34
^DIC NEW55+25
IX^DIK SET55+36
ENSET0^PSGNE3 NEW55+3
ENTACT^PSIVAL SET55+41
$$GETLIM^PSIVCAL LIMSTOP+3, CHKD+2, CHKDR+2
$$GETMIN^PSIVCAL LIMSTOP+4, LIMSTOP+6
GTFC^PSIVORAL SET55+42
LOG^PSIVORAL LOCK0+6, LOGOPI+8
ENCHK^PSIVSET NEW55+6
GTOT^PSIVUTL GT55+12
$$DIFFAR^PSJBCMA5 LOGOPI+4, LOGOPI+7
$$GETOPI^PSJBCMA5 LOCK0+11, LOCK0+12, LOCK0+13, SET55+28
FILEOPI^PSJBCMA5 LOCK0+11, LOCK0+12, LOCK0+13, SET55+31
GETOPI^PSJBCMA5 LOCK0+9
KILL^PSJBCMA5 NEW55+2
EN1^PSJHL2 SET55+43
$$FMTDUR^PSJLIVMD NEW55+24
$$GETDUR^PSJLIVMD SET55+8
$$OIDF^PSJLMUT1 GT55+9
LOGDFN^PSUHL SET55+23
$$FMADD^XLFDT LIMSTOP+6
SETUP^XQALERT NEW55+23

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] NEW55+17
^PS( GTDRG+3
^PS(50.7 - [#50.7] NEW55+21, GT55+9
^PS(51.1 - [#51.1] GETFRQ+3, GETFRQ+4
^PS(51.2 - [#51.2] GT55+11
^PS(53.1 - [#53.1] NEW55+10, NEW55+14, NEW55+24, LOCK0+7*, CMPLIM+1, CHKDR
^PS(53.45 - [#53.45] LOCK0+10, SET55+28, SET55+29, SET55+30, LOGOPI+4, LOGOPI+7
^PS(55 - [#55] NEW55+3, NEW55+11, NEW55+15, NEW55+24, LOCK0LOCK0+1*, LOCK0+2, LOCK0+3*, LOCK0+4, LOCK0+7*
SET55+12*, SET55+21*, SET55+22*, SET55+23, SET55+24*, SET55+25*, SET55+26*, SET55+27*, SET55+37, SET55+38
SET55+42, SET55+43*, SET55+44*, PUTD55+1!*, PUTD55+3, PUTD55+4*, GT55+1, GT55+3, GT55+4, GT55+5
GT55+6, GT55+7, GT55+9, GT55+13, GTDRG+1, GTCUM+1, LOGOPI+4, LOGOPI+6, LOGOPI+7, LOGOPI+8
^PS(59.5 - [#59.5] GT55+4, GT55+10
^SC - [#44] NEW55+16
^TMP("PSJOPI" SET55+30*, SET55+31!, SET55+44, SET55+45!
^VA(200 - [#200] GT55+3, GT55+5

Label References

Name Line Occurrences
$$CMPLIM NEW55+8
$$GETFRQ SET55+21
CHKD CMPLIM+1
CHKDR CHKDR+1, CHKDR+3
GTCUM GT55+11
GTDRG GT55+12
GTPC GT55+9
LIMSTOP NEW55+7
LOCK0 LOCK0+2
NEW55 SETNEW+1
PUTD55 SET55+35
SET55 SETNEW+1

Naked Globals

Name Field # of Occurrence
^( NEW55+17, GTDRG+3
^(0 LOCK0+1, SET55+23*
^(2 SET55+22*
^(3 SET55+42

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NEW55+12
>> %X SET55+34*
>> %Y SET55+34*
A NEW55+1~, NEW55+14*, NEW55+15*, NEW55+16, NEW55+17*, NEW55+18, NEW55+19*, NEW55+20*, NEW55+21, CHKD+1~
DA NEW55+1~, LOCK0+1*, LOCK0+2, LOCK0+3, LOCK0+4, LOCK0+9, SET55+2~, SET55+36!*, SET55+40!
DA(1 SET55+36*, SET55+40*
DD NEW55+1~
DFN NEW55+3, NEW55+11, NEW55+12, NEW55+17, NEW55+24, NEW55+25, LOCK0LOCK0+1, LOCK0+2, LOCK0+3
LOCK0+4, LOCK0+7, LOCK0+9, LOCK0+11, LOCK0+12, LOCK0+13, SET55+8, SET55+12, SET55+21, SET55+22
SET55+23, SET55+24, SET55+25, SET55+26, SET55+27, SET55+28, SET55+31, SET55+34, SET55+36, SET55+40
SET55+42, SET55+43, SET55+44, PUTD55+1, PUTD55+3, PUTD55+4, GT55+1, GT55+3, GT55+4, GT55+5
GT55+6, GT55+7, GT55+9, GT55+13, GTDRG+1, GTCUM+1, LIMSTOP+3, LIMSTOP+4, LIMSTOP+6, CHKD+2
CHKDR+2, LOGOPI~, LOGOPI+4, LOGOPI+6, LOGOPI+7, LOGOPI+8
DIC NEW55+1~, NEW55+25*
DIC(0 NEW55+25*
DIE SET55+40!
DIK SET55+2~, SET55+36!*
DILOCKTM LOCK0LOCK0+2
>> DINUM NEW55+25*
DLAYGO NEW55+1~, NEW55+25*
DO NEW55+1~
DR SET55+40!*
DRG PUTD55+3*, PUTD55+4, GT55+1!, GT55+3*, GTDRG+3*, GTDRG+4
DRG( PUTD55+2, PUTD55+4, GTDRG+3*, GTDRG+4*
DRG("AD" NEW55+19
DRG("SOL" NEW55+20
>> DRGI GTDRG+3*, GTDRG+4
DRGN GT55+1!, GT55+3*
>> DRGT SET55+35*, PUTD55+1, PUTD55+2, PUTD55+3, PUTD55+4, GTDRG+1*, GTDRG+3, GTDRG+4
DUZ NEW55+10, LOCK0+10, SET55+41
FIL K+1!, GTDRG+1*, GTDRG+3
IVLIM LOCK0+6!
IVLIMIT LOCK0+6!, SET55+9!
MINS NEW55+1~, LIMSTOP+6*
ND LOCK0+1*, SET55+2~, GT55+9*, GT55+11*, K+1!, GTDRG+3*, GTDRG+4, GTCUM+1*
ND( SET55+6*, SET55+9*, SET55+11*, SET55+12
ND(0 SET55+5*, SET55+11*, SET55+17, SET55+18, SET55+19, SET55+20, SET55+21
ND(1 SET55+11*
ND(3 SET55+11*
ND2P5 GT55+13~*, GT55+14, GT55+15, GT55+16
>> OLDON LOCK0+9
ON SET55+6, SET55+41~*, GT55+1, GTPC~
ON55 LOCK0+4*, LOCK0+7, LOCK0+12, LOCK0+13, SET55+1, SET55+5, SET55+12, SET55+21, SET55+22, SET55+24
SET55+25, SET55+26, SET55+27, SET55+31, SET55+32, SET55+34, SET55+36, SET55+41~*, SET55+42, SET55+43
SET55+44, PUTD55+1, PUTD55+3, PUTD55+4, GT55+1*, GT55+3, GT55+4, GT55+5, GT55+6, GT55+7
GT55+9, GT55+13, GTDRG+1, GTCUM+1, LOGOPI~, LOGOPI+2, LOGOPI+3, LOGOPI+6, LOGOPI+7, LOGOPI+8
ORD SET55+40!
P GT55+1!
P( SET55+5, GT55+1*
P("21FLG" SET55+5*, GT55+2*
P("APPT" SET55+26, GT55+7*
P("CLIN" SET55+25, GT55+7*
P("CLRK" SET55+24, GT55+5*
P("CUM" GTCUM+1*
P("DO" SET55+10*, SET55+11, GT55+9*
P("DTYP" SET55+10, GT55+8*
P("DUR" GT55+14*
P("FC" SET55+42*, LOGOPI+8*
P("FRES" SET55+22, GT55+5*
P("INS" SET55+6, GT55+6*
P("IVCAT" SET55+17, GT55+16*
P("IVRM" NEW55+6, SET55+22, GT55+4*, GT55+10*
P("LF" GTCUM+1*
P("LFA" GTCUM+1*
P("LIMIT" LOCK0+6*, GT55+15*
P("LOG" SET55+22, SET55+23, GT55+4*
P("MR" SET55+11, GT55+11*
P("NAT" SET55+11, GT55+9*
P("NEWON" LOCK0+11, SET55+28
P("NINIT" SET55+27
P("NINITDT" SET55+27
P("OPI" SET55+11, SET55+40, SET55+42, SET55+43, GT55+5*, LOGOPI+8
P("OVRIDE" LOCK0+6*
P("PD" SET55+11, GT55+9*
P("PON" LOCK0+12, SET55+32, SET55+33, GT55+3*, LOGOPI+3, LOGOPI+4
P("PRNTON" SET55+11, GT55+9*
P("PRY" SET55+11, GT55+9*, GT55+10
P("REM" SET55+11, GT55+3*
P("REN" GT55+1*
P("RES" SET55+22, GT55+5*
P("SYRS" SET55+22, GT55+5*
P(15 SET55+3*, SET55+4*, SET55+21
P(2 NEW55+5, LIMSTOP+6
P(21 SET55+5*, GT55+2, GT55+3
P(22 SET55+5*
P(23 GT55+8
P(3 CMPLIM+2
P(4 GT55+8, GT55+12
P(5 GT55+8
P(6 GT55+3*
P(9 SET55+3
PKG SET55+7~*
>> PSGORD SET55+6
>> PSGP NEW55+15
>> PSGS0XT SET55+3*, SET55+4, SET55+21
>> PSIVAC NEW55+2
PSIVACT SET55+2~, SET55+36*
PSIVAL LOCK0+5*, LOCK0+8!, SET55+41*
PSIVALCK LOGOPI+6~, LOGOPI+8*
PSIVALT LOCK0+5*, LOCK0+8!, SET55+41*
>> PSIVCHG SET55+32
>> PSIVCOPY LOCK0+9
PSIVDUR SET55+2~, SET55+8*, SET55+9
PSIVLIM NEW55+1~, NEW55+8, LIMSTOP+3*, LIMSTOP+4*, LIMSTOP+5, LIMSTOP+6, CHKDR+2*
PSIVLN LOGOPI+6~*
PSIVLSTA LOGOPI+6~
PSIVRA LOGOPI+6~
PSIVREA LOCK0+5*, LOCK0+8!, LOGOPI+8*
>> PSIVSITE NEW55+6, LIMSTOP+7
>> PSIVSN NEW55+6*, GT55+10
PSJALRT NEW55+1~, NEW55+24*, LOCK0+5
PSJARRY1 LOGOPI+4!*, LOGOPI+7!*, LOGOPI+9!
PSJARRY2 LOGOPI+4!*, LOGOPI+7!*, LOGOPI+9!
PSJCHILD SET55+37~, SET55+38~*, SET55+39*, SET55+40, SET55+41
PSJCHILD( SET55+38*, SET55+39
PSJCLIN NEW55+1~, NEW55+16*, NEW55+18
PSJCNTX GETFRQ+2*, GETFRQ+3*, GETFRQ+4, GETFRQ+5!
>> PSJCOM SET55+30, SET55+37, SET55+38, GT55+9*
PSJCOMSI SET55+30, SET55+37!
PSJDNM NEW55+1~, NEW55+21*, NEW55+22
PSJDSTP1 NEW55+1~, NEW55+7, NEW55+8, CMPLIM~, CMPLIM+2, LIMSTOP~, LIMSTOP+6*, LIMSTOP+7
PSJDSTP2 NEW55+1~, NEW55+7, NEW55+8, CMPLIM~, CMPLIM+2, LIMSTOP~, LIMSTOP+7*
PSJDUR CHKD+1~, CHKD+2*, CHKDR+2
PSJFRQ SET55+21!, GETFRQ+2*, GETFRQ+3, GETFRQ+4*, GETFRQ+6
>> PSJLABEL GT55+9
PSJNVO LOCK0+11~*, LOCK0+12*
PSJOEORD SET55+37~*, SET55+38
PSJORD NEW55+5, NEW55+8, NEW55+10, NEW55+11, NEW55+14, NEW55+15, NEW55+24, LOCK0+7, SET55+30, SET55+37
SET55+40, CMPLIM~, CMPLIM+1, LIMSTOP+3, LIMSTOP+4, LIMSTOP+6, CHKD+2, CHKD+3
>> PSJORIFN GT55+3*
PSJPAO NEW55+1~, CMPLIM+1, CHKD+3*, CHKDR+2*
PSJPICHK LOGOPI+1~, LOGOPI+4*, LOGOPI+5
>> PSJPINIT SET55+41*
PSJPO CHKD+1~, CHKD+3*, CHKDR*, CHKDR+1, CHKDR+2
PSJPROV NEW55+1~, NEW55+10*, NEW55+11*, NEW55+12
>> PSJREN SET55+32, SET55+33
PSJSKED SET55+21!, GETFRQ~, GETFRQ+1!, GETFRQ+3
>> PSJSYSP NEW55+2, SET55+28, SET55+29, SET55+30, LOGOPI+4, LOGOPI+7
PSJTROPI LOCK0+11~*, LOCK0+12*, LOCK0+13*, SET55+2~, SET55+28*
PSJTROPL SET55+2~, SET55+28*
PSJWARD NEW55+1~, NEW55+17*, NEW55+18
U SET55+5, SET55+11, SET55+17, SET55+18, SET55+19, SET55+20, SET55+21, SET55+22, SET55+24, SET55+27
SET55+42, PUTD55+3, PUTD55+4, GT55+1, GT55+3, GT55+4, GT55+5, GT55+9, GT55+10, GT55+11
GTDRG+4, GTCUM+1, GETFRQ+4, LOGOPI+8
>> VAIN(4 SET55+5, SET55+22
X NEW55+1~, NEW55+25*, SET55+5*, SET55+6~*, SET55+7, SET55+8, SET55+12*, SET55+23*, SET55+33~*, SET55+34
PUTD55+2*, PUTD55+4, GT55+1*, LIMSTOP+7*
>> XQA( NEW55+12*
>> XQADATA NEW55+12*
>> XQAID NEW55+12*
>> XQAMSG NEW55+18*, NEW55+22*
Y NEW55+1~, NEW55+25, PUTD55+3*, PUTD55+4*, GT55+1*, GT55+4*, GT55+5, GTDRG+1*, GTDRG+3
>> ZZND SET55+3*, SET55+4, SET55+21
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