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

Package: Kernel

Routine: XUPSCLR


Information

XUPSCLR ;OIFO-CS/GRR/RAM/DW/PN - New Person file Cleanup Report ; 1 Jan 2004

Source Information

Source file <XUPSCLR.m>

Entry Points

Name Comments DBIA/ICR reference
DETAIL ; -- detailed report
STATS ; -- totals only
EN ; -- entry point
EN1 ;
HEAD ; write report header
TOTALS ;
XXX ;
INIT ; -- initialize
ZZZ ; -- detailed output
YYY ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will print "_TYPE
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: " entries missing SEX, DOB, or SSN",!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: "data in the New Person file (#200)",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"The report may be lengthy. "
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: "It is suggested to queue the report."
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,?1,"New Person file Assessment Report - "
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: XUPSREC_" Persons",?55,XUPSDT
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,?1,"Person Name",?31,"IEN",?40,"Missing",?48,"Missing"
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: ?56,"Missing",?65,"Office Phone",!,?42,"SEX",?50,"DOB",?58,"SSN",!
  • Line Location: HEAD+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOTALS+6
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(PERSON,6,0)
  • Line Location: TOTALS+10
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(VISITOR,6,0)
  • Line Location: TOTALS+12
Function Call: WRITE
  • Prompt: !!,?(50-$L(XUPSL)),XUPSL
  • Line Location: TOTALS+14
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(PERSON-VISITOR,6,0)
  • Line Location: TOTALS+16
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(MISSING("SEX"),6,0)
  • Line Location: TOTALS+18
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(MISSING("DOB"),6,0)
  • Line Location: TOTALS+20
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(MISSING("SSN"),6,0)
  • Line Location: TOTALS+22
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(MISS(1),6,0)
  • Line Location: TOTALS+24
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(MISS(2),6,0)
  • Line Location: TOTALS+26
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(MISS(3),6,0)
  • Line Location: TOTALS+28
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(TOTAL("MISSING"),6,0)
  • Line Location: TOTALS+30
Function Call: WRITE
  • Prompt: !!,?(50-$L(XUPSL)),XUPSL,$J(ACTIVE("TOTAL"),6,0)
  • Line Location: TOTALS+32
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(ACTIVE("MISSING"),6,0)
  • Line Location: TOTALS+34
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(ACTIVE("SEX"),6,0)
  • Line Location: TOTALS+36
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(ACTIVE("DOB"),6,0)
  • Line Location: TOTALS+38
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(ACTIVE("SSN"),6,0)
  • Line Location: TOTALS+40
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(ACTIVE(1),6,0)
  • Line Location: TOTALS+42
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(ACTIVE(2),6,0)
  • Line Location: TOTALS+44
Function Call: WRITE
  • Prompt: !,?(50-$L(XUPSL)),XUPSL,$J(ACTIVE(3),6,0)
  • Line Location: TOTALS+46
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ZZZ+7
Info |  Source |  Entry Points |  Interaction Calls