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 |  Local Variables |  All
Print Page as PDF
Routine: DGMTHL1

Package: Registration

Routine: DGMTHL1


Information

DGMTHL1 ;ALB/CJM/TDM - Hardship Determinations - Build List Area;13 JUN 1997 08:00 am ; 8/29/02 4:50pm

Source Information

Source file <DGMTHL1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 6 SET^DGENL1  (AFTER,EN,PRIOR)^DGMTEVT  ($$DELETE,$$EXT,$$GETCODE,$$STORE)^DGMTH  INIT^DGMTHL  $$GETSITE^DGMTU4  (FULL,PAUSE)^VALM1  
VA Fileman 2 ^DIE  ^DIR  
Income Verification Match 1 $$LOG^IVMPLOG  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGMTH  DGMTHL  

Entry Points

Name Comments DBIA/ICR reference
GETSTAT(HARDSHIP,EDITFLG) ;
GETEFF(HARDSHIP) ;
RUSURE() ;
SET(DGARY,HARDSHIP,DGLINE,DGCNT) ;
CHKADD(HARDSHIP) ;
EN(DGARY,HARDSHIP,DGCNT) ;Entry point to build list area
; Input;
; DGARY Global array subscript
; HARDSHIP - hardship array (pass by reference)
; Output -- DGCNT Number of lines in the list
GETREV(HARDSHIP) ;
COMMENTS(HARDSHIP) ;
AFTER(HARDSHIP) ;calls means test event driver
GETREAS(HARDSHIP) ;
EDIT(HARDSHIP) ;
CHKDEL(HARDSHIP) ;
DELETE(HARDSHIP) ;
PRIOR(HARDSHIP) ;set up for means test event driver
ADD(HARDSHIP) ;

External References

Name Field # of Occurrence
SET^DGENL1 SET+9, SET+11, SET+13, SET+15, SET+17, SET+20, SET+22, SET+24, SET+26, SET+28
, SET+30, SET+33, SET+35, SET+39, SET+43
AFTER^DGMTEVT AFTER+1
EN^DGMTEVT AFTER+3
PRIOR^DGMTEVT PRIOR+6
$$DELETE^DGMTH DELETE+7
$$EXT^DGMTH SET+11, SET+13, SET+15, SET+17, SET+20, SET+22, SET+24, SET+26, SET+28, SET+30
, SET+33, SET+35, GETSTAT+16
$$GETCODE^DGMTH CHKADD+9, ADD+11, GETSTAT+10
$$STORE^DGMTH ADD+27, EDIT+15
INIT^DGMTHL ADD+33, EDIT+21, DELETE+8, COMMENTS+12
$$GETSITE^DGMTU4 ADD+14, CHKDEL+4
^DIE COMMENTS+11
^DIR GETSTAT+18, GETEFF+12, GETREV+20, GETREAS+12, RUSURE+9
$$LOG^IVMPLOG ADD+30, EDIT+18
FULL^VALM1 GETSTAT+17, COMMENTS+10
PAUSE^VALM1 ADD+9, ADD+12, ADD+31, EDIT+19, DELETE+7, COMMENTS+9
$$FMTE^XLFDT GETEFF+11, GETREV+12, GETREV+18
$$NOW^XLFDT ADD+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"YOUR DUZ IS NOT DEFINED!"
  • Line Location: ADD+9
Function Call: WRITE
  • Prompt: !,"PATIENT NOT CURRENTLY RESPONSIBLE FOR COPAYMENT CHARGES!"
  • Line Location: ADD+12
Function Call: WRITE
  • Prompt: !,$G(ERROR)
  • Line Location: ADD+31
Function Call: WRITE
  • Prompt: !,$G(ERROR)
  • Line Location: EDIT+19
Function Call: WRITE
  • Prompt: !,"AN ERROR OCCURRED - "_$G(ERROR)
  • Line Location: DELETE+7
Function Call: WRITE
  • Prompt: !,DIR("?")
  • Line Location: GETREV+24
Function Call: WRITE
  • Prompt: !,"YOUR DUZ IS NOT DEFINED!"
  • Line Location: COMMENTS+9
Routine Call
  • DIE
  • Line Location:
    • COMMENTS+11
Routine Call
  • DIR
  • Line Location:
    • GETSTAT+18
    • GETEFF+12
    • GETREV+20
    • GETREAS+12
    • RUSURE+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(408.32 - [#408.32] GETSTAT+23
^DGMT(408.31 - [#408.31] SET+37, SET+42, SET+43

Label References

Name Line Occurrences
$$GETEFF ADD+23, EDIT+11
$$GETREAS ADD+25, EDIT+13
$$GETREV ADD+24, EDIT+12
$$GETSTAT ADD+22, EDIT+10
$$RUSURE DELETE+7
AFTER ADD+32, EDIT+20
PRIOR ADD+26, EDIT+14
SET EN+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CODE CHKADD+7~, CHKADD+8*, CHKADD+9*, CHKADD+10, ADD+8~, ADD+10*, ADD+11*, ADD+12
DA COMMENTS+8~, COMMENTS+11*
>> DFN PRIOR+1*
DGARY EN~, EN+8, SET~, SET+9, SET+11, SET+13, SET+15, SET+17, SET+20, SET+22
, SET+24, SET+26, SET+28, SET+30, SET+33, SET+35, SET+39, SET+43
DGCNT EN~, EN+7*, EN+8, SET~, SET+9, SET+11, SET+13, SET+15, SET+17, SET+20
, SET+22, SET+24, SET+26, SET+28, SET+30, SET+33, SET+35, SET+39, SET+43
DGLINE EN+6~, EN+7*, EN+8, SET~, SET+8, SET+9, SET+10*, SET+11, SET+12*, SET+13
, SET+14*, SET+15, SET+16*, SET+17*, SET+19*, SET+20, SET+21*, SET+22, SET+23*, SET+24
, SET+25*, SET+26, SET+27*, SET+28, SET+29*, SET+30, SET+31*, SET+33, SET+34*, SET+35
, SET+36*, SET+39, SET+40*, SET+43, SET+44*
DGMTA AFTER+4!
DGMTACT PRIOR+4*, AFTER+4!
DGMTDT AFTER+4!
DGMTI PRIOR+2*, AFTER+4!
DGMTINF AFTER+2*, AFTER+4!
DGMTP AFTER+4!
DGMTS PRIOR+3*, AFTER+4!
DGMTYPT PRIOR+5*, AFTER+4!
DGSTART SET+6~, SET+8*
DIE COMMENTS+8~, COMMENTS+11*
DIR GETSTAT+9~, GETEFF+8~, GETREV+15~, GETREAS+8~, RUSURE+5~
DIR("?" GETREV+13*, GETREV+19*, GETREV+24
DIR("A" GETSTAT+15*, GETEFF+10*, GETREV+11*, GETREV+17*, GETREAS+10*, RUSURE+7*
DIR("B" GETSTAT+16*, GETEFF+11*, GETREV+12*, GETREV+18*, GETREAS+11*!, RUSURE+8*
DIR("S" GETSTAT+12*, GETSTAT+13*, GETSTAT+14*
DIR(0 GETSTAT+11*, GETEFF+9*, GETREV+10*, GETREV+16*, GETREAS+9*, RUSURE+6*
>> DIROUT GETREV+21
>> DIRUT GETSTAT+19, GETEFF+13, RUSURE+10
DR COMMENTS+8~, COMMENTS+11*
DT ADD+13, GETEFF+9, GETREV+24
>> DTOUT GETREV+21, GETREAS+13
>> DUOUT GETREV+21, GETREAS+13
DUZ ADD+9, ADD+14, ADD+17, ADD+18, CHKDEL+4, COMMENTS+9
EDITFLG GETSTAT~, GETSTAT+10
ERROR ADD+8~, ADD+27, ADD+31, EDIT+8~, EDIT+15, EDIT+19, DELETE+6~, DELETE+7
EVENTS ADD+28~, ADD+30, EDIT+16~, EDIT+18
EVENTS("IVM" ADD+29*, EDIT+17*
FLTRSTAT GETSTAT+9~, GETSTAT+10*, GETSTAT+13, GETSTAT+14
HARDSHIP EN~, EN+8, SET~, CHKADD~, ADD~, ADD+22, ADD+23, ADD+24, ADD+25, ADD+26
, ADD+27, ADD+32, EDIT~, EDIT+10, EDIT+11, EDIT+12, EDIT+13, EDIT+14, EDIT+15, EDIT+20
, CHKDEL~, DELETE~, DELETE+7, GETSTAT~, GETEFF~, GETREV~, GETREAS~, PRIOR~, AFTER~, COMMENTS~
HARDSHIP("AGREE" SET+17, GETSTAT+23*
HARDSHIP("BY" SET+28, ADD+17*, CHKDEL+4
HARDSHIP("CTG RY CHNGD BY" , SET+35, ADD+18*
HARDSHIP("CUR RENT STATUS" , SET+11, CHKADD+9, ADD+11, ADD+15, GETSTAT+10, GETSTAT+16, GETSTAT+21*, PRIOR+3
HARDSHIP("DFN" ADD+30, EDIT+18, PRIOR+1
HARDSHIP("DT/ TM CTGRY CHNGD" , SET+33, ADD+19*
HARDSHIP("EFFECTIVE" SET+22, ADD+13*, GETEFF+11, GETEFF+15*
HARDSHIP("HARDSHIP?" SET+20, ADD+20*, CHKDEL+4
HARDSHIP("MTIEN" SET+37, SET+42, SET+43, PRIOR+2, COMMENTS+11
HARDSHIP("REASON" SET+30, GETREAS+11, GETREAS+14*
HARDSHIP("REVIEW" SET+24, GETREV+12, GETREV+18, GETREV+26*
HARDSHIP("SITE" SET+26, ADD+14*, CHKDEL+4
HARDSHIP("TES T DATE" , SET+15, GETEFF+9, GETEFF+11, T STATUS" , ADD+15*, GETSTAT+10
HARDSHIP("YEAR" SET+13, ADD+30, EDIT+18
I AFTER+4!
>> IOINHI SET+39
>> IOINORM SET+39
>> IORVOFF SET+9
>> IORVON SET+9
J AFTER+4!
LINE SET+6~, SET+38~, SET+41*, SET+42*, SET+43
RET GETREV+8~, GETREV+9*, GETREV+21*, GETREV+22*, GETREV+23*, GETREV+25*, GETREV+26, GETREV+27
STOP GETREV+8~, GETREV+9*, GETREV+14, GETREV+21*, GETREV+22*, GETREV+23*, GETREV+25*
U GETSTAT+23
>> VALMBCK ADD+9*, ADD+34*, EDIT+22*, DELETE+9*, GETSTAT+24*, COMMENTS+9*, COMMENTS+14*
>> VALMBG COMMENTS+13*
>> VALMCNT COMMENTS+13
X GETREV+8~, GETREV+22
Y GETSTAT+20, GETSTAT+21, GETSTAT+23, GETEFF+14, GETEFF+15, GETREV+8~, GETREV+22*, GETREV+23, GETREV+24, GETREV+26
, GETREAS+14, AFTER+4!, RUSURE+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All