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,LBD,HM - Hardship Determinations - Build List Area;13 JUN 1997 08:00 am ;4/27/20 8:41am

Source Information

Source file <DGMTHL1.m>

Call Graph

Call Graph

Call Graph Total: 10

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

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

Package Total Caller Graph
Registration 6 DGMTH  DGMTH ADD HARDSHIP  DGMTH DELETE HARDSHIP  DGMTH EDIT COMMENTS  DGMTH EDIT HARDSHIP  DGMTHL  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
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
SET(DGARY,HARDSHIP,DGLINE,DGCNT) ;
CHKADD(HARDSHIP) ;
ADD(HARDSHIP) ;
EDIT(HARDSHIP) ;
CHKDEL(HARDSHIP) ;
DELETE(HARDSHIP) ;
GETSTAT(HARDSHIP,EDITFLG) ;
GETEFF(HARDSHIP) ;
GETREV(HARDSHIP) ;
GETREAS(HARDSHIP) ;
PRIOR(HARDSHIP) ;set up for means test event driver
AFTER(HARDSHIP) ;calls means test event driver
COMMENTS(HARDSHIP) ;
RUSURE() ;
EXSURE() ;
SETREV(HARDSHIP) ;SET REVIEW DATE TO DEC 31 OF CURRENT YEAR SO THAT HARDSHIP WILL EXPIRE DECEMBER 31 11:59 PM OF CURRENT YEAR
SETREVEX(HARDSHIP) ;SET REVIEW DATE TO HARDSHIP EXPIRATION DATE ENTERED IN
GETSRC(MTIEN) ; GET SOURCE OF TEST DATA TO DETERMINE IF FROM DCD ;DG*5.3*996
HRDSHPR ; RESPONSE FOR HARDSHIP EDIT OR DELETE

External References

Name Field # of Occurrence
SET^DGENL1 SET+9, SET+11, SET+13, SET+15, SET+17, SET+21, SET+22, SET+24, SET+26, SET+28
, SET+30, SET+32, SET+34, SET+37, SET+39, SET+43, SET+47
AFTER^DGMTEVT AFTER+1
EN^DGMTEVT AFTER+3
PRIOR^DGMTEVT PRIOR+6
$$DELETE^DGMTH DELETE+12
$$EXT^DGMTH SET+11, SET+13, SET+15, SET+17, SET+22, SET+24, SET+26, SET+28, SET+30, SET+32
, SET+34, SET+37, SET+39, GETSTAT+16
$$GETCODE^DGMTH CHKADD+12, ADD+11, GETSTAT+10
$$STORE^DGMTH ADD+29, EDIT+20
INIT^DGMTHL ADD+35, EDIT+26, DELETE+13, COMMENTS+12
$$GETSITE^DGMTU4 ADD+14, EDIT+12, EDIT+13, CHKDEL+4, DELETE+10, DELETE+11
$$OLD^DGMTU4 CHKADD+8
^DIE COMMENTS+11
^DIR GETSTAT+18, GETEFF+12, GETREV+20, GETREAS+12, RUSURE+9, EXSURE+9
$$LOG^IVMPLOG ADD+32, EDIT+23
FULL^VALM1 GETSTAT+17, COMMENTS+10
PAUSE^VALM1 ADD+9, ADD+12, ADD+33, EDIT+11, EDIT+24, DELETE+9, DELETE+12, COMMENTS+9
$$FMTE^XLFDT GETEFF+11, GETREV+12, GETREV+18
$$FMTH^XLFDT SETREV+6
$$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+33
Function Call: WRITE
  • Prompt: !,$G(ERROR)
  • Line Location: EDIT+24
Function Call: WRITE
  • Prompt: !,"AN ERROR OCCURRED - "_$G(ERROR)
  • Line Location: DELETE+12
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
    • EXSURE+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(408.32 - [#408.32] GETSTAT+23
^DGMT(408.31 - [#408.31] SET+41, SET+46, SET+47, GETSRC+2
^XUSEC("DG MEANSTEST" EDIT+13, DELETE+11

Label References

Name Line Occurrences
$$GETEFF ADD+24, EDIT+15
$$GETREAS ADD+27, EDIT+18
$$GETSRC EDIT+9, DELETE+7
$$GETSTAT ADD+23, EDIT+14
$$RUSURE DELETE+12
AFTER ADD+34, EDIT+25
PRIOR ADD+28, EDIT+19
SET EN+8
SETREV ADD+26, EDIT+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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