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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PXVTRAN

Package: PCE Patient Care Encounter

Routine: PXVTRAN


Information

PXVTRAN ;ISP/LMT - Transfer Vaccine Inventory Between Facilities ;Dec 03, 2018@15:13:49

Source Information

Source file <PXVTRAN.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  (FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$NS^XUAF4  

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

Package Total Caller Graph
PCE Patient Care Encounter 1 PXVEDIT  

Entry Points

Name Comments DBIA/ICR reference
EN(PXINST,PXTITLE) ;
VAC(PXINST) ;
QTY(PXVAC) ;
TO(PXINST) ;
ADDCHK(PXVAC,PXTO) ;
CONF(PXVAC,PXQTY,PXINST,PXTO) ;
TRAN(PXVAC,PXQTY,PXTO,PXADD) ;
ADD(PXVAC,PXQTY,PXTO) ;

External References

Name Field # of Occurrence
^DIC VAC+10
FILE^DIE TRAN+15
UPDATE^DIE ADD+17
$$GET1^DIQ CONF+5, CONF+6
^DIR QTY+16, TO+9, ADDCHK+16, CONF+24
$$FMTE^XLFDT CONF+13
$$NS^XUAF4 ADDCHK+11, CONF+15, CONF+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no vaccine lots in the transferring facility.",!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: @IOF,?10,"Transfer Vaccine Inventory From "_PXTITLE,!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !
  • Line Location: VAC+6
Function Call: WRITE
  • Prompt: $C(7),!!,"This vaccine lot has a "_$S(PXBAL=0:"zero",1:"negative")_" balance."
  • Line Location: QTY+7
Function Call: WRITE
  • Prompt: !,"Select another vaccine lot to transfer.",!
  • Line Location: QTY+8
Function Call: WRITE
  • Prompt: !!,?5,"Current Balance: "_PXBAL,!
  • Line Location: QTY+11
Function Call: WRITE
  • Prompt: $C(7),!!,$P($$NS^XUAF4(PXTO),U)_" does not currently stock this lot!",!
  • Line Location: ADDCHK+11
Function Call: WRITE
  • Prompt: @IOF,!,PXLINE
  • Line Location: CONF+9
Function Call: WRITE
  • Prompt: !,PXVIM
  • Line Location: CONF+10
Function Call: WRITE
  • Prompt: !,"Manufacturer: "_PXMAN
  • Line Location: CONF+11
Function Call: WRITE
  • Prompt: !,"Lot: "_PXLN
  • Line Location: CONF+12
Function Call: WRITE
  • Prompt: !,"Exp Date: "_$$FMTE^XLFDT($P($G(^AUTTIML(PXVAC,0)),U,9),"5D")
  • Line Location: CONF+13
Function Call: WRITE
  • Prompt: !!,"Transferring: "_PXQTY_" (Doses)"
  • Line Location: CONF+14
Function Call: WRITE
  • Prompt: !!,"From: "_$P(PXX,U)_" ("_$P(PXX,U,2)_")"
  • Line Location: CONF+16
Function Call: WRITE
  • Prompt: !,"To : "_$P(PXX,U)_" ("_$P(PXX,U,2)_")"
  • Line Location: CONF+18
Function Call: WRITE
  • Prompt: !,PXLINE,!
  • Line Location: CONF+19
Function Call: WRITE
  • Prompt: !!,"Updating vaccine on-hand balances now..."
  • Line Location: TRAN+4
Function Call: WRITE
  • Prompt: !,"Done!",!
  • Line Location: TRAN+17
Routine Call
  • DIC
  • Line Location:
    • VAC+10
Routine Call
  • DIE
  • Line Location:
    • TRAN+15
Routine Call
  • DIE
  • Line Location:
    • ADD+17
Routine Call
  • DIR
  • Line Location:
    • QTY+16
    • TO+9
    • ADDCHK+16
    • CONF+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTIML - [#9999999.41] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTIML - [#9999999.41] QTY+4, ADDCHK+4, ADDCHK+5, ADDCHK+6, CONF+4, CONF+13, TRAN+6, TRAN+12, ADD+4
^AUTTIML("AC" ADDCHK+8
^AUTTIML("AF" EN+4

Label References

Name Line Occurrences
$$ADDCHK EN+18
$$CONF EN+21
$$QTY EN+12
$$TO EN+15
$$VAC EN+10
ADD TRAN+9
TRAN EN+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC VAC+2~, VAC+9*
DIC("S" VAC+7*
DIC(0 VAC+8*
DIDIC VAC+2~
DINUM VAC+2~
DIR QTY+2~, TO+2~, ADDCHK+2~, CONF+2~
DIR("?" QTY+14*, QTY+15*, TO+8*, ADDCHK+14*, ADDCHK+15*, CONF+23*
DIR("A" QTY+13*, TO+6*, ADDCHK+13*, CONF+21*
DIR("B" CONF+22*
DIR("S" TO+7*
DIR(0 QTY+12*, TO+5*, ADDCHK+12*, CONF+20*
DLAYGO VAC+2~
DTOUT VAC+2~, VAC+11, QTY+2~, QTY+17, TO+2~, TO+11, ADDCHK+2~, ADDCHK+17, CONF+2~, CONF+25
DUOUT VAC+2~, VAC+11, QTY+2~, QTY+17, TO+2~, TO+11, ADDCHK+2~, ADDCHK+17, CONF+2~, CONF+25
IOF EN+9, CONF+9
PXADD EN+2~, EN+18*, EN+19, EN+20, EN+24, TRAN~, TRAN+9, TRAN+10, TRAN+11
PXBAL QTY+2~, QTY+4*, QTY+6, QTY+7, QTY+11, QTY+12, QTY+14
PXCONF EN+2~, EN+21*, EN+22, EN+23
PXEXIT EN+2~, EN+8, EN+11*, EN+14*, EN+17*, EN+20*, EN+23*
PXFDA TRAN+2~, ADD+2~
PXFDA( TRAN+8*, TRAN+13*
PXFDA(1 ADD+6*, ADD+7*, ADD+8*, ADD+9*, ADD+10*, ADD+11*, ADD+12*, ADD+13*, ADD+14*, ADD+15*
PXFQTY TRAN+2~, TRAN+6*, TRAN+7*, TRAN+8
PXIENS ADD+2~, ADD+5*, ADD+6, ADD+7, ADD+8, ADD+9, ADD+10, ADD+11, ADD+12, ADD+13
, ADD+14, ADD+15
PXINST EN~, EN+4, EN+10, EN+15, EN+21, VAC~, VAC+7, TO~, TO+7, CONF~
, CONF+15
PXLINE CONF+2~, CONF+8*, CONF+9, CONF+19
PXLN ADDCHK+2~, ADDCHK+4*, ADDCHK+8, CONF+2~, CONF+4*, CONF+12
PXMAN ADDCHK+2~, ADDCHK+6*, ADDCHK+7, ADDCHK+8, CONF+2~, CONF+6*, CONF+11
PXNODE ADD+2~, ADD+4*, ADD+6, ADD+7, ADD+8, ADD+9, ADD+10, ADD+14, ADD+15
PXQTY EN+2~, EN+12*, EN+13, EN+14, EN+21, EN+24, QTY+2~, QTY+19*, QTY+20, CONF~
, CONF+14, TRAN~, TRAN+6, TRAN+9, TRAN+12, ADD~, ADD+12, ADD+13
PXTITLE EN~, EN+9
PXTO EN+2~, EN+15*, EN+16, EN+17, EN+18, EN+21, EN+24, TO+2~, TO+14*, TO+15
, ADDCHK~, ADDCHK+8, ADDCHK+11, CONF~, CONF+17, TRAN~, TRAN+9, ADD~, ADD+11
PXTQTY TRAN+2~, TRAN+12*, TRAN+13
PXVAC EN+2~, EN+10*, EN+11, EN+12, EN+18, EN+21, EN+24, VAC+2~, VAC+4*, VAC+14*
, VAC+15, QTY~, QTY+4, ADDCHK~, ADDCHK+4, ADDCHK+5, ADDCHK+6, CONF~, CONF+4, CONF+5
, CONF+6, CONF+13, TRAN~, TRAN+6, TRAN+8, TRAN+9, ADD~, ADD+4
PXVACTO ADDCHK+2~, ADDCHK+8*, ADDCHK+9, TRAN+2~, TRAN+11*, TRAN+12, TRAN+13
PXVIM ADDCHK+2~, ADDCHK+5*, ADDCHK+7, ADDCHK+8, CONF+2~, CONF+5*, CONF+10
PXX CONF+2~, CONF+15*, CONF+16, CONF+17*, CONF+18
U QTY+4, ADDCHK+4, ADDCHK+5, ADDCHK+6, ADDCHK+11, CONF+4, CONF+13, CONF+16, CONF+18, TRAN+6
, TRAN+11, TRAN+12, ADD+6, ADD+7, ADD+8, ADD+9, ADD+10, ADD+14, ADD+15
X VAC+2~, QTY+2~, TO+2~, ADDCHK+2~, CONF+2~
Y VAC+2~, VAC+12, VAC+14, QTY+2~, QTY+18, QTY+19, TO+2~, TO+12, TO+14, ADDCHK+2~
, ADDCHK+18, ADDCHK+19, CONF+2~, CONF+26, CONF+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All