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

Package: Registration

Routine: DGDIS


Information

DGDIS ;ALB/JDS - DISPOSITION A REGISTRATION ; 8/6/04 3:17pm

Source Information

Source file <DGDIS.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Registration 8 EN1^DGEN  $$STATUS^DGENA  $$GET^DGENPTA  EN^DGMTR  ($$MTS,EDT)^DGMTU  EL^DGREGE  LO^DGUTL  PT^DGYZODS  
Scheduling 4 FINAL^SCDXHLDR  (BEFORE,EVT)^SDAMEVT3  EN^SDCODEL  $$GETOE^SDOE  
VA FileMan 4 H^%DTC  ^DIC  ^DIE  $$GET1^DIQ  
Kernel 2 ^%ZIS  $$FMTE^XLFDT  
ODS 1 ADD^A1B2UTL  

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 2 DG DISPOSITION APPLICATION  DGREGE  

Entry Points

Name Comments DBIA/ICR reference
GETL
FIND
DP
ANS ;
DISP
DONE
Q
CHT
DEL
ODS ;if operation desert shield admission, create an entry in the ODS ADMISSIONS file
MT ;Check if user requires a means test. Ask user if s/he wants to
ACT ;Execute Program Action
BEFORE(DFN,SDDT,SDEVT,SDISHDL) ; -- set 'before' vars for opt evt drv
; -- use tag for NEWing
EVT(DFN,SDDT,SDEVT,SDISHDL) ; -- opt evt drv
; -- use tag for NEWing
VALIDATE(DFN,DFN1) ; -- c/o validator
; -- use tag for NEWing

External References

Name Field # of Occurrence
H^%DTC CHT
^%ZIS DISP+15
ADD^A1B2UTL ODS+5
EN1^DGEN DISP+19
$$STATUS^DGENA ANS+3
$$GET^DGENPTA ANS+4
EN^DGMTR MT+3
$$MTS^DGMTU MT+4
EDT^DGMTU MT+4
EL^DGREGE DISP+17
LO^DGUTL DGDIS+3
PT^DGYZODS ODS+4
^DIC FINDDISP+4, DISP+7, DISP+8, DISP+10
^DIE ANS+7, ANS+8, ANS+9, ANS+11, DISP+14, ODS+6
$$GET1^DIQ ANS+6
FINAL^SCDXHLDR VALIDATE+18
BEFORE^SDAMEVT3 BEFORE+3
EVT^SDAMEVT3 EVT+3
EN^SDCODEL DEL+1
$$GETOE^SDOE VALIDATE+13
$$FMTE^XLFDT DP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no open registrations to disposition for this patient.",!!,*7,*7
  • Line Location: FIND+1
Function Call: WRITE
  • Prompt: !!,"LOG DATE",?20,"TYPE OF BENEFIT APPLIED FOR",!
  • Line Location: DP+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DP+0
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($E($P(L,U),1,12),"5Z"),?20,$P($P(L2,L3,2),";",1)
  • Line Location: DP+2
Function Call: WRITE
  • Prompt: !!,"Primary Eligibility Code and Period of Service are unspecified."
  • Line Location: ANS+15
Function Call: WRITE
  • Prompt: !!,"Primary Eligibility Code is unspecified."
  • Line Location: ANS+16
Function Call: WRITE
  • Prompt: !!,"Period of Service is unspecified."
  • Line Location: ANS+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !!,"A disposition must be entered to continue.",!!,*7,*7
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !!,"A disposition must be entered to continue.",!!,*7,*7
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !!,"A disposition must be entered to continue.",!!,*7,*7
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !!,"A disposition must be entered to continue.",!!,*7,*7
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !!,"***** Registration dispositioned *****",!!,*7
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !!,"* Disposition deleted *",!!,*7,*7
  • Line Location: DEL+2
Routine Call
  • DIC
  • Line Location:
    • FIND
    • DISP+4
    • DISP+7
    • DISP+8
    • DISP+10
Routine Call
  • DIE
  • Line Location:
    • ANS+7
    • ANS+8
    • ANS+9
    • ANS+11
    • DISP+14
    • ODS+6
Routine Call
  • %ZIS
  • Line Location:
    • DISP+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
2.101 GET1^DIQ
^DIC(37 - [#37] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DISP+15
^DD(2.101 DP+1, DEL
^DG(40.8 - [#40.8] DISP+16
^DG(43 - [#43] GETLDISP+15
^DIC(37 - [#37] ACT+2
^DPT - [#2] FIND+1, ANS+7, ANS+8, ANS+9, ANS+11, ANS+13, ANS+14, DISP+14, CHTDEL
DEL+1, VALIDATE+5

Label References

Name Line Occurrences
ACT DISP+22
DEL ANS+7, ANS+8, ANS+9, ANS+11, ANS+15, ANS+16, ANS+17, DISP+4, DISP+7, DISP+8
DISP+10
DISP DISP+4, DISP+7, DISP+8, DISP+10
FIND DONEDEL+2
MT DISP+18
ODS DISP+11
Q FINDDONEDEL+2
VALIDATE DISP+21

Naked Globals

Name Field # of Occurrence
^( FIND+1, ANS+13, ANS+14, DEL
^("DEV" DISP+16
^("P" ACT+2
^(0 FIND+1, ANS+7, ANS+8, ANS+9, ANS+11, DISP+14, DISP+15, DEL*, DEL+1
^(99 DISP+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H Q!, CHT
%Y Q!
>> %ZIS DISP+15*
>> A1B2DT ODS+5*
>> A1B2FL ODS+5*
C Q!
D0 Q!
D1 Q!
DA FIND*, FIND+1*, ANS+7, ANS+8, ANS+9, ANS+11, DISP+14*, Q!, CHTODS+5*
ODS+7!, BEFORE+2~
DA(1 ANS+7*, ANS+8*, ANS+9*, ANS+11*, DISP+14*, CHT
DDT DISP+14*, Q!
DFN FIND*, ANS+3, ANS+4, ANS+6, ANS+7, ANS+8, ANS+9, ANS+11, ANS+13, ANS+14
DISP+14, DISP+17*, DISP+19, DISP+21, Q!, DELDEL+1, MT+4, ACT+2, BEFORE~
, BEFORE+3, EVT~, EVT+3, VALIDATE~, VALIDATE+5
DFN1 FIND+1*, ANS+6, DISP+14, DISP+17*, DISP+21, Q!, DELDEL+1, ACT+1~, BEFORE+2~
, EVT+2~, VALIDATE~, VALIDATE+5
DG1 Q!
DGA1 Q!
DGDFN FIND*, DISP+17, Q!, ACT+2*, BEFORE+2~, EVT+2~, VALIDATE+2~
DGDFN1 FIND+1*, DISP+17, DISP+23!, Q!, BEFORE+2~, EVT+2~, VALIDATE+2~
DGDIS0 VALIDATE+4~, VALIDATE+5*, VALIDATE+6, VALIDATE+9
DGDISTYP ODS+1~, ODS+2*
DGDIV DISP+14*, DISP+16, Q!, EVT+2~, VALIDATE+2~
DGDOM DISP+23!, EVT+2~, VALIDATE+2~
DGELIGX ANS+12~, ANS+13*, ANS+15!, ANS+16!, ANS+17!
>> DGENPTA ANS+4
>> DGENPTA("INELDATE" ANS+4
DGENRYN ANS+3~, ANS+5*
DGHEM DISP+23!, EVT+2~, VALIDATE+2~
DGINELIG ANS+3~, ANS+4*, ANS+10, DISP+9
DGIO Q!
DGIO(10 DISP+15*, DISP+16*
DGKAAS DISP+23!, EVT+2~, VALIDATE+2~
DGL DISP+23!, Q!, CHT*, CHT+2*, EVT+2~, VALIDATE+2~
DGNHCU DISP+23!, EVT+2~, VALIDATE+2~
DGODS Q+1!, ODS+2*, ODS+4
>> DGODSE ODS+5*
DGODSND DP+3*, Q+1!, ODS+5, BEFORE+2~
DGOE VALIDATE+4~, VALIDATE+9*, VALIDATE+10, VALIDATE+13
DGOE0 VALIDATE+4~, VALIDATE+13*, VALIDATE+14
DGPOSX ANS+12~, ANS+14*, ANS+15!, ANS+16!, ANS+17!
DGREQF MT+2~
DGSTRX ANS+12~, ANS+15!, ANS+16!, ANS+17!
DGT Q!
DGVST VALIDATE+4~, VALIDATE+14*, VALIDATE+15, VALIDATE+18
DGW DISP+23!, EVT+2~, VALIDATE+2~
>> DGXXXD DISP+17*
DIC FIND*, DISP+3*, DISP+6*, DISP+8*, DISP+10*, Q!
DIC("A" FIND*!, DISP+3*, DISP+4!, DISP+6*, DISP+7!, DISP+8*!, DISP+10*!
DIC("B" DISP+4*!, DISP+7!, DISP+8!, DISP+10!
DIC("S" FIND*!, DISP+3*, DISP+6*, DISP+8*, DISP+10*
DIC(0 FIND*, DISP+3*, DISP+6*, DISP+8*, DISP+10*
DIE ANS+7*, ANS+8*, ANS+9*, ANS+11*, DISP+17*, Q!, ODS+1~, ODS+6*, ODS+7!
DIE("NO^" DISP+12*, DISP+14!
>> DISL GETL*, CHT+2
DISP DISP+14*, Q!, ACT+2, EVT+2~, VALIDATE+2~
DIV EVT+2~, VALIDATE+2~
DP ANS+7*, ANS+8*, ANS+9*, ANS+11*, DISP+14*, Q!
DQ Q!
DR ANS+7*, ANS+8*, ANS+9*, ANS+11*, DISP+12*, DISP+13*, DISP+14*, Q!, ODS+6*
DT MT+4
DUZ ANS+7, ANS+8, ANS+9, ANS+11, CHT+2
I FIND+1*, DP*, Q!, DEL*, EVT+2~, VALIDATE+2~
I1 Q!
>> IOP DISP+15*
>> IOS DISP+15
L GETL*, FIND+1*, DP+1, DP+2, DP+3, Q!, CHT*, DEL*
>> L1 CHT*, CHT+1
>> L2 DP+1*, DP+2, CHT*, CHT+1
>> L3 DP+1*, DP+2
>> LL1 CHT*, CHT+1
>> LL2 CHT*, CHT+1
MASD DISP+23!, EVT+2~, VALIDATE+2~
MASDEV DISP+23!, EVT+2~, VALIDATE+2~
PARA DISP+23!, EVT+2~, VALIDATE+2~
POP DISP+23!, EVT+2~, VALIDATE+2~
SD321 Q!, EVT+2~, VALIDATE+2~
SDDIV Q!, EVT+2~, VALIDATE+2~
SDDT BEFORE~, BEFORE+3, EVT~, EVT+3
SDEVT BEFORE~, BEFORE+3, EVT~, EVT+3
SDISDEL Q+1!
SDISHDL GETL~, DEL+1, BEFORE~, BEFORE+3, EVT~, EVT+3
SDL FIND+1*, Q!, EVT+2~, VALIDATE+2~
SEEN ANS+6~*, ANS+7, ANS+8, DISP+2, DISP+5
STATUS ANS+3~*, ANS+5, ANS+7, ANS+8, ANS+9, ANS+10, DISP+1, DISP+8, DISP+9
U DP+2, DISP+15, DISP+16, DELMT+4, VALIDATE+6, VALIDATE+9, VALIDATE+14
VA Q!
VAROOT Q!
X DISP+4, DISP+7, DISP+8, DISP+10, DISP+16*, Q!, CHT*, DEL*
>> X1 CHT+1*
>> X2 CHT+1*
>> X3 CHT+1*, CHT+2
Y FINDDISP+4, DISP+7, DISP+8, DISP+10, DISP+14, DISP+15*, Q!, CHT+2*, ODS+2
ODS+4~, ODS+5
Y(0 DISP+12, ODS+3
Z Q!
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