Routine: PXVXR

Information

PXVXR ;BIR/ADM - CROSS REFERENCE AND OTHER LOGIC ;Dec 20, 2022@13:24:02

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	($$FMADD,$$NOW)^XLFDT $$NS^XUAF4 $$KSP^XUPARAM
VA FileMan	3	EN^DDIOL ^DIR ^DIWP
MailMan	1	SENDMSG^XMXAPI
Toolkit	1	$$GET^XPAR

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: 4

Package	Total	Caller Graph
PCE Patient Care Encounter	4	PXVRPC4 PXVUTIL ^AUPNVIMM ^AUTTIML

Entry Points

Name	Comments	DBIA/ICR reference
EXP	; check for expiration date in the past
INUSE	; input check on LOT NUMBER field (#.01)
COMB	; check on LOT NUMBER field (#.01) for uniqueness of Immunization Name, Lot Number and Manufacturer combination
AUCHK
COMB1	; input check on MANUFACTURER field (#.02)
COMB2	; input check on VACCINE field (#.04)
ACT(PXLOT)	; screen immunization with active immunization lot number
LOTSTAT(PXLOT,PXDT)	; Check if lot is active and not expired
IMMSEL(PXVLOT,PXVIN)	; is this lot # selectable for this facility
LOT()	;
DIV1(PXVISIT)	; return division associated with the encounter
HIST()	; check if historical encounter
DECR	; set logic for AF x-ref in V IMMUNIZATION file ; decrement doses unused in IMMUNIZATION LOT file ; check if "low stock" message needs to be sent
INCR	; kill logic for AF x-ref in V IMMUNIZATION file ; increment doses unused in IMMUNIZATION LOT file
STOCKQTY(PXINST,PXIMM)	; ; Return the total active stock for this imm/div. ; Also, return the largest Low Supply Alert value (this will be used as ; the threshold to see if an alert should be sent).
SENDMSG(PXINST,PXIMM,PXSTOCK)	; Send MailMan message that stock is low
UPDSTAT(PXIEN,PXOLDSTATUS,PXNEWSTATUS,PXDT,PXUSER)	;

External References

Name	Field # of Occurrence
EN^DDIOL	EXP+3, INUSE+3, INUSE+4, AUCHK+5, AUCHK+6, SENDMSG+5
^DIR	EXP+4
^DIWP	SENDMSG+13
$$FMADD^XLFDT	UPDSTAT+14
$$NOW^XLFDT	LOTSTAT+4, SENDMSG+17, UPDSTAT+8
SENDMSG^XMXAPI	SENDMSG+18
$$GET^XPAR	DECR+29
$$NS^XUAF4	SENDMSG+3
$$KSP^XUPARAM	DIV1+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVIMM - [#9000010.11]	ACT+9, ACT+16, ACT+24, HIST+4, HIST+7, DECR+14, DECR+16
^AUPNVIMM("LN"	INUSE+2
^AUPNVSIT - [#9000010]	ACT+25, DIV1+4, DIV1+8, HIST+8
^AUTTIML - [#9999999.41]	COMB+2, AUCHK+1, COMB1+3, COMB2+3, LOTSTAT+6, LOTSTAT+18, LOTSTAT+20, LOTSTAT+21, LOTSTAT+22, LOTSTAT+24 , IMMSEL+3, LOT+3, DECR+21, DECR+25, INCR+4, INCR+5, STOCKQTY+10, UPDSTAT+5, UPDSTAT+11, UPDSTAT+13 , UPDSTAT+16, UPDSTAT+17, UPDSTAT+22, UPDSTAT+23, UPDSTAT+24, UPDSTAT+25, UPDSTAT+26
^AUTTIML("AC"	AUCHK+4
^AUTTIML("AF"	IMMSEL+3
^AUTTIML("C"	ACT+13, LOT+3, DECR+19, DECR+23, DECR+26, STOCKQTY+9
^AUTTIMM - [#9999999.14]	SENDMSG+2
^PXV(920.1 - [#920.1]	HIST+6
^SC - [#44]	DIV1+5
^UTILITY($J	SENDMSG+9!, SENDMSG+14, SENDMSG+15!
^XUSEC("PXV IMM INVENTORY MGR"	SENDMSG+6

Label References

Name	Line Occurrences
$$DIV1	ACT+17, DECR+17
$$HIST	DECR+12, INCR+2
$$IMMSEL	ACT+20, STOCKQTY+12
$$LOTSTAT	ACT+26, STOCKQTY+11
$$STOCKQTY	DECR+20
AUCHK	COMB1+4, COMB2+4
SENDMSG	DECR+33

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	INUSE+2, COMB+2, AUCHK+1, COMB1+3, COMB2+3, ACT+8, HIST+3, DECR+6, DECR+10~
>> DILOCKTM	DECR+19
DIR	EXP+4!
DIR("A"	EXP+4*
DIR("B"	EXP+4*
DIR(0	EXP+4*
DIWF	SENDMSG+1~, SENDMSG+12*
DIWL	SENDMSG+1~, SENDMSG+10*
DIWR	SENDMSG+1~, SENDMSG+11*
DT	EXP+2
>> DTOUT	EXP+5
>> DUOUT	EXP+5
DUZ	SENDMSG+18, UPDSTAT+9
DUZ(2	DIV1+8
PXBODY	SENDMSG+1~, SENDMSG+14*
>> PXCEFIEN	ACT+8
>> PXCEVIEN	ACT+16
PXCURSTOCK	DECR+4~, DECR+32*, DECR+33
>> PXD	ACT+9
PXDT	ACT+3~, ACT+23, ACT+24, ACT+25, ACT+26, LOTSTAT~, LOTSTAT+4, LOTSTAT+11, LOTSTAT+18, LOTSTAT+20 , UPDSTAT~, UPDSTAT+8, UPDSTAT+13, UPDSTAT+14, UPDSTAT+22, UPDSTAT+23
PXEXPDT	LOTSTAT+2~, LOTSTAT+10*, LOTSTAT+11
PXIEN	UPDSTAT~, UPDSTAT+4, UPDSTAT+5, UPDSTAT+11, UPDSTAT+13, UPDSTAT+16, UPDSTAT+17, UPDSTAT+22, UPDSTAT+23, UPDSTAT+24 , UPDSTAT+25, UPDSTAT+26
PXIENSUB	UPDSTAT+2~, UPDSTAT+16, UPDSTAT+17, UPDSTAT+18, UPDSTAT+22, UPDSTAT+23, UPDSTAT+26
PXIMM	DECR+4~, DECR+14*, DECR+15, DECR+19, DECR+20, DECR+23, DECR+26, DECR+33, STOCKQTY~, STOCKQTY+9 , SENDMSG~, SENDMSG+2
PXIMMIEN	ACT+3~, ACT+9*, ACT+10, ACT+13
PXIMMNAME	SENDMSG+1~, SENDMSG+2*, SENDMSG+4, SENDMSG+8
PXINST	ACT+3~, ACT+17, ACT+20, DECR+4~, DECR+17, DECR+20, DECR+29, DECR+33, STOCKQTY~, STOCKQTY+12 , SENDMSG~, SENDMSG+3
PXINSTNM	SENDMSG+1~, SENDMSG+3*, SENDMSG+4, SENDMSG+8
PXINSTR	SENDMSG+1~, SENDMSG+18
PXINSTR("FROM"	SENDMSG+16*
PXINSTR("LATER"	SENDMSG+17*
>> PXKAFT("13"	HIST+5
>> PXKPIEN	HIST+3
PXLOT	ACT~, ACT+13, ACT+20, ACT+26, LOTSTAT~, LOTSTAT+6, LOTSTAT+18, LOTSTAT+20, LOTSTAT+21, LOTSTAT+22 , LOTSTAT+24, DECR+4~, DECR+7*, DECR+21, DECR+25
PXLOTNUM	STOCKQTY+5~, STOCKQTY+8, STOCKQTY+9, STOCKQTY+10, STOCKQTY+11, STOCKQTY+12
PXMSG	SENDMSG+1~, SENDMSG+4*, SENDMSG+5, SENDMSG+18
PXNEWSTATUS	UPDSTAT~, UPDSTAT+7*, UPDSTAT+11, UPDSTAT+22
PXNODE	LOTSTAT+2~, LOTSTAT+6*, LOTSTAT+7, LOTSTAT+10, LOTSTAT+14, LOTSTAT+25
PXNODE0	STOCKQTY+5~, STOCKQTY+10*, STOCKQTY+13, STOCKQTY+14
PXOLDSTATUS	UPDSTAT~, UPDSTAT+6*, UPDSTAT+11
PXOLDSTOCK	DECR+4~, DECR+20, DECR+30, DECR+31, DECR+32, DECR+33
PXRSLT	ACT+3~, ACT+5, ACT+26, ACT+28
PXSTAT	LOTSTAT+2~, LOTSTAT+22, LOTSTAT+24, LOTSTAT+25*, LOTSTAT+26
PXSTATDT	LOTSTAT+2~, LOTSTAT+20*, LOTSTAT+21
PXSTATIEN	LOTSTAT+2~, LOTSTAT+17, LOTSTAT+18, LOTSTAT+19, LOTSTAT+21*, LOTSTAT+22, LOTSTAT+23
PXSTOCK	STOCKQTY+5~, STOCKQTY+7, STOCKQTY+13, STOCKQTY+16, SENDMSG~, SENDMSG+8
PXTHRESHOLD	DECR+4~, DECR+30, DECR+33, STOCKQTY+5~, STOCKQTY+6, STOCKQTY+15*, STOCKQTY+16
PXTO	SENDMSG+1~, SENDMSG+6*, SENDMSG+18
PXTO("G.PXV I	MM INVENTORY ALERTS" , SENDMSG+7*
PXUSER	UPDSTAT~, UPDSTAT+9*, UPDSTAT+22
PXV	INUSE+1~, COMB+2, COMB1+1~, COMB1+3, COMB2+1~, COMB2+3, DECR+4~, DECR+21, DECR+22, DECR+24* , DECR+25, INCR+3~, INCR+4, INCR+5
PXVDT	EXP+1~, EXP+2*, EXP+6
>> PXVFIEN	AUCHK+2
PXVHIST	HIST+1~, HIST+2, HIST+3, HIST+6, HIST+8*, HIST+9
PXVIEN	ACT+3~, ACT+8, ACT+9, ACT+16, ACT+24, HIST+1~, HIST+3, HIST+4, HIST+7
PXVIM	INUSE+1~, COMB+2, AUCHK+4, COMB1+1~, COMB1+3, COMB2+1~, COMB2+2*
PXVIMM	LOT+1~, LOT+2, LOT+3, DECR+4~, DECR+6*, DECR+14, DECR+16
PXVIN	IMMSEL~, IMMSEL+3, DIV1+2, DIV1+5, DIV1+8*, DIV1+9
PXVINST	AUCHK~
>> PXVISIEN	ACT+16
PXVISIT	ACT+3~, ACT+16, ACT+17, ACT+25, DIV1~, DIV1+3, DIV1+4, DIV1+8, DECR+4~, DECR+16 , DECR+17
PXVL	DIV1+1~, DIV1+2, DIV1+4, DIV1+5
PXVLN	INUSE+1~, COMB+1, AUCHK+3, AUCHK+4, COMB1+1~, COMB1+3, COMB2+1~, COMB2+3, LOT+1~, LOT+3*
PXVLOT	IMMSEL~, IMMSEL+3
PXVMAN	INUSE+1~, COMB+2, AUCHK+4, COMB1+1~, COMB1+2, COMB2+1~, COMB2+3*
>> PXVNEWIM	HIST+3
PXVSIT	HIST+1~, HIST+7*, HIST+8
PXVSRCE	HIST+1~, HIST+4, HIST+5, HIST+6
PXVST	IMMSEL+1~, IMMSEL+2, IMMSEL+3, IMMSEL+4
PXVSTN	AUCHK~, AUCHK+1, AUCHK+2, AUCHK+3*
PXVX	EXP+1~, EXP+3, INUSE+1~, INUSE+4, AUCHK+6*, COMB1+1~, COMB2+1~
PXX	STOCKQTY+5~, STOCKQTY+14, STOCKQTY+15, UPDSTAT+2~, UPDSTAT+25, UPDSTAT+26
U	ACT+9, ACT+24, ACT+25, LOTSTAT+10, LOTSTAT+14, LOTSTAT+22, LOTSTAT+25, DECR+14, DECR+16, DECR+30 , DECR+31, STOCKQTY+13, STOCKQTY+14, STOCKQTY+16, SENDMSG+3, UPDSTAT+22, UPDSTAT+26
X	EXP+2, EXP+5!, EXP+6, INUSE+2, INUSE+4!, COMB+1, AUCHK+6!, COMB1+2, COMB2+2, DECR+7 , DECR+10~, INCR+4, INCR+5, SENDMSG+1~, SENDMSG+8
Y	EXP+1~, EXP+5, LOT+3

Customize PDF page

Package: PCE Patient Care Encounter