Routine: PXVINV

Information

PXVINV ;BIR/ADM - IMMUNIZATION INVENTORY REPORT ;Aug 06, 2021@10:56:49

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC (,$$S)^%ZTLOAD
VA FileMan	3	^DIC ($$GET1,Y)^DIQ ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXVEDIT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point for inventory report
DEV
BEG	;
UTIL	;
IMM	; select immunization(s) for display
MORE	; ask for more immunizations
PRINT	; print report
INV	;
END
HDR	; print heading
STOP	;
GETINIT(PXVLN)	; Get initials of first user who set this lot to active

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
^%ZISC	END+3
^%ZTLOAD	DEV+2
$$S^%ZTLOAD	STOP+2
^DIC	IMM+1, MORE+1
$$GET1^DIQ	INV+8, GETINIT+11
Y^DIQ	INV+4, INV+5, INV+6, INV+7
^DIR	EN+11, EN+17, END, HDR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"IMMUNIZATION INVENTORY REPORTS FOR "_PXVTITLE,! Line Location: EN+3
Function Call: WRITE	Prompt: ! Line Location: EN+14
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !! Line Location: IMM+1
Function Call: WRITE	Prompt: !,"NO ACTIVE IMMUNIZATION INVENTORY FOUND" Line Location: PRINT+3
Function Call: WRITE	Prompt: " WITH ZERO DOSES AVAILABLE" Line Location: PRINT+3
Function Call: WRITE	Prompt: !,PXVVAC,!,PXV(1),?28,PXVSTAT,?40,PXBYINIT,?49,PXV(12),?65,PXVEXP,!,$E(PXVMAN,1,63),?65,PXVSITE,! Line Location: INV+10
Function Call: WRITE	Prompt: !! Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: WRITE	Prompt: @IOF,?(80-$L(PXVTITLE)\2),PXVTITLE,!,?(80-$L(PXVTITL)\2),PXVTITL Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(80-$L(PXVPRINT)\2),PXVPRINT,! Line Location: HDR+4
Function Call: WRITE	Prompt: !,"IMMUNIZATION",!,"LOT NUMBER",?28,"STATUS",?40,"BY",?49,"DOSES UNUSED",?65,"EXPIRATION DATE",!,"MANUFACTURER",?65,"STATION NUMBER",! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Function Call: WRITE	Prompt: !!!,?10," Task Being Stopped at User's Request ",!!! Line Location: STOP+2
Routine Call	%ZIS Line Location: DEV+1
Routine Call	DIC Line Location: IMM+1 MORE+1
Routine Call	DIR Line Location: EN+11 EN+17 END HDR+2

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(14.7 - [#14.7]	STOP+1
^AUTTIML - [#9999999.41]	UTIL+1, GETINIT+5, GETINIT+7, GETINIT+8
^AUTTIML("C"	BEG+6, BEG+7
^AUTTIMM - [#9999999.14]	UTIL+2
^DD("DD"	BEG+1
^DD(9999999.41	INV+4, INV+5, INV+6, INV+7
^TMP("PXV"	BEG+1!, UTIL+4, UTIL+5, UTIL+6*, PRINT+2, PRINT+3, INV+2, END+1!

Label References

Name	Line Occurrences
$$GETINIT	INV+9
DEV	EN+13
END	EN+11, EN+17, EN+18, DEV+1, DEV+2, BEG+8
HDR	BEG+8, PRINT+1, INV+1
IMM	EN+18
INV	PRINT+2
MORE	MORE+1
PRINT	BEG+8
STOP	HDR+1
UTIL	BEG+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV!*
%ZIS("A"	DEV*
C	EN+1~, INV+4, INV+5, INV+6, INV+7, END+2!
CNT	EN+1~, BEG+6, UTIL+4, UTIL+5, UTIL+6, END+2!
DIC	EN+1~, IMM+1!, MORE+1!, END+2!
DIC("A"	IMM+1, MORE+1
DIC("S"	IMM+1, MORE+1
DIC(0	IMM+1, MORE+1
DIR	EN+1~, EN+4!, EN+11!, EN+14!, EN+17!, END!, END+2!, HDR+2!
DIR("?"	EN+7, EN+8, EN+9, EN+10, EN+15, EN+16
DIR("A"	EN+4, EN+5, EN+6, EN+14, END, HDR+2
DIR("B"	EN+14*
DIR(0	EN+6, EN+14, END, HDR+2
DT	BEG+1
>> DTOUT	EN+11, EN+17, HDR+2
>> DUOUT	EN+11, EN+17, HDR+2
>> I	INV+3*
IO	BEG+1
IO("Q"	DEV!, DEV+2!
IOF	EN+3, END+1, END+3, HDR+3
IOP	DEV!
IOSL	PRINT+1, INV+1
IOST	END, END+1, HDR+2, HDR+4
LINE	EN+1~, END+2!, HDR+5*
PAGE	EN+1~, BEG+1*, END+2!
POP	DEV!, DEV+1
PXBYINIT	EN+1~, INV+9*, INV+10, END+2!
PXDT	GETINIT+1~, GETINIT+4, GETINIT+5, GETINIT+7
PXI	GETINIT+1~, GETINIT+6, GETINIT+7, GETINIT+8
PXINIT	GETINIT+1~, GETINIT+2, GETINIT+3, GETINIT+5, GETINIT+7, GETINIT+11, GETINIT+12*, GETINIT+13
PXUSER	GETINIT+1~, GETINIT+10*, GETINIT+11
PXV	EN+1~, END+2!
PXV(	INV+3*
PXV(1	INV+10
PXV(10	INV+8
PXV(12	INV+10
PXV(2	INV+4
PXV(3	INV+5
PXV(4	INV+6
PXV(9	INV+7
PXV0	EN+1~, UTIL+1, UTIL+4, UTIL+5, UTIL+6, INV+2, INV+3, END+2!
PXVCT	EN+1~, IMM+2, MORE+1, END+2!
PXVEXP	EN+1~, INV+7*, INV+10, END+2!
>> PXVFIEN	UTIL+1
PXVHALT	EN+1~, END+2!, HDR+1, STOP+1, STOP+2
PXVHDR	EN+1~, BEG+1, END+2!, HDR+2, HDR+6
PXVIMM	EN+1~, BEG+1, BEG+5, UTIL+4, IMM+1*, END+2!
PXVIMM(	UTIL+4, IMM+2, MORE+1
PXVIMM(0	BEG+3, BEG+5
PXVLN	EN+1~, BEG+7, UTIL+1, UTIL+4, UTIL+5, UTIL+6, PRINT+2, INV+2, INV+9, END+2! , GETINIT~, GETINIT+3, GETINIT+5, GETINIT+7, GETINIT+8
PXVMAN	EN+1~, INV+4*, INV+10, END+2!
PXVNAME	EN+1~, PRINT+2, PRINT+3, INV+2, END+2!
PXVOUT	EN+1~, EN+2, EN+11, EN+17, EN+18, DEV+1, BEG+1, BEG+6, BEG+7, IMM+1 , PRINT+1, PRINT+2, INV+1, END, END+2!, HDR+1, HDR+2
PXVPRINT	EN+1~, BEG+1*, END+2!, HDR+4
PXVSEL	EN+1~, EN+12*, EN+13, BEG+3, BEG+4, UTIL+3, UTIL+6, PRINT+3, END+2!
PXVSITE	EN+1~, INV+8*, INV+10, END+2!
PXVSTAT	EN+1~, INV+5*, INV+10, END+2!
PXVTITL	EN+1~, BEG+2, BEG+3, BEG+4*, END+2!, HDR+3
>> PXVTITLE	EN+3, HDR+3
PXVVAC	EN+1~, BEG+6, BEG+7, UTIL+2, UTIL+4, INV+6, INV+10, END+2!
PXX	GETINIT+1~, GETINIT+8*, GETINIT+9, GETINIT+10
U	GETINIT+9, GETINIT+10
X	EN+1~, END+2!
Y	EN+1~, EN+11, EN+12, EN+18, BEG+1, IMM+1, IMM+2, MORE+1, INV+4, INV+5* , INV+6, INV+7, END+2!
Z	EN+1~, UTIL+2*, UTIL+4, UTIL+5, UTIL+6, END+2!
>> ZTDESC	DEV+2*
>> ZTQUEUED	END+1, HDR+1
ZTREQ	END+1*, STOP+2!
>> ZTRTN	DEV+2*
>> ZTSAVE("PXVFIEN"	DEV+2*
>> ZTSAVE("PXVIMM*"	DEV+2*
>> ZTSAVE("PXVSEL"	DEV+2*
>> ZTSAVE("PXVTITLE"	DEV+2*
>> ZTSTOP	END+1, STOP+2*

Customize PDF page

Package: PCE Patient Care Encounter