Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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) ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTIML - [#9999999.41] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call