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

Package: PCE Patient Care Encounter

Routine: PXVINV


Information

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

Source Information

Source file <PXVINV.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call