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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGA4006

Package: Registration

Routine: DGA4006


Information

DGA4006 ;ALB/MRL - LIST OF PATIENTS ON AMIS 401-420 SEGMENT ;01 JAN 1988@2300

Source Information

Source file <DGA4006.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 2 DV^DGA4001  QUIT^DGA4002  

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 DGA4005  

Entry Points

Name Comments DBIA/ICR reference
1
W
H
END

External References

Name Field # of Occurrence
DV^DGA4001 DGA4006+2
QUIT^DGA4002 DGA4006+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,I1,?5,I2,?22,$S($P(X,"^",2)]"":$P(X,"^",2),1:"----"),?28,X1,?46,$P(X,"^",4),?60,$P(X,"^",3)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?90,$E(X3,1,$L(X3)-1),?100,$P(X,"^",5)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: @IOF,!,"PATIENTS INCLUDED ON '",$P(DGDV,"^",2),"' DIVISION, AMIS 401-420 SEGMENTS, "
  • Line Location: H+0
Function Call: WRITE
  • Prompt: Y,!,DGL1
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,"SEG",?5,"Patient Name",?22,"SSN4",?28,"Reg Date/Time",?46,"Benefit",?60,"Reg Elig Code",?90,"*Blocks",?100,"Disposition Type",!,DGL1
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,DGL1,!,"* - Block 01 (applications received) is presumed for all patients!",!!,"**Dispositions with an UNSCHEDULED status will no longer be counted on this AMIS as of Oct 1, 1989**",!
  • Line Location: END+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" H
^UTILITY($J DGA4006+2, 1

Label References

Name Line Occurrences
1 DGA4006+2
END DGA4006+2, DGA4006+3, W
H DGA4006+2, W
W 1

Naked Globals

Name Field # of Occurrence
^( 1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGA H
>> DGC DGA4006+2*, DGA4006+3, W, W+1*, END*
>> DGDV H
>> DGL1 H, H+1, END
>> I DGA4006+2*, 1
>> I1 DGA4006+2*, 1, W+1
>> I2 DGA4006+2*, 1, W+1
>> I3 1*
>> I4 DGA4006+2*
IOF H
IOSL W
>> X 1*, W+1
>> X1 1*, W+1
>> X2 1*
>> X3 W+1*
>> Y H*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All