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

Package: Registration

Routine: DGREGE


Information

DGREGE ;ALB/JDS - EDIT REGISTRATIONS/DISPOSITIONS ; 04/30/2004

Source Information

Source file <DGREGE.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 3 SEG^DGA4004  (BEFORE,EVT,VALIDATE)^DGDIS  $$SCE^DGSDU  
Scheduling 3 EN^SDCO  ($$ASK,INT)^SDCO6  $$GETDISP^SDVSIT2  
VA FileMan 3 ^%DT  ^DIC  ^DIE  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Registration 4 DG DISPOSITION EDIT  DG53151E  DGDIS  DGREG  

Entry Points

Name Comments DBIA/ICR reference
A
F11
HELP
NUM ; choose by number of find last registration
W1
Q
DT
EL
ELQ
CO(DFN,SDDT,SDISHDL) ; -- ask check out questions
COQ

External References

Name Field # of Occurrence
^%DT F11
SEG^DGA4004 EL+5
BEFORE^DGDIS W1+1
EVT^DGDIS W1+7
VALIDATE^DGDIS W1+8
$$SCE^DGSDU CO+4
^DIC A
^DIE W1+2, EL+4, EL+5
EN^SDCO CO+7
$$ASK^SDCO6 CO+7
INT^SDCO6 CO+4
$$GETDISP^SDVSIT2 CO+2
$$FMTE^XLFDT HELPNUM+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"No registrations to print from.",!!
  • Line Location: A+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Registration date/time: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F11+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: F11+0
Function Call: WRITE
  • Prompt: $J(J,2),". ",$$FMTE^XLFDT($E(L,1,12),"5Z")
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: ?$X\40+1*40
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>75
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"Enter the date and time, Entry #, or 'L' for the last registration,",!," to select the registration you wish to edit"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT(9999999-DFN1,"5Z"),!!
  • Line Location: NUM+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !!,"Updating eligibility status for this registration...",!
  • Line Location: EL+0
Function Call: WRITE
  • Prompt: !!,"Disposition on AMIS Segment ",DGSEG," - ",$S($D(^DG(391.1,+DGSEG,0)):$P(^(0),"^",1),1:"SEGMENT NAME UNKNOWN")
  • Line Location: EL+5
Function Call: WRITE
  • Prompt: !!,"Patient falls into a means test category...AMIS 401-420 segment will be",!,"determined at time the report is generated..."
  • Line Location: EL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ELQ+0
Routine Call
  • DIC
  • Line Location:
    • A
Routine Call
  • DIE
  • Line Location:
    • W1+2
    • EL+4
    • EL+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DT
^DG(391.1 - [#391.1] EL+5
^DG(43 - [#43] CO+6
^DIC(37 - [#37] CO+6
^DIC(8 - [#8] EL+2
^DPT - [#2] A+1, F11HELPNUM+2, NUM+3, W1W1+4, EL+1, EL+2, CO+3
^TMP("SDEVT HANDLE" W1+1*
^TMP("SDEVT" CO+4

Label References

Name Line Occurrences
A A+1, F11W1+9
CO W1+6
COQ CO+2
EL W1+2
ELQ EL+4
F11 HELP+1
HELP NUM+4
NUM F11
Q A
W1 F11

Naked Globals

Name Field # of Occurrence
^( HELPEL+1, EL+2
^(0 EL+1, EL+2, EL+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!
>> %DT F11*
%H Q!
%X Q!
%Y Q!
C Q!
D0 Q!
D1 Q!
DA A*, A+1, F11HELPNUM+2, NUM+3, W1*, W1+2*, Q!, EL+1*
DA(1 W1*, EL+1*
DE W1+2!, EL+5!
DFN A*, W1W1+1, W1+2, W1+4, W1+6, W1+7, W1+8, Q!, EL+1
EL+2, CO~, CO+2, CO+3
DFN1 F11*, NUM+1*, NUM+2*, NUM+3*, NUM+4, NUM+5, W1W1+1, W1+4, W1+6
W1+7, W1+8, Q!, EL+1, CO+1~
DGL W1+3~, W1+4*, W1+5, W1+6
DGSEG EL+5, ELQ!
DGXXX EL+1*, ELQ!
DGXXX1 EL+1*, EL+4, ELQ!
DGXXX2 EL+1*, EL+2, ELQ!
DGXXX3 EL+2*, ELQ!
DGXXXD W1+2*, EL+4, EL+5*, ELQ!
DIC A*!
DIC(0 A*
DIE W1+2*!, Q!, EL+5!
DIE("NO^" EL+1*, ELQ!
DP W1*, Q!, EL+1*
DQ W1+2!, EL+5!
DR W1*, W1+2!, EL+1*, EL+2*, EL+3*, EL+4*, EL+5!*, ELQ!
DTIME F11
I HELP*, NUM+3*, Q!
J HELP*, Q!
L HELP*, W1*, W1+1, Q!
SDCOQUIT CO+1~, CO+4, CO+5
SDDT CO~, CO+2, CO+3
SDIS CO+1~, CO+3*, CO+4, CO+6
SDISHDL DGREGE+2~, W1+1*, W1+6, W1+7, CO~, CO+4, CO+7
SDOE CO+1~, CO+2*, CO+4, CO+7
SDPMTDF CO+1~, CO+6*, CO+7
U W1W1+1, W1+5, W1+6
X F11*, NUM+2, NUM+3, Q!
Y AF11, Q!, DT
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