Routine: PSIVSTAT

Name	Comments	DBIA/ICR reference
Q1
CNT
EN	;Compile IV stats hold file here.
NOCOST	;Send message if the drug is missing a unit cost.
SKIP	;
DSS	; Update DSS for IV extract
LBWD	;Get the ward we that we are printing labels on.
Q
SET
RETDET	;Get the ward that returns or destroyed need to be associated with.
MSG

Name	Field # of Occurrence
^%DT	EN+5
NOW^%DTC	PSIVSTAT+13
^%ZTLOAD	EN+1
^ECXPIV1	DSS+12
ENIVKV^PSGSETU	Q
^PSIVST2	SET+3
$$CODES^PSIVUTL	DSS+10
^XMD	MSG+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	DSS+2
^DIC(42 - [#42]	LBWD+2
^DPT - [#2]	LBWD+2
^PS(	DSS+9, SET+1, NOCOST+2
^PS(50.8 - [#50.8]	PSIVSTAT+10, PSIVSTAT+13, PSIVSTAT+14, PSIVSTAT+15, PSIVSTAT+16, SKIP+2, Q1, EN+4, EN+6!, EN+8 , EN+9, CNT, CNT+2!, SET, SET+3!, NOCOST+2
^PS(55 - [#55]	RETDET+2, LBWD+1, DSS+5, DSS+6, DSS+7, DSS+8, DSS+12, SET+1
^PS(59.5 - [#59.5]	EN+5
^TMP("PSIVNC"	EN+4!, CNT+1
^TMP($J	DSS+4!, DSS+12, NOCOST+2
^XUSEC("PSJI MGR"	MSG+1

Name	Line Occurrences
CNT	EN+8
MSG	CNT+1
NOCOST	SET+1
Q	EN+1
SET	CNT
SKIP	RETDET+2, LBWD+1

Name	Field # of Occurrence
^(	PSIVSTAT+15, SKIP+2*, SET+1
^(0	PSIVSTAT+13, PSIVSTAT+15, PSIVSTAT+16, EN+6*
^(1	EN+5
^(9	RETDET+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PSIVSTAT+13
%DT	Q!
A	DSS+3~, DSS+6*
ADSTR	DSS+3~, DSS+8*, DSS+11
ADUNITS	DSS+3~, DSS+8, DSS+10, DSS+11
B	DSS+3~, DSS+6*
D	Q!
DCST	DSS+3~, DSS+9*, DSS+11
DDRG	DSS+3~, DSS+9*, DSS+11, DSS+12
DFN	PSIVSTAT+15, PSIVSTAT+16, RETDET+2, LBWD+1, LBWD+2, SKIP+2, DSS+5, DSS+6, DSS+7, DSS+8 , DSS+11, DSS+12, Q!, CNT*, SET, SET+1, SET+3, NOCOST+2
DRG	DSS+3~, DSS+7*, DSS+8
>> DRGTYP	DSS+7*, DSS+8, DSS+9, DSS+10
DSDATE	DSS+3~, DSS+6*, DSS+12
>> ECUD	DSS+11, DSS+12
>> I	EN+6, SET+1
IV	Q!
IVROOM	DSS+3~, DSS+6*, DSS+12
LO	Q!
>> ND	DSS+8, DSS+9, DSS+10
NON	SET+1*, SET+2!
NUM	NOCOST+2*, MSG+2!
>> ON	RETDET+2, LBWD+1, SKIP+2, DSS+5, DSS+6, DSS+7, DSS+8, DSS+11, DSS+12, SET* , SET+1
PNL	Q!
POP	Q!
PROV	DSS+3~, DSS+5*, DSS+11
PSGDT	Q!
PSIV	Q!
PSIVC	PSIVSTAT+11, SKIP+2, DSS+11, Q!, SET
PSIVD	Q1!, Q!, SET*
PSIVDG	Q!, SET+1*, SET+2!, NOCOST+2
PSIVDRG	Q!, SET+1*, SET+2!, NOCOST+2
PSIVDUZ	MSG+1*, MSG+2!
PSIVLP	Q1!
PSIVNOL	RETDET+2, SKIP+2, Q!, SET*
>> PSIVNOW	PSIVSTAT+13*, SKIP+2, DSS+11
PSIVS	EN+8*, EN+9, Q!, CNT, CNT+2, SET, SET+3, NOCOST+2
>> PSIVSITE	EN+1
>> PSIVSN	PSIVSTAT+10, PSIVSTAT+13, PSIVSTAT+15, PSIVSTAT+16, SKIP+2, Q1, EN+1
PSIVTN	PSIVSTAT+16*, SKIP+2, Q1!
PSIVV	PSIVSTAT+10*, Q1!, Q!
PSIVWD	RETDET+2, LBWD+1, LBWD+2*, SKIP+2, Q1!
>> PSJRDC	PSIVSTAT+11
>> Q	EN+4*, EN+5, EN+6
>> RDFLAG	RETDET+2
>> RDWARD	RETDET+2
SOLSTR	DSS+3~, DSS+8*, DSS+11
START	DSS+3~, DSS+5*, DSS+12
>> TMP("PSIVNC"	MSG+2!
TN	CNT, CNT+1!, CNT+2!, SET, SET+3, NOCOST+2
TYP	DSS+3~, DSS+5*, DSS+11
U	PSIVSTAT+13, PSIVSTAT+15, PSIVSTAT+16, RETDET+2, LBWD+1, SKIP+2, DSS+5, DSS+9, DSS+10, DSS+11 , DSS+12, EN+5, EN+6, SET, SET+1, NOCOST+2
>> W42	SET*
X	DSS+2, DSS+5, EN+5*, CNT+1!, CNT+2!
XMDUZ	MSG*, MSG+2!
XMSUB	MSG*, MSG+2!
XMTEXT	MSG*, MSG+2!
XMY	MSG+2!
XMY(	MSG+1*
Y	PSIVSTAT+13, DSS+10, EN+6, CNT+1!, CNT+2!
Z	Q!
>> ZTDESC	EN+1*
>> ZTDTH	EN+1*
ZTIO	EN+1*, CNT+1!, CNT+2!
>> ZTQUEUED	CNT+1
>> ZTREQ	CNT+1*
ZTRTN	EN+1*, CNT+1!, CNT+2!
ZTSAVE	EN+1!
ZTSK	EN+1, Q!

Customize PDF page

Package: Inpatient Medications

Routine: PSIVSTAT

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: