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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Toolkit 2 FILE^XDRDQUE  EN^XDRVCHEK  
VA Fileman 2 DD^%DT  ^DIR  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT HEADER1+2
^%ZIS ZIS
^%ZISC EOJ+5
^%ZTLOAD TSKMN+5
^DIR HEADER+3
FILE^XDRDQUE GETFILE+4
EN^XDRVCHEK START+1

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
Routine Call
  • DIR
  • Line Location:
    • HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • ZIS

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(15 INIT+2, INIT+6
^DIC - [#1] GETFILE+6
^DIC(4 - [#4] HEADER1+2
^VA(15 - [#15] PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+11

Label References

Name Line Occurrences
EOJ START+5, START+7, START+9
GETFILE START+4
HEADER PRINT+2, PRINT+5, PRINT+8
HEADER1 HEADER+2
INFORM START+2
INIT START+3
PROCESS START+8
TSKMN ZIS+2
ZIS START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS ZIS*
D PROCESS+1~, PROCESS+4*, PROCESS+5, PROCESS+7, PROCESS+11
>> DIC("A" GETFILE+4*
DIR HEADER+1~, HEADER+3!
DIR(0 HEADER+3*
DT HEADER1+2
DTIME PRINT+11
>> DTOUT HEADER+3
DUZ(2 HEADER1+2
I EOJ+3!, INIT+4*, INIT+8*
IO TSKMN+1, PRINT+1, HEADER+3
IO("DOC" TSKMN+2
IO("Q" ZIS+2
IO(0 HEADER+3
IOF EOJ+4, HEADER1+1
IOM TSKMN+3
ION TSKMN+1
IOP ZIS!
IOSL TSKMN+3, PRINT+5, PRINT+8
IOST TSKMN+1, PRINT+11, HEADER+3
POP EOJ+3!, ZIS+1
S EOJ+3!, INIT+4*, INIT+8*, PROCESS+1~, PROCESS+7*, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11*, PROCESS+12
U INIT+3, INIT+7, GETFILE+6, PROCESS+7, PROCESS+11, HEADER1+2
X INIT+2*, INIT+3*, INIT+4, INIT+6*, INIT+7*, INIT+8, PROCESS+1~, PROCESS+3*, PROCESS+4, PROCESS+5
, PRINT+4*, PRINT+6, PRINT+7*, PRINT+9, PRINT+11*, HEADER+1~
XDRCNT EOJ+1!
XDRCNT("GBL" GETFILE+6*, PROCESS+3
XDRCNT("LENG" HEADER1+4*, HEADER1+5
XDRCNT("MERGE STATUS" , INIT+8*, INIT+9, PROCESS+12*, PRINT+7, PRINT+9
XDRCNT("PG" INIT+1*, HEADER+2, HEADER1+1*, HEADER1+2
XDRCNT("QUIT" PRINT+5, PRINT+8, HEADER+3*
XDRCNT("STATUS" INIT+4*, INIT+5, PROCESS+9*, PRINT+4, PRINT+6
XDRCNT("TOTAL RECS" , INIT+10*, PROCESS+6*, PRINT+3
XDRD EOJ+1!
XDRD(0 PRINT+3, HEADER1+4, HEADER1+5
XDRFL EOJ+1!, GETFILE+1!, GETFILE+6
XDRNOPT GETFILE+3~
XDRQFLG START+5, START+7, EOJ+1!, INIT+1*, INIT+2*, INIT+5*, INIT+6*, INIT+9*, GETFILE+5, ZIS+1*
, TSKMN+5*
Y HEADER+1~, HEADER+3, HEADER1+2*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
ZTQUEUED EOJ+2, ZIS!
>> ZTREQ EOJ+2*
>> ZTRTN TSKMN+5*
ZTSAVE TSKMN+4!
ZTSAVE("*" TSKMN+4*
ZTSK EOJ+3!, ZIS!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All