Routine: PSIV

Information

PSIV ;BIR/PR,MLM-MISC UTILITIES ;29-May-2012 14:32;PLS

Source Information

Source file <PSIV.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Inpatient Medications	8	(ENASR,ENCHK)^PSGON ENNB^PSIVACT ORDNO^PSIVRD $$ENU^PSIVUTL ENBOTH^PSJAC EN^PSJDPT EN^PSJLIPRF $$ENORL^PSJUTL
VA Fileman	4	NOW^%DTC ^DIC ^DIE ^DIR
Registration	2	EN^VALM FULL^VALM1
IHS Changes To Pharmacy	1	SETPTCX^APSPFUNC
Pharmacy Data Management	1	($$L,$$LS,UL,UNL)^PSSLOCK

Caller Graph

Caller Graph Total: 26

Package	Total	Caller Graph
Inpatient Medications	22	ADDITIVE ELECTROLYTES PSIVDRG PSIVLBDL PSIVOD PSIVOPT2 PSIVORC PSIVORE PSIVORE1 PSIVPR PSIVRD PSIVRNL PSIVRQ1 PSIVSUS1 PSIVUWL PSIVWL1 PSJCOMR PSJI DELETE ORDER PSJI INDIVIDUAL SUSPENSE PSJI LBLI PSJI PROFILE SOLUTION
Outpatient Pharmacy	2	ADDITIVE SOLUTION
Pharmacy Data Management	2	PSSVIDRG ^PS(52.6

Entry Points

Name	Comments	DBIA/ICR reference
GETP1	;
SELSO	;SELECT ORDER USING "SO" OPTION
ENC	;Get unit of measure for drug seleted.
ENYN	;Enter here for yes/no responses. This is a general reader that I have
OV	;
OE
ENADM	;Edit administration schedules.
Q	;
ENQ	;Enter here to read X. This is the general reader that I have	ICR #2155 Status: Active Usage: Private
OV1	;
KILL
ENCHS	;Needs PSIVBR (Branch point)
ENCHS1	;
ENOW
VAR
PAT
ENGETP	;Enter here to select patient.
SELNUM	;SELECT ORDERS WITH NUMBERS
ENU	;Get IV additive strength. Called from templates.

External References

Name	Field # of Occurrence
NOW^%DTC	ENOW
SETPTCX^APSPFUNC	ENCHS1+3
^DIC	ENADM+1
^DIE	ENADM+1
^DIR	ENCHS1+11
ENASR^PSGON	SELSO+1
ENCHK^PSGON	SELNUM+1
ENNB^PSIVACT	ENCHS1+10
ORDNO^PSIVRD	ENCHS1+6
$$ENU^PSIVUTL	ENU+1
ENBOTH^PSJAC	GETP1+4
EN^PSJDPT	GETP1+2
EN^PSJLIPRF	OV1+4
$$ENORL^PSJUTL	GETP1+4
$$L^PSSLOCK	ENCHS+4
$$LS^PSSLOCK	OV1+6
UL^PSSLOCK	ENCHS1+20
UNL^PSSLOCK	OV1+8
EN^VALM	ENCHS1+4, ENCHS1+14
FULL^VALM1	ENGETP+2, ENCHS1+11

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: QUX Line Location: ENQ+2
Function Call: WRITE	Prompt: !!,$P(X,"^")," " Line Location: ENQ+2
Function Call: WRITE	Prompt: QUD,"// " Condition for execution: QUD]"" Line Location: ENQ+2
Function Call: WRITE	Prompt: QUX="^" Condition for execution: '$T $C(7) S:'$T Line Location: ENQ+2
Function Call: WRITE	Prompt: " ??" Line Location: ENQ+3
Function Call: WRITE	Prompt: " ",QUX1 Line Location: ENQ+5
Function Call: WRITE	Prompt: $S($P(X,"^",2)=QUX:" "_QUX,1:"")_$P(QUD,QUX,2,99) Line Location: VAR+0
Function Call: WRITE	Prompt: $C(7)," ???" Line Location: PAT+1
Function Call: WRITE	Prompt: !!,?30,"NO ORDERS FOUND",! Line Location: ENCHS1+11
Function Call: WRITE	Prompt: @IOF Line Location: ENCHS1+11
Routine Call	VALM Line Location: ENCHS1+4 ENCHS1+14
Routine Call	DIE Line Location: ENADM+1
Routine Call	DIC Line Location: ENADM+1
Routine Call	DIR Line Location: ENCHS1+11

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^PS(51.1 - [#51.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	ENU+1
^TMP("PSIV"	ENCHS1+11, OV+6, Q+1!
^TMP("PSJ"	Q+1!
^TMP("PSJALL"	Q+1!
^TMP("PSJI"	Q+1!
^TMP("PSJON"	Q+1!
^TMP("PSJPRO"	SELSO+1, SELNUM+1, Q+1!

Name	Line Occurrences
ENADM	ENADM+1
ENCHS	OE+3
ENCHS1	OE+1
ENGETP	GETP1+3, ENCHS+1
ENQ	GETP1+1, ENQ+3, PAT+1
KILL	ENQ+2, ENQ+5, VAR, PAT
OV	SELSO+1, SELNUM+1
OV1	OV+8
Q	ENCHS+1
VAR	ENQ+5

Name	Field # of Occurrence
^(	OV+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENADM+1!, ENOW!, Q+5!
%H	ENOW!
%I	ENOW!, Q+5!
CONT	OE~, OE+1, ENCHS1+1, ENCHS1+8, ENCHS1+11, ENCHS1+16, ENCHS1+19*
D0	ENADM+1!
DA	ENADM+1!*, ENU+1
DA(1	ENU+1
DA(2	ENU+1
>> DFN	GETP1+1, GETP1+4, ENCHS+1, ENCHS+4, ENCHS1+2, ENCHS1+3, ENCHS1+20
DIC	ENGETP+1!, ENADM+1!, Q+5!
DIC("W"	ENGETP+1*
DIC(0	ENGETP+1, ENADM+1
DIE	ENADM+1!*
DIR	ENCHS1+11!
DIR(0	ENCHS1+11*
DLAYGO	ENADM+1*!
DONE	OV+2~, OV+7, OV1+10!
DR	ENADM+1!*
DRG	Q+2!
DRGI	Q+2!
DRGN	Q+2!
DRGT	Q+2!
DTIME	ENQ+2
>> DUOUT	OV1+10
ERR	Q+2!
I	Q+2!
IOF	ENCHS1+11
JJ	Q+2!
MI	Q+2!
N	Q+2!
N2	Q+2!
ON	OV+5, OV+6, OV+7, OV1+1*, OV1+4, OV1+6, OV1+8, Q+2!
ON55	OV1+1*, Q+2!
>> ORVP	OE+2
P	Q+2!
P("PON"	OV1+1*
P("PT"	ENCHS1+8*
P1	Q+2!
P16	Q+2!
P17	Q+2!
P3	Q+2!
PNOW	Q+2!
>> PPAGE	GETP1+1*
PS	Q+2!
>> PSGLMT	SELSO+1, SELNUM+1
PSGODD	Q+2!
PSGODDD	OV+1, OV+3, Q+2!
PSGODDD(	OV+3, OV+5
>> PSGOP	ENCHS1+2*
PSGP	GETP1+4~, ENCHS1+2, OV1+6, OV1+8
>> PSGPTMP	GETP1+1*
PSIV	Q+2!
PSIVAAT	Q+2!
PSIVACT	Q+2!
PSIVADM	Q+2!
PSIVAT	Q+2!
>> PSIVBR	ENCHS+4, ENCHS1+6, ENCHS1+20, OV1+2, OV1+6, OV1+7, OV1+8
PSIVC	Q+3!, Q+5!
PSIVDT	Q+3!
PSIVFLAG	Q+3!
PSIVLN	Q+3!
PSIVNOL	Q+3!
PSIVNOW	Q+3!
PSIVNU	Q+3!, Q+5!
PSIVON	Q+3!, Q+5!
PSIVOV1	OV+3*, OV+5, Q+3!, Q+5!
PSIVOV2	OV+3*, OV+5, Q+3!, Q+5!
PSIVREA	Q+3!, Q+5!
PSIVSTR	ENU+1*, Q+3!
PSIVSTRT	Q+3!
PSIVTYPE	Q+3!
PSJACNWP	GETP1+4~
PSJIVPRF	ENCHS1+12~*
PSJLMPRO	ENCHS1+4!, ENCHS1+21!
>> PSJNEWOE	ENCHS1+7, ENCHS1+9*
PSJNKF	Q+3!
>> PSJOL	ENCHS1+2, ENCHS1+6, ENCHS1+7, ENCHS1+8, ENCHS1+13*
>> PSJORD	OV1+4*
PSJORF	Q+4!
PSJORIFN	Q+4!
>> PSJORL	GETP1+4*
>> PSJORQF	ENCHS1+1, ENCHS1+9, ENCHS1+19
>> PSJPROT	ENCHS1+2*
QUD	ENQ+2, ENQ+5, VAR*, KILL!
QUX	ENQ+2, ENQ+3, ENQ+4, ENQ+5, VAR*, KILL!
QUX1	ENQ+5, VAR, KILL!
RDWARD	Q+4!, Q+5!
SCHED	Q+4!
START	Q+4!
STOP	Q+4!
U	ENC+1
USER	Q+4!
V	Q+4!, Q+5!
VAERR	Q+5!
>> VAIN(4	GETP1+4
>> VALMBCK	ENCHS1+15, OV+1, OV+9
>> VALMCNT	ENCHS1+5*
>> VALMSG	OV1+3*
VW	Q+5!
X	GETP1+1, ENYN+2, ENQ+2, ENQ+5, VAR, PAT, KILL, ENC+1, SELNUM+1*, Q+5!
X2	Q+5!
>> XQORNOD(0	SELNUM+1
XT	Q+4!
Y	GETP1+3, GETP1+4, ENADM+1!, ENOW, ENC+1, OV1+10, ENU+1~, Q+5!
Y1	Q+5!
Z	ENADM+1!, Q+5!
Z1	Q+5!
Z2	Q+5!

Customize PDF page

Package: Inpatient Medications

Routine: PSIV

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 26

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: