Routine: PSIVORFB

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

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

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

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

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

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

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	NEW55+17
^PS(	GTDRG+3
^PS(50.7 - [#50.7]	NEW55+21, GT55+10
^PS(51.1 - [#51.1]	GETFRQ+3, GETFRQ+4
^PS(51.2 - [#51.2]	GT55+12
^PS(53.1 - [#53.1]	NEW55+10, NEW55+14, NEW55+24, LOCK0+7*, CMPLIM+1, CHKDR
^PS(53.45 - [#53.45]	LOCK0+10, SET55+29, SET55+30, SET55+31, LOGOPI+4, LOGOPI+7
^PS(55 - [#55]	NEW55+3, NEW55+11, NEW55+15, NEW55+24, LOCK0, LOCK0+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+28, SET55+38 , SET55+39, SET55+43, SET55+44!, SET55+45, SET55+46, PUTD55+1!, PUTD55+3, PUTD55+4, GT55+1, GT55+3 , GT55+4, GT55+5, GT55+6, GT55+7, GT55+8, GT55+10, GT55+14, GTDRG+1, GTCUM+1, LOGOPI+4 , LOGOPI+6, LOGOPI+7, LOGOPI+8
^PS(59.5 - [#59.5]	GT55+4, GT55+11
^SC - [#44]	NEW55+16
^TMP("PSJOPI"	SET55+31*, SET55+45, SET55+47!
^VA(200 - [#200]	GT55+3, GT55+5

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

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NEW55+12
>> %X	SET55+35*
>> %Y	SET55+35*
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+37!, SET55+41!
DA(1	SET55+37, SET55+41
DD	NEW55+1~
DFN	NEW55+3, NEW55+11, NEW55+12, NEW55+17, NEW55+24, NEW55+25, LOCK0, LOCK0+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+29, SET55+32, SET55+35, SET55+37 , SET55+41, SET55+43, SET55+44, SET55+45, SET55+46, PUTD55+1, PUTD55+3, PUTD55+4, GT55+1, GT55+3 , GT55+4, GT55+5, GT55+6, GT55+7, GT55+8, GT55+10, GT55+14, 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+41!
DIK	SET55+2~, SET55+37!*
>> DILOCKTM	LOCK0, LOCK0+2
>> DINUM	NEW55+25*
DLAYGO	NEW55+1~, NEW55+25*
DO	NEW55+1~
DR	SET55+41!*
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+36, PUTD55+1, PUTD55+2, PUTD55+3, PUTD55+4, GTDRG+1, GTDRG+3, GTDRG+4
DUZ	NEW55+10, LOCK0+10, SET55+42
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+10, GT55+12, 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+14~*, GT55+15, GT55+16, GT55+17
>> OLDON	LOCK0+9
ON	SET55+6, SET55+42~*, 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+28, SET55+32, SET55+33, SET55+35, SET55+37, SET55+42~, SET55+43 , SET55+44, SET55+45, SET55+46, PUTD55+1, PUTD55+3, PUTD55+4, GT55+1*, GT55+3, GT55+4, GT55+5 , GT55+6, GT55+7, GT55+8, GT55+10, GT55+14, GTDRG+1, GTCUM+1, LOGOPI~, LOGOPI+2, LOGOPI+3 , LOGOPI+6, LOGOPI+7, LOGOPI+8
ORD	SET55+41!
P	GT55+1!
P(	SET55+5, GT55+1*
P("21FLG"	SET55+5, GT55+2
P("APPT"	SET55+26, GT55+8*
P("CLIN"	SET55+25, GT55+8*
P("CLRK"	SET55+24, GT55+5*
P("CUM"	GTCUM+1*
P("DO"	SET55+10, SET55+11, GT55+10
P("DTYP"	SET55+10, GT55+9*
P("DUR"	GT55+15*
P("FC"	SET55+43, LOGOPI+8
P("FRES"	SET55+22, GT55+5*
P("IND"	SET55+28, GT55+7*
P("INS"	SET55+6, GT55+6*
P("IVCAT"	SET55+17, GT55+17*
P("IVRM"	NEW55+6, SET55+22, GT55+4, GT55+11
P("LF"	GTCUM+1*
P("LFA"	GTCUM+1*
P("LIMIT"	LOCK0+6, GT55+16
P("LOG"	SET55+22, SET55+23, GT55+4*
P("MR"	SET55+11, GT55+12*
P("NAT"	SET55+11, GT55+10*
P("NEWON"	LOCK0+11, SET55+29
P("NINIT"	SET55+27
P("NINITDT"	SET55+27
P("OPI"	SET55+11, SET55+41, SET55+43, SET55+46, GT55+5*, LOGOPI+8
P("OVRIDE"	LOCK0+6*
P("PD"	SET55+11, GT55+10*
P("PON"	LOCK0+12, SET55+33, SET55+34, GT55+3*, LOGOPI+3, LOGOPI+4
P("PRNTON"	SET55+11, GT55+10*
P("PRY"	SET55+11, GT55+10*, GT55+11
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+9
P(3	CMPLIM+2
P(4	GT55+9, GT55+13
P(5	GT55+9
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+37*
PSIVAL	LOCK0+5, LOCK0+8!, SET55+42
PSIVALCK	LOGOPI+6~, LOGOPI+8*
PSIVALT	LOCK0+5, LOCK0+8!, SET55+42
>> PSIVCHG	SET55+33
>> 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+11
PSJALRT	NEW55+1~, NEW55+24*, LOCK0+5
PSJARRY1	LOGOPI+4!, LOGOPI+7!, LOGOPI+9!
PSJARRY2	LOGOPI+4!, LOGOPI+7!, LOGOPI+9!
PSJCHILD	SET55+38~, SET55+39~, SET55+40, SET55+41, SET55+42
PSJCHILD(	SET55+39*, SET55+40
PSJCLIN	NEW55+1~, NEW55+16*, NEW55+18
PSJCNTX	GETFRQ+2, GETFRQ+3, GETFRQ+4, GETFRQ+5!
>> PSJCOM	SET55+31, SET55+38, SET55+39, GT55+10*
PSJCOMSI	SET55+31, SET55+38!
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+10
PSJNVO	LOCK0+11~, LOCK0+12
PSJOEORD	SET55+38~*, SET55+39
PSJORD	NEW55+5, NEW55+8, NEW55+10, NEW55+11, NEW55+14, NEW55+15, NEW55+24, LOCK0+7, SET55+31, SET55+38 , SET55+41, 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+42*
PSJPO	CHKD+1~, CHKD+3, CHKDR, CHKDR+1, CHKDR+2
PSJPROV	NEW55+1~, NEW55+10, NEW55+11, NEW55+12
>> PSJREN	SET55+33, SET55+34
PSJSKED	SET55+21!, GETFRQ~, GETFRQ+1!, GETFRQ+3
>> PSJSYSP	NEW55+2, SET55+29, SET55+30, SET55+31, LOGOPI+4, LOGOPI+7
PSJTROPI	LOCK0+11~, LOCK0+12, LOCK0+13, SET55+2~, SET55+29
PSJTROPL	SET55+2~, SET55+29*
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+43, PUTD55+3, PUTD55+4, GT55+1, GT55+3, GT55+4, GT55+5, GT55+10, GT55+11, GT55+12 , 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+34~, SET55+35 , 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

Customize PDF page

Package: Inpatient Medications

Routine: PSIVORFB

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 39

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: