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

Package: Toolkit

Routine: XDRCNT


Information

XDRCNT ;SF-IRMFO/OHPRD/LAB - Count/Tally records by status/merged status; [ 08/13/92 09:50 AM ] ;8/28/08 17:55

Source Information

Source file <XDRCNT.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
EOJ ;Eoj cleanup
INIT ;initialize variables
GETFILE ;get file to tally records fo
ZIS
TSKMN ;
PROCESS ;
PRINT ;print report
HEADER ;print header information
HEADER1 ;
INFORM ;inform user

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"Dictionary error!! Notify a programmer!"
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: !!,"Dictionary error!! Notify a programmer!"
  • Line Location: INIT+5
Function Call: WRITE
  • Prompt: !!,$C(7),"Dictionary error!! Notify a programmer!"
  • Line Location: INIT+6
Function Call: WRITE
  • Prompt: !!,"Dictionary error!! Notify a programmer!"
  • Line Location: INIT+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+0
Function Call: WRITE
  • Prompt: !!,"Total Number of Duplicate Records for File ",$E(XDRD(0,0),1,18),": ",?65,$J(XDRCNT("TOTAL RECS"),6),!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?5,"STATUS field:"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?5,"MERGE STATUS field:"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,"End of Report. Press return to exit"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?3,$P(^DIC(4,DUZ(2),0),U)
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: ?50,Y,?70,"Page ",XDRCNT("PG"),?78,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !?12,"TALLY OF DUPLICATE RECORDS' STATUS/MERGE STATUS FIELDS"
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !?((80-XDRCNT("LENG"))/2),"FILE: ",XDRD(0,0),?78,!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !!,"This report will tally the Status and Merge Status fields for all",!,"entries in the Duplicate record file for the file that you select.",!
  • Line Location: INFORM+1
Info |  Source |  Entry Points |  Interaction Calls