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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGICD

Package: Registration

Routine: DGICD


Information

DGICD ;BIR/SJA - CODE SET VERSIONING UTILITY ;01/30/12 05:50 PM

Source Information

Source file <DGICD.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
DRG Grouper 2 $$VST^ICDEX  $$ICDDATA^ICDXCODE  
Lexicon Utility 2 $$DIAGSRCH^LEX10CS  ($$FREQ,$$MAX)^LEXU  
VA FileMan 2 EN^DDIOL  ^DIR  
Registration 1 $$SEL^DGICDL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 1 DGPTFIC  
Surgery 1 ^DIC(130.4  

Entry Points

Name Comments DBIA/ICR reference
ASKOK(TOTAL) ;
LEX ; -- Called indirectly out of input transforms
; -- INPUT
; X := the value to be search for (required)
; EFFDATE := the date of interest for the search (required)
LOOK ; Lookup
NXT ; Next
MW(X) ; Multiple Words
; returns 0 if 1 word
; 1 if more than 1 word

External References

Name Field # of Occurrence
EN^DDIOL ASKOK+5, ASKOK+6, ASKOK+7, LEX+15, LEX+16, LEX+17, LOOK+4
$$SEL^DGICDL LOOK+5
^DIR ASKOK+20
$$VST^ICDEX LOOK+18
$$ICDDATA^ICDXCODE LOOK+17
$$DIAGSRCH^LEX10CS LOOK+2
$$FREQ^LEXU LEX+21
$$MAX^LEXU LEX+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," Searching for """_ICDTXT_""" requires inspecting "_$G(TOTAL)_" records to determine"
  • Line Location: ASKOK+12
Function Call: WRITE
  • Prompt: !," if they match the search criteria. This could take quite some time. Suggest"
  • Line Location: ASKOK+13
Function Call: WRITE
  • Prompt: !," refining the search by further specifying """_ICDTXT_""".",!
  • Line Location: ASKOK+14
Function Call: WRITE
  • Prompt: !," Searching...."
  • Line Location: ASKOK+23
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKOK+24
Routine Call
  • DIR
  • Line Location:
    • ASKOK+20

Label References

Name Line Occurrences
@( LEX+11
ASKOK LEX+22
LOOK LOOK+20, NXT+4
NXT LOOK+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT LEX+5~
CHR MW+3~, MW+4*, MW+5
CT MW+3~, MW+4*, MW+5*, MW+6
>> DA LOOK+4
DGASK ASKOK+4, ASKOK+11, LEX+20*, LEX+25!
DGOK ASKOK+8*, ASKOK+21*, ASKOK+22*, ASKOK+23, LEX+5~, LEX+22, LEX+25!
DGTOT LEX+5~, LEX+21*, LEX+22
DGZZONE LEX+5~, LOOK+18
DIR ASKOK+16~
DIR("?" ASKOK+19*
DIR("A" ASKOK+17*
DIR("B" ASKOK+18*
DIR(0 ASKOK+17*
DIROUT ASKOK+21, LEX+5~, LOOK+6, LOOK+7, LOOK+8, LOOK+10, LOOK+13
>> DIRUT ASKOK+21
DTOUT ASKOK+21, LEX+5~, LOOK+7, LOOK+10
DUOUT LEX+5~, LOOK+6, LOOK+13, LOOK+15
>> EFFDATE LEX+24
FORMAT LEX+9~
ICDDT LEX+5~, LEX+24*, LOOK+2, NXT+2, NXT+3~*
ICDEXIT LEX+5~, LEX+24*, LOOK+1, LOOK+7*, LOOK+8*, LOOK+10*, LOOK+15*, LOOK+17*, LOOK+20, NXT+1
ICDND NXT+1~, NXT+2*, NXT+3
ICDNT LOOK+6, NXT+1~, NXT+2*
ICDTXT ASKOK+12, ASKOK+14, ASKOK+19, LEX+5~, LEX+6*, LEX+8, LEX+14, LEX+21, LOOK+2, NXT+2
, NXT+3~*
ICDUP LEX+5~, LOOK+13
ICDX NXT+1~, NXT+2*, NXT+3
ICDY LEX+5~, LOOK+1!, LOOK+2*, LOOK+3*, LOOK+4, LOOK+5
ICDY(" " LOOK+3
INP MW+3~*, MW+5
P1 MW+3~, MW+5*
P2 MW+3~, MW+5*
PSN MW+3~, MW+4*
STR MW+3~, MW+4*
TAG LEX+9~, LEX+10*, LEX+11
TOTAL ASKOK~, ASKOK+1, ASKOK+5, ASKOK+12
X ASKOK+16~, LEX+6, LEX+8!, LEX+10, LEX+14*, LOOK+4!, LOOK+6!, LOOK+7!, LOOK+8!, LOOK+10!
, LOOK+13!, MW~, MW+3
XX LEX+5~, LOOK+5*, LOOK+15, LOOK+17, LOOK+18, NXT+2
Y ASKOK+16~, ASKOK+22, LEX+8!, LOOK+4!, LOOK+17*, LOOK+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All