Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PXVXR

Package: PCE Patient Care Encounter

Routine: PXVXR


Information

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

Source Information

Source file <PXVXR.m>

Call Graph

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All