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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: XLFNP176

Package: Kernel

Routine: XLFNP176


Information

XLFNP176 ;SFISC/MKO-FIX NEW PERSON NAMES ;3:16 PM 27 Oct 2000

Source Information

Source file <XLFNP176.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  NAMECOMP^XLFNAME  $$PATCH^XPDUTL  
VA FileMan 4 YX^%DTC  MSG^DIALOG  FILE^DIE  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
LIST ;; M D^ D D S^ PH D^ R N^ D P M^ D O^ P A^ N P^ C R N A^ L P N
FIX
MAIN ;Loop through the New person file; entry point for queued jobs
BLDCOMP(XUNAM,XUSUF,XUNEW) ;Build new name components
WRITE(XUIEN,XUNAM,XUNEW) ;Write info
FILE(XUIEN,XUNEW) ;Correct Name
W(XUSTR,XUTAB) ;Write XUSTR
EOP ;End-of-page prompt/check
HDR ;Print header
ASKFIX() ;Ask whether to file corrected New Person name
DEVSEL ;Select device
INIT ;Setup
END ;Finish up
INTRO ;

External References

Name Field # of Occurrence
YX^%DTC INIT+2
^%ZIS DEVSEL+3, DEVSEL+15
^%ZISC END+2
^%ZTLOAD DEVSEL+12
$$S^%ZTLOAD EOP+4
MSG^DIALOG FILE+17
FILE^DIE FILE+9
^DIR EOP+3, ASKFIX+6, INTRO+22, INTRO+34
NAMECOMP^XLFNAME BLDCOMP+4
$$PATCH^XPDUTL INTRO+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?+$G(XUTAB),$G(XUSTR)
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EOP+5
Function Call: WRITE
  • Prompt: "NEW PERSON NAMES FIXED BY FIX^XLFNP176"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "HOW FIX^XLFNP176 WOULD FIX NEW PERSON NAMES"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?(IOM-$L(XUHLIN)-$L(XUPAGE)-1),XUHLIN_XUPAGE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM-1)," ","-")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKFIX+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVSEL+3
Function Call: WRITE
  • Prompt: !,"Report queued!",!,"Task number: "_$G(ZTSK),!
  • Line Location: DEVSEL+13
Function Call: WRITE
  • Prompt: !,"Report canceled!",!
  • Line Location: DEVSEL+14
Function Call: WRITE
  • Prompt: !,"Routine XLFNP176 was released with patch XU*8*176."
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: !!,"This entry point (FIX^XLFNP176) loops through all the entries in the New"
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !,"Person file (#200) and looks for names that may have been standardized and"
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !,"parsed incorrectly by the Name Standardization Patch XU*8*134. If a name"
  • Line Location: INTRO+6
Function Call: WRITE
  • Prompt: !,"in the New Person file prior to the installation of Patch XU*8*134"
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: !,"contained periods within its suffix, the Post-Install Conversion of that"
  • Line Location: INTRO+8
Function Call: WRITE
  • Prompt: !,"patch converted those periods to spaces, and didn't recognize the name"
  • Line Location: INTRO+9
Function Call: WRITE
  • Prompt: !,"component as a suffix. This entry point prints a report of names that may"
  • Line Location: INTRO+10
Function Call: WRITE
  • Prompt: !,"have the problem, and optionally corrects them."
  • Line Location: INTRO+11
Function Call: WRITE
  • Prompt: !!,"NOTE: This routine should be run only after Patches XU*8*134 and XU*8*152"
  • Line Location: INTRO+13
Function Call: WRITE
  • Prompt: !,"have been installed."
  • Line Location: INTRO+14
Function Call: WRITE
  • Prompt: !!,$C(7)," It appears that the above two patches have NOT been installed on"
  • Line Location: INTRO+17
Function Call: WRITE
  • Prompt: !," your system. Exiting ...",!
  • Line Location: INTRO+18
Function Call: WRITE
  • Prompt: !!," It appears that those two patches HAVE been installed in this acccount"
  • Line Location: INTRO+21
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+22
Function Call: WRITE
  • Prompt: !!,"Each New Person file Name will be checked to determine whether any"
  • Line Location: INTRO+24
Function Call: WRITE
  • Prompt: !,"following strings occur at the end of the Name:",!
  • Line Location: INTRO+25
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+34
Function Call: WRITE
  • Prompt: !!," Edit the list at line tag LIST^XLFNP176.",!
  • Line Location: INTRO+36
Routine Call
  • DIALOG
  • Line Location:
    • FILE+17
Routine Call
  • DIE
  • Line Location:
    • FILE+9
Routine Call
  • DIR
  • Line Location:
    • EOP+3
    • ASKFIX+6
    • INTRO+22
    • INTRO+34
Routine Call
  • %ZIS
  • Line Location:
    • DEVSEL+3
    • DEVSEL+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZTSK - [#14.4] DEVSEL+2, DEVSEL+7
^VA(20 - [#20] FILE+4
^VA(200 - [#200] MAIN+5, MAIN+6, FILE+3

Label References

Name Line Occurrences
$$ASKFIX FIX+2
BLDCOMP MAIN+10
DEVSEL FIX+3
END MAIN+15
EOP W+1
FILE MAIN+12
HDR EOP+6, INIT+5
INIT MAIN+2
INTRO FIX+1
LIST MAIN+3, INTRO+26
W WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+8, FILE+12, FILE+13
, FILE+18, FILE+19
WRITE MAIN+11

Naked Globals

Name Field # of Occurrence
^(0 FILE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% INIT+1~
%H INIT+1~, INIT+2*
%ZIS DEVSEL+1~, DEVSEL+2*
DIERR FILE+1~, FILE+15
DIR EOP+2~, ASKFIX+1~, INTRO+1~, INTRO+22!, INTRO+34!
DIR("?" ASKFIX+4*, ASKFIX+5*, INTRO+32*, INTRO+33*
DIR("A" ASKFIX+3*, INTRO+30*
DIR("B" INTRO+31*
DIR(0 EOP+3*, ASKFIX+2*, INTRO+22*, INTRO+29*
DIROUT EOP+2~, ASKFIX+1~, INTRO+1~
DIRUT FIX~, FIX+1, FIX+2, FIX+3, MAIN+5, MAIN+7, MAIN+11, MAIN+12, WRITE+1, WRITE+2
, WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+7, WRITE+8, FILE+18, FILE+19, W+1, EOP+1
, EOP+4*, ASKFIX+1!, DEVSEL+1!, DEVSEL+4*, DEVSEL+7*, INTRO+19*, INTRO+22, INTRO+34, INTRO+37*
DTOUT EOP+2~, ASKFIX+1~, INTRO+1~
DUOUT EOP+2~, ASKFIX+1~, INTRO+1~
I INTRO+1~, INTRO+27*
IO FIX+4
IO("Q" DEVSEL+7
IOF EOP+5, INIT+4
IOM HDR+5, HDR+6
>> IOP DEVSEL+15*
IOSL W+1
IOST EOP+1, INIT+4
L INTRO+1~, INTRO+26*, INTRO+27
POP DEVSEL+1~, DEVSEL+4, END+2~
S INTRO+1~, INTRO+27*
U MAIN+6, MAIN+7, FILE+3, FILE+4, INTRO+27
X EOP+2~, ASKFIX+1~, INIT+1~, INTRO+1~
XUFDA FILE+1~
XUFDA(20 FILE+5*, FILE+6*, FILE+7*, FILE+8*
XUFIX FIX~, FIX+2*, MAIN+12, HDR+3
XUHLIN MAIN+1~, HDR+5, INIT+3*
XUI FILE+16~, FILE+19*
XUIEN MAIN+1~, MAIN+5*, MAIN+6, MAIN+11, MAIN+12, WRITE~, WRITE+2, FILE~, FILE+3, FILE+4
XULIST MAIN+1~, MAIN+3*, MAIN+7
XUMSG FILE+1~
XUNAM MAIN+1~, MAIN+6*, MAIN+8, MAIN+10, MAIN+11, BLDCOMP~, BLDCOMP+2, WRITE~, WRITE+3
XUNC FILE+1~, FILE+3*, FILE+4, FILE+5, FILE+6, FILE+7, FILE+8
XUNEW MAIN+1~, MAIN+10, MAIN+11, MAIN+12, BLDCOMP~, BLDCOMP+1!, BLDCOMP+2*, BLDCOMP+4, BLDCOMP+5*, WRITE~
, WRITE+4, FILE~
XUNEW("FAMILY" WRITE+7, FILE+5
XUNEW("GIVEN" WRITE+5, FILE+6
XUNEW("MIDDLE" WRITE+6, FILE+7
XUNEW("SUFFIX" BLDCOMP+6*, WRITE+8, FILE+8
XUOUT FILE+16~, FILE+19
XUOUT( FILE+19
XUPAGE MAIN+1~, HDR+2*, HDR+5
XUPC MAIN+1~, MAIN+7*
XUPROB MAIN+1~, MAIN+9*, MAIN+14
XUSTR W~, W+2
XUSUF MAIN+1~, MAIN+7*, MAIN+8, MAIN+10, BLDCOMP~, BLDCOMP+2, BLDCOMP+3*, BLDCOMP+5, BLDCOMP+6
XUTAB W~, W+2
Y EOP+2~, ASKFIX+1~, ASKFIX+7, INIT+1~, INIT+3, INTRO+1~, INTRO+35
>> ZTDESC DEVSEL+10*
>> ZTQUEUED EOP+4, END+1
>> ZTREQ END+1*
>> ZTRTN DEVSEL+9*
>> ZTSAVE("XUFIX" DEVSEL+11*
ZTSK DEVSEL+8~, DEVSEL+13
>> ZTSTOP EOP+4*

Marked Items

Name Field # of Occurrence
$T(LIST MAIN+3, INTRO+26
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All