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

Package: Kernel

Routine: XUGOT1


Information

XUGOT1 ; BT/OAK-BP - COMPARE LOCAL/NATIONAL CHECKSUMS REPORT ;10/20/2006

Source Information

Source file <XUGOT1.m>

Entry Points

Name Comments DBIA/ICR reference
REPORT ;
ENT ;
PRT
END
PG(XUN) ;
HEADER ;
CN
LSUM(RTN) ;Get the new Checksum LOCAL
NSUM(IEN) ; get national checksum
NPLIST(IEN) ; get list patches from the field #7.3
NPL(IEN) ; get list patches from Patch multiple
NPL1(IEN,SUM,LPN) ; get list patches from Patch multiple
LPLIST(SL) ; get list of patch Number from the second line
LPATCH(PLIST) ; get the last patch number of the patch list from the second line
NLPATCH(IEN) ;get national last patch name
TRACK(IEN) ; get national information

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,">>> This processing will take about thirty minutes."
  • Line Location: REPORT+1
Function Call: WRITE
  • Prompt: !," It will save your time if you send this report"
  • Line Location: REPORT+2
Function Call: WRITE
  • Prompt: !," to a printer.",!
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: !,"Task ",$S($G(ZTSK):ZTSK,1:"NOT")," Queued"
  • Line Location: REPORT+10
Function Call: WRITE
  • Prompt: !,$$PG(Y4)
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !,"ROUTINE FILE TOTAL ENTRIES COUNT (",CKRTP(1),")",!
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !,"ROUTINES NOT FOUND IN THE SYSTEM (",CKRTP(2),")"
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !,"ROUTINES NOT MARKED FOR TRACKING (",CKRTP(3),")",!
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !,"ROUTINES WITH MATCHING CHECKSUMS (",CKRTP(4),")",!
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: "ROUTINES MARKED FOR LOCAL TRACKING (",CKRTP(5),")",!
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !,"ROUTINES WITH THE CHECKSUM OFF(",CKRTP(6),")"
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !,"ROUTINES WITH VERSION OFF(",CKRTP(7),")"
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !,"ROUTINES WITH MORE THAN 8 CHARACTERS NAME(",CKRTP(8),")"
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !,"ROUTINES WITH NO PACKAGE ASSOCIATED WITH(",CKRTP(9),")"
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: " ",RTN,?11,$P(Y3,"^",1),?23,$P(Y3,"^",2),!
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: " ",RTN,?11,$P(Y3,"^",1),?23,$P(Y3,"^",2),?35,$E($P(Y3,"^",3),1,11),?48,$P(Y3,"^",4),?57,$E($P(Y3,"^",5),1,23),!
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: " ",RTN,?11,$P(Y3,"^",1),?24,$P(Y3,"^",2),?37,$P(Y3,"^",3),!
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: " ",RTN,?11,$P(Y3,"^",1),?23,$P(Y3,"^",2),!
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: " ",RTN,!
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: " ",RTN,!
  • Line Location: PRT+24
Function Call: WRITE
  • Prompt: #,$$FMTE^XLFDT(DT),?(IOM\2),"Page: ",XUN,!!
  • Line Location: PG+1
Function Call: WRITE
  • Prompt: HDR1,!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: HDR2,!
  • Line Location: HEADER+9
Function Call: READ
  • Prompt: "Enter RETURN to continue or '^' to exit: "
  • Variable: ST
  • Timeout: 60
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: $$PG(Y4)
  • Line Location: CN+0
Info |  Source |  Entry Points |  Interaction Calls