Routine: PSIVEDRG

Information

PSIVEDRG ;BIR/MLM-ENTER/EDIT DRUGS FOR IV ORDER ;29-May-2012 14:32;PLS

Source Information

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Inpatient Medications	8	(ENDDC,IVSOL)^PSGSICHK ENSTOP^PSIVCAL ORFLDS^PSIVEDT1 ENHLP^PSIVORC1 ^PSIVQUI ($$ENU,$$IVDRGSC)^PSIVUTL (DINIV,NFIV)^PSJDIN HOLDHDR^PSJOE
VA Fileman	4	^DIC YN^DICN FIELD^DID ^DIR
Outpatient Pharmacy	1	EN^PSOORDRG
Registration	1	($$UPPER,FULL)^VALM1

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Inpatient Medications	4	PSIVEDT PSIVEDT1 PSIVQUI PSJLIFN

Entry Points

Name	Comments	DBIA/ICR reference
DRG3	;
DRG2	;
DRG1	;
CHK	; Check if drug is already part of order
DRG4	;
GTSCRN(PSIVX)	;Set DIC("S") if MD OE or matching drug has already been selected.
GTADSOL	;If there're multiple ad/sol matched to an OI then display so user to select ad/sol
IT	; Input Transform for Strength/Volume.
SAVEDRG(NEW,OLD)	;Store/restore DRG array.
1	; Strength/Volume
ORDERCHK(DFN,ON,X)	; Do order check
2
DEL	;
DRG1A
ASKCHK	; Do you want a drug that was previously selected.
SETDRG	; Put Drug data into DRG(x).
AMT	;
DRG	; Edit Additive/Solution data

External References

Name	Field # of Occurrence
^DIC	DRG1A+5, DRG2+1
YN^DICN	ASKCHK+1, DEL+1
FIELD^DID	1+2
^DIR	2, GTADSOL+8
ENDDC^PSGSICHK	ORDERCHK+7
IVSOL^PSGSICHK	ORDERCHK+12
ENSTOP^PSIVCAL	ORDERCHK+14
ORFLDS^PSIVEDT1	DRG1A+2
ENHLP^PSIVORC1	IT+2
^PSIVQUI	DRG2+11, GTADSOL+23
$$ENU^PSIVUTL	DRG3+3, IT+3
$$IVDRGSC^PSIVUTL	GTSCRN+3
DINIV^PSJDIN	DRG2+9, DRG3+1, GTADSOL+22
NFIV^PSJDIN	DRG2+3, GTADSOL+18
HOLDHDR^PSJOE	GTSCRN+1
EN^PSOORDRG	ORDERCHK+9
$$UPPER^VALM1	CHK+2, CHK+3, CHK+4
FULL^VALM1	DRG1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select ",DRGTN,": " Line Location: DRG1+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: DRG1+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: DRG1A+0
Function Call: WRITE	Prompt: !,$P(DRG(DRGT,Y),U,2) Line Location: DRG1A+4
Function Call: WRITE	Prompt: !,"YOU MAY ENTER A NEW ",DRGTN,", IF YOU WISH",! Line Location: DRG1A+5
Function Call: WRITE	Prompt: PSJNF("NF") Line Location: DRG2+4
Function Call: WRITE	Prompt: !!,"(The units of strength for this additive are in ",$$ENU^PSIVUTL(DRG(1)),")" Line Location: DRG3+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: 1+1
Function Call: WRITE	Prompt: $C(7),$S(DRGT="AD":"Strength",1:"Volume")," is REQUIRED!" Line Location: 1+1
Function Call: WRITE	Prompt: $C(7) Line Location: IT+2
Function Call: WRITE	Prompt: " ",X Line Location: IT+3
Function Call: WRITE	Prompt: " ",X Line Location: IT+4
Function Call: WRITE	Prompt: $P($$UPPER^VALM1($P(DRG(DRGT,+TDRG),U,2)),$$UPPER^VALM1(X),2) Line Location: CHK+2
Function Call: WRITE	Prompt: " ",$P(I,U,3),$S($P(I,U,4):" ("_$P(I,U,4)_")",1:""),!,"...OK" Line Location: ASKCHK+1
Function Call: WRITE	Prompt: !,X Line Location: ASKCHK+3
Function Call: WRITE	Prompt: " <NOTHING DELETED>" Line Location: DEL+1
Function Call: WRITE	Prompt: " "_$P(PSIVOIND,U,2)_$S(PSIVOI="SOL":" "_$P(PSIVOIND,U,3),1:"") Line Location: GTADSOL+11
Function Call: WRITE	Prompt: PSJNF("NF") Line Location: GTADSOL+18
Routine Call	DIC Line Location: DRG1A+5 DRG2+1
Routine Call	DIR Line Location: 2 GTADSOL+8

Name	Line Occurrences (* Changed, ! Killed)
^PS(	DRG2+6, DRG3+3, ORDERCHK+6, CHK+3, CHK+4, GTADSOL+12
^PS(52.6 - [#52.6]	DRG2+11, GTADSOL+16

Label References

Name	Line Occurrences
1	1+1
2	1+1
AMT	1+2
ASKCHK	CHK+2, CHK+3
CHK	DRG1A+3
DEL	DRG1A+1
DRG1	DRG1A, DRG1A+1, DRG1A+2, DRG1A+3, DRG1A+5
DRG1A	DRG1A+1, DRG1A+3
DRG2	DRG1A+3
DRG3	DRG1A, GTADSOL+26
DRG4	AMT+1
GTADSOL	DRG1+5
GTSCRN	DRG1A+5, DRG2+1
IT	1+2
ORDERCHK	DRG2+8, GTADSOL+21, GTADSOL+24
SAVEDRG	ORDERCHK+4, ORDERCHK+13
SETDRG	DRG+2, DRG1A+1, DRG3+2, ASKCHK+2, GTADSOL+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DRG1A+1, DRG1A+3, ASKCHK+1, ASKCHK+2, DEL+1*
DA	GTSCRN+3!
DDONE	CHK+1~, CHK+3, ASKCHK+2*
DFN	DRG2+8, ORDERCHK~, ORDERCHK+6, ORDERCHK+7, ORDERCHK+9, ORDERCHK+11*, GTADSOL+21, GTADSOL+24
DIC	DRG1A+5!, DRG2+1!, GTSCRN+3!*
DIC("S"	GTSCRN+3, GTSCRN+4
DIC(0	DRG1A+5, DRG2+1
DIR	2!, GTADSOL+2~
DIR("?"	GTADSOL+4*
DIR("A"	GTADSOL+6, GTADSOL+7
DIR("B"	2*
DIR(0	2, GTADSOL+3
>> DONE	DRG1+6, DRG2+8, GTADSOL+21, GTADSOL+24
>> DRG	ORDERCHK+2, ORDERCHK+4, ORDERCHK+13
>> DRG(	DRG+2, DRG1A+1!, DRG1A+3, DRG1A+4, SETDRG+1, DRG2+10, DRG4+1, CHK+1, CHK+2, CHK+3 , CHK+4, ASKCHK+1, GTADSOL+13, GTADSOL+14, GTADSOL+19, GTADSOL+24
>> DRG(1	SETDRG+2, DRG3+1, DRG3+3, IT+3
>> DRG(2	DRG+2, DRG1+6, DRG1A, DRG1A+1, SETDRG+2, DRG3+1, DRG4+2*
>> DRG(3	1+1, 1+2*
>> DRG(4	2*
>> DRGI	DRG+2, DRG1A+1, SETDRG+1, DRG2+10, DRG4+1, ASKCHK+2, GTADSOL+15*
DRGOC	DRG+1~
DRGOC(	ORDERCHK+2*
>> DRGT	DRG+2, DRG1+5, DRG1A, DRG1A+1, DRG1A+3, DRG1A+4, SETDRG+1, DRG2+3, DRG2+6, DRG2+9 , DRG2+10, DRG2+11, DRG3+3, AMT+1, 1+1, 1+2, 2, DRG4+1, GTSCRN+4, IT+2 , IT+3, CHK+1, CHK+2, CHK+3, CHK+4, ASKCHK+1, GTADSOL+16, GTADSOL+19, GTADSOL+24
>> DRGTMP	DRG2+6, DRG2+9, DRG2+10, DRG2+11, ORDERCHK+5, ORDERCHK+6, GTADSOL+19, GTADSOL+22, GTADSOL+24*
>> DRGTN	DRG1+4, DRG1A, DRG1A+4, DRG1A+5
DTIME	DRG1+6, DRG1A, 1+1
>> DTOUT	2
DUOUT	DRG1+2!, 2
>> F1	IT+2*
>> F2	IT+2*
FIL	DRG3+1, DRG3+3, GTSCRN+3, ORDERCHK+6, ORDERCHK+7, ORDERCHK+8, CHK+3, CHK+4, GTADSOL+26~*
I	CHK+1~, ASKCHK+1*
INTERVEN	ORDERCHK+10~*
>> J	CHK+3*, CHK+4
ND	GTADSOL+2~, GTADSOL+12*, GTADSOL+14
NEW	SAVEDRG~, SAVEDRG+1*
NEW(	SAVEDRG+2, SAVEDRG+4, SAVEDRG+5*
OLD	SAVEDRG~, SAVEDRG+1
OLD(	SAVEDRG+2, SAVEDRG+4, SAVEDRG+5
ON	DRG2+7, ORDERCHK~, ORDERCHK+2, GTADSOL+20
ON55	DRG2+7~, DRG2+8, GTADSOL+20~, GTADSOL+21, GTADSOL+24
>> P("DTYP"	2
>> P("OT"	DRG1A+2, GTSCRN+4
>> P(23	AMT+1, 2
>> P(4	DRG1A, DRG1A+3, AMT+1, 2
PSGDRG	ORDERCHK+3~, ORDERCHK+6*, ORDERCHK+7, ORDERCHK+9
PSGDRGN	ORDERCHK+3~, ORDERCHK+5*
PSGORQF	DRG+1~, DRG1+1, DRG2+8, DRG2+11, GTADSOL+16, GTADSOL+21, GTADSOL+24
PSGP	ORDERCHK+3~, ORDERCHK+6*, ORDERCHK+11
>> PSIVAC	DRG1A+2, DRG2+11, GTSCRN+4
PSIVNEW	DRG2+6, ORDERCHK+3~, ORDERCHK+5
PSIVOI	DRG1+5, GTADSOL+4, GTADSOL+6, GTADSOL+11, GTADSOL+12, GTADSOL+13, GTADSOL+14, GTADSOL+25, GTADSOL+27!
PSIVOI("DILIST"	DRG1+5, GTADSOL+3, GTADSOL+5, GTADSOL+6, GTADSOL+7, GTADSOL+10, GTADSOL+16, GTADSOL+17, GTADSOL+24
PSIVOIND	GTADSOL+10~*, GTADSOL+11, GTADSOL+12, GTADSOL+14
PSIVOLD	DRG+2!, DRG2+10!, AMT+1, ASKCHK+2
>> PSIVSTR	DRG2+11, GTADSOL+16
PSIVX	DRG2+1~, DRG2+11, GTSCRN~, GTSCRN+1, GTSCRN+2, GTADSOL+17
PSJDD	ORDERCHK+3~, ORDERCHK+6*
PSJEX	1+2!
PSJEX("XECUTA	BLE HELP" , 1+2
PSJIREQ	ORDERCHK+10~*
>> PSJIVIEN	DRG2+2, DRG2+3, GTADSOL+17, GTADSOL+18
PSJNF	DRG2+3~, GTADSOL+18~
PSJNF("NF"	DRG2+4, GTADSOL+18
PSJPDRG	ORDERCHK+11!
PSJRXREQ	ORDERCHK+10~*
TDRG	CHK+1~*, CHK+2, CHK+3, CHK+4, ASKCHK+1, ASKCHK+2
TDRGP	CHK+1~, CHK+3*, CHK+4
TMPDRG	ORDERCHK+3~, ORDERCHK+4, ORDERCHK+13
U	DRG1+6, DRG1A+4, SETDRG+1, DRG2+6, DRG2+8, DRG3+3, DRG4+1, GTSCRN+4, ORDERCHK+5, ORDERCHK+6 , CHK+2, CHK+3, CHK+4, ASKCHK+1, GTADSOL+6, GTADSOL+11, GTADSOL+14, GTADSOL+16, GTADSOL+17, GTADSOL+21 , GTADSOL+24
X	DRG1+2, DRG1+6, DRG1A, DRG1A+1, DRG1A+2, DRG1A+3, DRG1A+5, SETDRG+1, SETDRG+2, DRG2+1 , DRG2+8, DRG3+3, 1+1, 1+2, DRG4+1, GTSCRN+2, IT+1, IT+2, IT+3!, IT+4! , IT+5, ORDERCHK~, ORDERCHK+2, ORDERCHK+3~, ORDERCHK+10, SAVEDRG+2, SAVEDRG+5, CHK+2, CHK+3, CHK+4 , ASKCHK+2, ASKCHK+3, DEL+1, GTADSOL+2~, GTADSOL+5, GTADSOL+6, GTADSOL+17, GTADSOL+21, GTADSOL+24*
X(1	GTSCRN+4*
XX	ORDERCHK+3~, SAVEDRG+3*, SAVEDRG+4, SAVEDRG+5
Y	DRG1A, DRG1A+3, DRG1A+4, DRG2+1, DRG2+2, DRG2+6, 2, ORDERCHK+3~, ORDERCHK+10, GTADSOL+2~ , GTADSOL+9, GTADSOL+10, GTADSOL+16, GTADSOL+17, GTADSOL+24
Y(0	DRG2+6

Customize PDF page

Package: Inpatient Medications

Routine: PSIVEDRG

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: