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,RN - 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+18
ADD^A1B2UTL ODS+5
EN1^DGEN DISP+22
$$STATUS^DGENA ANS+3
$$GET^DGENPTA ANS+4
EN^DGMTR MT+3
$$MTS^DGMTU MT+4
EDT^DGMTU MT+4
EL^DGREGE DISP+20
LO^DGUTL DGDIS+3
PT^DGYZODS ODS+4
^DIC FINDDISP+6, DISP+9, DISP+10, DISP+12
^DIE ANS+9, ANS+10, ANS+11, ANS+13, DISP+17, 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+18
Function Call: WRITE
  • Prompt: !!,"Primary Eligibility Code is unspecified."
  • Line Location: ANS+19
Function Call: WRITE
  • Prompt: !!,"Period of Service is unspecified."
  • Line Location: ANS+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !!,"A disposition must be entered to continue.",!!,*7,*7
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !!,"A disposition must be entered to continue.",!!,*7,*7
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !!,"A disposition must be entered to continue.",!!,*7,*7
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !!,"A disposition must be entered to continue.",!!,*7,*7
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !!,"***** Registration dispositioned *****",!!,*7
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: !!,"* Disposition deleted *",!!,*7,*7
  • Line Location: DEL+2
Routine Call
  • DIC
  • Line Location:
    • FIND
    • DISP+6
    • DISP+9
    • DISP+10
    • DISP+12
Routine Call
  • DIE
  • Line Location:
    • ANS+9
    • ANS+10
    • ANS+11
    • ANS+13
    • DISP+17
    • ODS+6
Routine Call
  • %ZIS
  • Line Location:
    • DISP+18

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+18
^DD(2.101 DP+1, DEL
^DG(40.8 - [#40.8] DISP+19
^DG(43 - [#43] GETLDISP+18
^DIC(37 - [#37] ACT+2
^DPT - [#2] FIND+1, ANS+9, ANS+10, ANS+11, ANS+13, ANS+16, ANS+17, DISP+17, CHTDEL
DEL+1, VALIDATE+5

Label References

Name Line Occurrences
ACT DISP+25
DEL ANS+9, ANS+10, ANS+11, ANS+13, ANS+18, ANS+19, ANS+20, DISP+6, DISP+9, DISP+10
DISP+12
DISP DISP+6, DISP+9, DISP+10, DISP+12
FIND DONEDEL+2
MT DISP+21
ODS DISP+14
Q FINDANS+15, DISP+13, DONEDEL+2
VALIDATE DISP+24

Naked Globals

Name Field # of Occurrence
^( FIND+1, ANS+16, ANS+17, DEL
^("DEV" DISP+19
^("P" ACT+2
^(0 FIND+1, ANS+9, ANS+10, ANS+11, ANS+13, DISP+17, DISP+18, DEL*, DEL+1
^(99 DISP+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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