Routine: PSIVORFB

Package	Total	Call Graph
Inpatient Medications	9	ENSET0^PSGNE3 ENTACT^PSIVAL ($$GETLIM,$$GETMIN)^PSIVCAL (GTFC,LOG)^PSIVORAL ENCHK^PSIVSET GTOT^PSIVUTL 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	37	PSGAPIV PSGCAPIV PSGMIV PSGMMIV PSGMMIVC PSIVOD PSIVOPT PSIVOPT1 PSIVOPT2 PSIVORA1 PSIVORC2 PSIVORE PSIVOREN PSIVORV2 PSIVPGE PSIVRD PSIVRP PSIVUTL PSIVUTL1 PSIVUWL PSJCOM1 PSJCOMR PSJEXP PSJEXP0 PSJHIS PSJHL10 PSJLIACT PSJLIORD PSJLIPRF PSJLMPRI PSJLMUT1 PSJMIV PSJOEA PSJOEA2 PSJORMA2 PSJPDV0 PSJPDV1

Name	Comments	DBIA/ICR reference
CMPLIM(PSJORD,PSJDSTP1,PSJDSTP2)	; Compare stop date of order against IV Limit
NEW55	; Get new order number in 55.
CHKDR
GETFRQ(PSJSKED)	;Get frequency using name of schedule
K	; Kill and exit.
GTCUM	; Retrieve dispensing info.
PUTD55	; Move drug data from local array into 55
OFFSET	; IHS/MSC/PB - 4/25/12 - Added to get the minimum offset value for setting expiration date on IV labels ; needs DRG array set in PSIVORFA. Piece 7 has the offset value for the solution or additive
SET55	; Move data from local variables to 55.
LOCK0
GT55	; Retrieve data from 55 into local array
GTDRG	; Get drug info and place in DRG(.
CHKD	;Check for a previous active order and compare the duration
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
SETNEW	; Create new order and set
GTPC(ON)	; Retrieve Provider Comments and create "scratch" fields to edit

Name	Field # of Occurrence
NOW^%DTC	NEW55+11
%XY^%RCR	SET55+29
^DIC	NEW55+26
IX^DIK	SET55+31
ENSET0^PSGNE3	NEW55+2
ENTACT^PSIVAL	SET55+36
$$GETLIM^PSIVCAL	LIMSTOP+3, CHKD+2, CHKDR+2
$$GETMIN^PSIVCAL	LIMSTOP+4, LIMSTOP+6
GTFC^PSIVORAL	SET55+37
LOG^PSIVORAL	LOCK0+6
ENCHK^PSIVSET	NEW55+5
GTOT^PSIVUTL	GT55+12
EN1^PSJHL2	SET55+38
$$FMTDUR^PSJLIVMD	NEW55+23
$$GETDUR^PSJLIVMD	SET55+6
$$OIDF^PSJLMUT1	GT55+9
LOGDFN^PSUHL	SET55+20
$$FMADD^XLFDT	LIMSTOP+6
SETUP^XQALERT	NEW55+22

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+26

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

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	NEW55+16
^PS(	GTDRG+3, GTDRG+6
^PS(50.7 - [#50.7]	NEW55+20, GT55+9
^PS(51.1 - [#51.1]	GETFRQ+3, GETFRQ+4
^PS(51.2 - [#51.2]	GT55+11
^PS(53.1 - [#53.1]	NEW55+9, NEW55+13, NEW55+23, LOCK0+7*, CMPLIM+1, CHKDR
^PS(55 - [#55]	NEW55+2, NEW55+10, NEW55+14, NEW55+23, LOCK0, LOCK0+1, LOCK0+2, LOCK0+3, LOCK0+4, LOCK0+7* , SET55+9, SET55+18, SET55+19, SET55+20, SET55+21, SET55+22, SET55+23, SET55+24, SET55+26, SET55+32 , SET55+33, SET55+37, SET55+38, 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
^PS(59.5 - [#59.5]	GT55+4, GT55+10
^SC - [#44]	NEW55+15
^VA(200 - [#200]	GT55+3, GT55+5

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

Name	Field # of Occurrence
^(	NEW55+16, GTDRG+3
^(0	LOCK0+1, SET55+20*
^(2	SET55+19*
^(3	SET55+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Inpatient Medications

Routine: PSIVORFB

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 37

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: