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
Print Page as PDF
Routine: ECXPHAU

Package: DSS Extracts

Routine: ECXPHAU


Information

ECXPHAU ;ALB/JAM - Print Pharmacy Volume Edit Log (IVP,PRE,UDP) ; 11/2/06 8:54am

Source Information

Source file <ECXPHAU.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from option
EXTRT ;Prompt for extract to report on
GETSORT ;Prompt for sorting order for report
PRINT ;Print report using fileman EN1^DIP for IVP
EXTNOI ;Extract Number
RPTHDR ;report header
DTRNG ;report date range
DTREP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option prints a log of the changes made to the Pharmacy"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Extracts: PRE, IVP, UDP or BCM",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"** REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY **"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: $P($G(^ECX(ECXFIL,+X,0)),"^",3)
  • Line Location: EXTNOI+1
Function Call: WRITE
  • Prompt: "PHARMACY VOLUME EDIT LOG FOR "_ECXNAM,?115,"Page ",PG,!
  • Line Location: RPTHDR+3
Function Call: WRITE
  • Prompt: "Printed on ",$$HTE^XLFDT($H)," for ",ECSD," to ",ECED,!
  • Line Location: RPTHDR+4
Function Call: WRITE
  • Prompt: "USER NAME",?24,"DATE/TIME CHANGED",?46,"SEQUENCE #",?61
  • Line Location: RPTHDR+5
Function Call: WRITE
  • Prompt: "EXTRACT #",?73,"FIELD NAME",?89,"OLD VALUE",?109,"NEW VALUE",!
  • Line Location: RPTHDR+6
Function Call: WRITE
  • Prompt: LN,!
  • Line Location: RPTHDR+7
Info |  Source |  Entry Points |  Interaction Calls