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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call