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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGA4005

Package: Registration

Routine: DGA4005


Information

DGA4005 ;ALB/MRL - AMIS 401-420 REPORT GENERATION ;01 JAN 1988@2300

Source Information

Source file <DGA4005.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 6 DV^DGA4001  QUIT^DGA4002  ^DGA4006  ^DGA4007  QUE^DGGECSA  H^DGUTL  
VA FileMan 1 FILE^DICN  

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

Package Total Caller Graph
Registration 1 DGA4004  

Entry Points

Name Comments DBIA/ICR reference
EN
EN1
S
WR
H ;
END
SET
REP ;Reprint
REP1
SAV
SAV1
OKDATE(SEGMENT) ;

External References

Name Field # of Occurrence
DV^DGA4001 S
QUIT^DGA4002 EN1+4
^DGA4006 EN1+3
^DGA4007 SAV
QUE^DGGECSA SAV+1
H^DGUTL SET, SAV1+4
FILE^DICN SAV1, SAV1+1, SAV1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S(D<10:"0"_D,1:D)_")",?4,$E(D1,1,25),?30,"|"
  • Line Location: S+1
Function Call: WRITE
  • Prompt: ?$X,$J(X,4),"|"
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: $C(13),$E(DGL,1,DGXI)
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: @IOF,!,"AMIS SEGMENTS 401-420, ",Y,", '",$P(DGDV,"^",2),"' DIVISION",!,DGL1
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?5,"Segment Number ===>",?30,"|"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: " ",DGXI,"|"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: $C(13),$E(DGL,1,DGXI)
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !?30,"|"
  • Line Location: H+5
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: ($L(DGLAB)<4)
  • Line Location: H+6
Function Call: WRITE
  • Prompt: DGLAB
  • Line Location: H+6
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: ($L(DGLAB)<3)
  • Line Location: H+6
Function Call: WRITE
  • Prompt: "|"
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !?5,"Data Element",?30,"|"
  • Line Location: H+8
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: ($L(DGLAB)<4)
  • Line Location: H+9
Function Call: WRITE
  • Prompt: DGLAB
  • Line Location: H+9
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: ($L(DGLAB)<3)
  • Line Location: H+9
Function Call: WRITE
  • Prompt: "|"
  • Line Location: H+9
Function Call: WRITE
  • Prompt: $C(13),$E(DGL,1,DGXI)
  • Line Location: H+11
Function Call: WRITE
  • Prompt: !,DGL1
  • Line Location: H+12
Function Call: WRITE
  • Prompt: $C(13),$E(DGL,1,DGXI)
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,DGL1,!,"FOR EACH SEGMENT BLOCKS SHOULD BALANCE AS FOLLOWS: ",?55,"Sum of BLOCKS 02-15 plus 22-25 plus 30-33 plus 38-40 = BLOCK 01."
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !?55,"Sum of BLOCKS 11-15 = Sum of BLOCKS 16-19.",!?55,"Sum of BLOCKS 11-15 = Sum of BLOCKS 20-21.",!?55,"Sum of BLOCKS 22-25 = Sum of BLOCKS 26-29.",!?55,"Sum of BLOCKS 30-33 = Sum of BLOCKS 34-37."
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !?55,"With the exception of Segment 420, BLOCKS 39-40 should always be ZERO.",!
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!,"***","Not able to generate AMIS - Data segments are out of balance for:",!
  • Line Location: END+4
Function Call: WRITE
  • Prompt: X_$S($O(DGUB(X)):",",1:"")
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !,DGL1
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !,"Totals last generated on '",Y,"' by '",$S($D(^VA(200,+$P(DGEN,"^",4),0)):$P(^(0),"^",1),1:"UNKNOWN USER"),"'.",?(127-$L(DGWHEN)-1),DGWHEN,!
  • Line Location: END+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(391.1 - [#391.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" H+1, END+7, SET
^DD(391.12 S+1
^DG(391.1 - [#391.1] EN+1, SET+1, REP+1, SAV1, SAV1+1, SAV1+2, SAV1+3*, SAV1+4, SAV1+5*, SAV1+6*
, OKDATE+4
^UTILITY($J EN+1*, EN1, EN1+1, EN1+3!, WR, SET+2!, REP+1*, SAV, SAV+3!
^VA(200 - [#200] END+7

Label References

Name Line Occurrences
$$OKDATE EN+1, EN1, WR, H+3, H+6, H+9
EN REP1, SAV+4
EN1 REP+2
END S+2
H S
S EN1+1
SAV1 SAV
SET EN, REP+1
WR S+1

Naked Globals

Name Field # of Occurrence
^( EN1*, WR, SAV
^("A1" EN+1, REP+1
^("DGDIS" SAV+3!
^(0 EN+1, S+1, END+7, REP+1, SAV1+1*, SAV1+2*, SAV1+4*, SAV1+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN1+3!
D EN1+3!, S+1*, WR
D1 EN1+3!, S+1*
DA SAV+3!, SAV1*, SAV1+1*, SAV1+2*
DA(1 SAV1+1*, SAV1+2*
DA(2 SAV1+2*
DD SAV1!, SAV1+1!, SAV1+2!
DFN SAV+3!
DFN1 SAV+3!
DG SAV+3!
>> DGA EN+1, H+1, SET+1, REP+1, SAV+1, SAV1+2, SAV1+3, SAV1+4, SAV1+5, SAV1+6
, OKDATE+5
DGBLK SAV+3!
>> DGCODFLG SAV+1
DGDATA SAV+3!
DGDATA1 SAV+3!
DGDATE SAV+3!
DGDD EN1+3!
DGDD( EN+1*, EN1, REP+1*
>> DGDEV SAV1+6
DGDIV SAV+1*, SAV+2!, SAV+3!
DGDIV( SAV+1, SAV1+3*
DGDV EN1+3!, H+1, END+4, END+5, SAV+3!
DGEN EN+1*, EN1+3!, END+7, SET*, REP+1*
DGFL EN1+4!, OKDATE+3~, OKDATE+5*, OKDATE+6
DGFL( END+4, END+5, SAV1+3*
>> DGFLG SAV*, SAV1+3
DGI SAV*, SAV+3!, SAV1, SAV1+1, SAV1+2, SAV1+3, SAV1+4, SAV1+5, SAV1+6
DGI1 SAV*, SAV+3!, SAV1+1, SAV1+2, SAV1+3, SAV1+4, SAV1+5, SAV1+6
>> DGII SET+1*
>> DGL WR+1, H+4, H+11, END, SET*, SET+2*
>> DGL1 H+1, H+12, END+1, END+6, SET*, SET+2*
>> DGLAB H+6*, H+9*
DGMYR SAV+1*, SAV+2!
DGN SAV*, SAV+3!, SAV1+6*
DGN1 SAV+3!
DGPR EN*, EN1+3!, REP+1
DGREG SAV+3!
DGSEG SAV+1*, SAV+2!, SAV+3!
DGSEGR SAV+3!
DGTIME EN1+3!, SET, SAV+3!, SAV1+4, SAV1+5
>> DGUB( END+5
DGWHEN EN1+3!, END+7, SET*
>> DGWIDTH SET+1*, SET+2
DGX SAV+3!
DGX1 SAV+3!
DGX2 SAV+3!
DGX3 SAV+3!
>> DGXI WR+1*, H+3*, H+4*, H+6*, H+9*, H+11*, END*
DGXXXD SAV+3!
DGZ SAV+3!
DGZ1 SAV+3!
DGZ2 SAV+3!
DIC EN1+3!, SAV+3!, SAV1*, SAV1+1*, SAV1+2*
DIC(0 SAV1*, SAV1+1*, SAV1+2*
DINUM SAV+3!, SAV1*, SAV1+1*, SAV1+2*
DO SAV1!, SAV1+1!, SAV1+2!
DUZ SAV1+4, SAV1+5
I EN+1*, EN1*, EN1+1*, EN1+3!, WR, REP+1*, SAV+3!
I1 EN+1*, EN1*, EN1+3!, REP+1*
INACTDT OKDATE+3~, OKDATE+4*, OKDATE+5
IO SAV1+6
IOF H+1
J SAV+3!
N EN1+3!, WR*
SEGMENT OKDATE~, OKDATE+4
U H+9, SET+1
X EN+1*, EN1+3!, WR*, END+5*, SET+1*, REP+1*, SAV+3!, SAV1*, SAV1+1*, SAV1+2*
X1 SAV+3!
X2 SAV+3!
Y EN1+3!, H+1*, END+7*, SET*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All