Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XBCDIC2

Package: IHS VA Utilities

Routine: XBCDIC2


Information

XBCDIC2 ; IHS/ADC/GTH - CHECK DICTIONARY NAMES AND DATA GLOBALS ; [ 02/07/97 3:02 PM ]

Source Information

Source file <XBCDIC2.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS VA Utilities 1 XBCDIC  

Entry Points

Name Comments DBIA/ICR reference
XBCDNC ;
G2R1 ;
DICB ; CHECK DIC("B"
P1 ;
GNMR1 ;
GCHK ; CHECK DATA GLOBAL
GCHK2 ; CHECK 3RD AND 4TH PIECE
GCHK3 ; CHECK FILE NUMBER IN DATA GLOBAL
READGBL ;
NAMESET ;
PICKNAME ;
START ;
GNMFIX ;
GNMCHK ; CHECK DATA GLOBAL NAME AGAINST ^DIC
READNAME ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Now checking dictionary names and data globals."
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !?5,"Checking ",XBCDFILE
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !?10,"No name in ^DD. Using name in ^DIC."
  • Line Location: XBCDNC+7
Function Call: WRITE
  • Prompt: !?10,"No name in ^DIC. Using name in ^DD."
  • Line Location: XBCDNC+8
Function Call: WRITE
  • Prompt: !?10,"No name in ^DIC or ^DD. Using name in data global."
  • Line Location: XBCDNC+9
Function Call: WRITE
  • Prompt: !?10,"Name in ^DIC and ^DD differ. Using name in ^DIC."
  • Line Location: XBCDNC+10
Function Call: WRITE
  • Prompt: !?10,"Unable to deduce name. Searching DIC(""B"")."
  • Line Location: XBCDNC+11
Function Call: WRITE
  • Prompt: !?10,"Unable to deduce name. Enter File Name or ""^"": ",XBCDX
  • Line Location: READNAME+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: READNAME+3
Function Call: WRITE
  • Prompt: !?10,"File ",XBCDFILE," has no data global specified in ^DIC."
  • Line Location: GCHK+3
Function Call: WRITE
  • Prompt: !?10,"File ",XBCDFILE," data global=",XBCDG," is invalid."
  • Line Location: GCHK+4
Function Call: WRITE
  • Prompt: !?10,"Data global ",XBCDG," does not exist. Creating 0th node!"
  • Line Location: GCHK+9
Function Call: WRITE
  • Prompt: !?10,"File ",XBCDFILE," data global exists but has no 0th node.",!?12,"Creating 0th node. Piece 3 and 4 must be set!"
  • Line Location: GCHK+12
Function Call: WRITE
  • Prompt: !?10,"Data global 0th node inconsistent with data. Fixing."
  • Line Location: GCHK2+3
Function Call: WRITE
  • Prompt: !?10,"Data global 0th node inconsistent with data. Run ^XBCOUNT to fix."
  • Line Location: GCHK2+4
Function Call: WRITE
  • Prompt: !?10,"Data global 0th node inconsistent with data. Run ^XBCOUNT to fix."
  • Line Location: GCHK2+5
Function Call: WRITE
  • Prompt: !?10,"Data global has different number than ^DIC. ",$P(@XBCDY,U,1,2)
  • Line Location: GCHK3+3
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: G2R1+2
Function Call: WRITE
  • Prompt: !?10,"Removing ^DIC(",XBCDFILE,",""0"",""GL"") node."
  • Line Location: G2R1+5
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: READGBL+3
Function Call: WRITE
  • Prompt: !?12,"Multiple entries were found in ^DIC(""B""). Select one name or enter ""^""",!?12," All unselected names will be removed."
  • Line Location: DICB+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DICB+8
Function Call: WRITE
  • Prompt: !?12,"Deleting ^DIC(""B"",""",XBCDNTBL(XBCDX),""",",XBCDFILE,")"
  • Line Location: DICB+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DICB+11
Function Call: WRITE
  • Prompt: !?14,XBCDNTBL(XBCDX)
  • Line Location: PICKNAME+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: !?12,"Setting names to '",XBCDNTBL(XBCDANS),"'"
  • Line Location: NAMESET+1
Function Call: WRITE
  • Prompt: !?10,"Data global name does not match ^DIC.",!?12,"Data global: ",XBCDGNM,!?12," ^DIC: ",XBCDNDIC
  • Line Location: GNMCHK+2
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: GNMFIX+2
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: GNMR1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" START+2
^DD( XBCDNC+3!*, XBCDNC+4, XBCDNC+7*, XBCDNC+9*, XBCDNC+10!*, READNAME+2*, NAMESET+3!, NAMESET+4*, GNMR1+4!, GNMR1+5*
^DIC - [#1] XBCDNC+1, XBCDNC+8*, XBCDNC+9*, READNAME+2*, GCHK+1, G2R1+5!, READGBL+4*, NAMESET+2*, GNMR1+5*
^DIC("B" XBCDNC+8*, XBCDNC+9*, READNAME+2*, DICB+3, DICB+10!, NAMESET+2*, GNMR1+4!, GNMR1+5*
^UTILITY("XBDSET" START+7, READNAME+4*, GCHK+5*, READGBL+2*, GNMR1+3*

Label References

Name Line Occurrences
DICB XBCDNC+12
G2R1 G2R1+2
GCHK XBCDNC+2, GCHK+3, GCHK+4, G2R1+6
GCHK2 GCHK+11
GCHK3 GCHK2+3, GCHK2+4, GCHK2+5
GNMCHK XBCDNC+6, XBCDNC+7, XBCDNC+8, XBCDNC+10, XBCDNC+13, XBCDNC+15
GNMFIX GNMCHK+2, GNMFIX+2
GNMR1 GNMR1+2
NAMESET DICB+5, DICB+8
P1 P1+4
PICKNAME DICB+7
READGBL GCHK+3, GCHK+4, G2R1+4, READGBL+3
READNAME XBCDNC+14, READNAME+3
XBCDNC START+7

Naked Globals

Name Field # of Occurrence
^( DICB+3
^("UCI" START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DTIME G2R1+1, READGBL+1, P1+1, GNMFIX+1, GNMR1+1
U XBCDNC+1, XBCDNC+8, XBCDNC+9, READNAME+2, GCHK+9, GCHK+11, GCHK+13, GCHK2+1, GCHK2+3, GCHK3+3
, G2R1+3, NAMESET+2, GNMCHK+4, GNMFIX+3, GNMR1+5
XBCDANS START+8!, DICB+5*, DICB+8, P1+1*, P1+2, P1+3*, P1+4, NAMESET+1, NAMESET+2
XBCDC START+8!, DICB+2*, DICB+3*, DICB+4, DICB+5, PICKNAME+1
XBCDFILE START+6*, START+7*, START+8!, XBCDNC+1, XBCDNC+3, XBCDNC+4, XBCDNC+5, XBCDNC+7, XBCDNC+8, XBCDNC+9
, XBCDNC+10, READNAME+2, READNAME+4, GCHK+1, GCHK+3, GCHK+4, GCHK+5, GCHK+9, GCHK+12, GCHK+13
, GCHK3+2, G2R1+3, G2R1+5, READGBL+2, READGBL+4, DICB+3, DICB+10, NAMESET+2, NAMESET+3, NAMESET+4
, GNMR1+3, GNMR1+4, GNMR1+5
XBCDG START+8!, GCHK+1*, GCHK+2, GCHK+3, GCHK+4, GCHK+5*, GCHK+6, GCHK+7, GCHK+8, GCHK+9
, GCHK2+5, G2R1+5, READGBL+1*, READGBL+2*, READGBL+3, READGBL+4, GNMCHK+3, GNMFIX+3
XBCDGG START+8!, GCHK+1*, GCHK+2*, GCHK+4, GNMCHK+1
XBCDGNM START+8!, XBCDNC+5, XBCDNC+9, GCHK+1*, GCHK+11*, GNMCHK+2, GNMCHK+4, GNMFIX+3*, GNMR1+5
XBCDGNR START+8!, XBCDNC+5, XBCDNC+9, GCHK+1*, GCHK+11*, GCHK3+2, G2R1+3*, GNMCHK+2, GNMCHK+4
XBCDL START+7*, START+8!, DICB+3*, DICB+10*
XBCDNDD START+8!, XBCDNC+4*, XBCDNC+5, XBCDNC+6, XBCDNC+7*, XBCDNC+8, XBCDNC+9*, XBCDNC+10*, READNAME+2*, NAMESET+2*
, NAMESET+4, GNMR1+5*
XBCDNDIC START+8!, XBCDNC+1*, XBCDNC+3, XBCDNC+5, XBCDNC+6, XBCDNC+7, XBCDNC+8*, XBCDNC+9*, XBCDNC+10, XBCDNC+13
, READNAME+2*, NAMESET+2*, GNMCHK+2, GNMCHK+4, GNMFIX+3, GNMR1+4, GNMR1+5*
XBCDNTBL START+8!, DICB+1!, DICB+5!, DICB+12!
XBCDNTBL( DICB+3*, DICB+8!, DICB+10, PICKNAME+1, P1+4, NAMESET+1, NAMESET+2
>> XBCDUCI START+1*, START+3*, GCHK+5
XBCDX START+8!, READNAME+1, READNAME+2, READNAME+3, GCHK+7*, GCHK+9, GCHK+10*, GCHK+11, GCHK2+1*, GCHK2+3
, GCHK2+4, GCHK2+5, G2R1+1*, G2R1+2, G2R1+3*, DICB+2*, DICB+3*, DICB+9*, DICB+10*, PICKNAME+1*
, GNMCHK+3*, GNMCHK+4*, GNMFIX+1*, GNMFIX+2, GNMFIX+3*, GNMR1+1*, GNMR1+2, GNMR1+3
XBCDX1 GCHK2+1*, GCHK2+3, GCHK2+4, GCHK3+1!, G2R1+3*!
XBCDX2 GCHK2+2*, GCHK2+3, GCHK2+4, GCHK3+1!, G2R1+3*!
XBCDX3 G2R1+3*!
XBCDY START+8!, GCHK+8*, GCHK+9, GCHK+10, GCHK+11, GCHK+13, GCHK2+1, GCHK2+2, GCHK2+3*, GCHK3+3
, G2R1+3
Y START+1*, START+3, START+4!
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All