Routine: DGOTHMG2

Package	Total	Call Graph
Registration	5	$$CHKKEY^DGOTHMG1 (BLD,BLDHDR)^DGOTHMGT ($$FILAUTH,$$FILDEN,$$FILPEND,$$GET365DT,$$GET90DT,$$GETPEND,$$LASTPRD)^DGOTHUT1 DEM^VADPT $$SITE^VASITE
Kernel	3	($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT ($$CJ,$$UP)^XLFSTR $$NAME^XUSER
List Manager	2	CHGCAP^VALM (CLEAR,FULL)^VALM1
Income Verification Match	1	EVENT^IVMPLOG
VA FileMan	1	^DIR

Package	Total	Caller Graph
Registration	8	DG OTH ADD 90 DAYS DGOTHMG1 DGOTHRP1 DGOTHRP2 DGOTHRP3 DGOTHRP5 DGOTHRP6 DGOTHRPT
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
AP	; add 90 day period
CLRPND(DGDFN)	; clear existing pending request
ASKCONT	; display "press <Enter> to continue" prompt
HEADER(DFN)	;
DISPERR(DGERR)	; display error message
ASKREQDT(MAXDT,DEFDT)	; prompt for date request submitted
ASKAUAP()	; prompt for authorization approved
ASKAUCMT()	; prompt for authorization comment
ASKAUBY()	; prompt for authorized by
ASKAURDT(MAXDT)	; prompt for authorization received date
ASKSTDT(MINDT,MAXDT)	; prompt for period start date
CHRCHK(STR)	; check if give string contains one of the characters '\|', '^', '&', '\', '~'

External References

Name	Field # of Occurrence
$$CHKKEY^DGOTHMG1	AP+9, AP+57
BLD^DGOTHMGT	AP+93, AP+135
BLDHDR^DGOTHMGT	AP+94, AP+114, AP+136
$$FILAUTH^DGOTHUT1	AP+83
$$FILDEN^DGOTHUT1	AP+127
$$FILPEND^DGOTHUT1	AP+110, CLRPND+5
$$GET365DT^DGOTHUT1	AP+22
$$GET90DT^DGOTHUT1	AP+17
$$GETPEND^DGOTHUT1	AP+37
$$LASTPRD^DGOTHUT1	AP+14
^DIR	ASKREQDT+14, ASKAUAP+12, ASKAUCMT+9, ASKAUBY+9, ASKAURDT+12, ASKSTDT+18
EVENT^IVMPLOG	AP+97, AP+117, AP+139
DEM^VADPT	HEADER+2
CHGCAP^VALM	AP+92, AP+134
CLEAR^VALM1	AP+6
FULL^VALM1	AP+6
$$SITE^VASITE	AP+35
$$FMADD^XLFDT	AP+54, AP+55, AP+57
$$FMDIFF^XLFDT	AP+53, AP+65
$$FMTE^XLFDT	AP+20, AP+21, AP+23, AP+28, AP+41, AP+87, ASKREQDT+10, ASKREQDT+13, ASKAURDT+11, ASKSTDT+10
$$NOW^XLFDT	AP+44
$$CJ^XLFSTR	AP+113, AP+130, ASKCONT+2
$$UP^XLFSTR	AP+35
$$NAME^XUSER	AP+35

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"365 Day Period: ",$S(NUM365>0:NUM365,1:"None") Line Location: AP+15
Function Call: WRITE	Prompt: !," 90 Day Period: ",$S(NUM90>0:NUM90,1:"None") Line Location: AP+16
Function Call: WRITE	Prompt: !!,"Days Remaining: ",$S(SDT90>0:DAYS,1:"N/A") Line Location: AP+25
Function Call: WRITE	Prompt: !!,"Patient has been authorized for 180 days or more of care",! Line Location: AP+33
Function Call: WRITE	Prompt: !!,"Existing pending request has been removed.",! Line Location: CLRPND+7
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Press <Enter> to continue.",80) Line Location: ASKCONT+2
Function Call: WRITE	Prompt: ?24,"START ADDITIONAL 90-DAY PERIOD" Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"Patient Name: ",DGNAME,?60,"DOB: ",DGDOB Line Location: HEADER+5
Function Call: WRITE	Prompt: !,DDASH,! Line Location: HEADER+6
Function Call: WRITE	Prompt: !!,"Error while filing OTH data:",!,DGERR Line Location: DISPERR+4
Routine Call	DIR Line Location: ASKREQDT+14 ASKAUAP+12 ASKAUCMT+9 ASKAUBY+9 ASKAURDT+12 ASKSTDT+18
Routine Call	VALM Line Location: AP+92 AP+134

Label References

Name	Line Occurrences
$$ASKAUAP	AP+46
$$ASKAUBY	AP+76
$$ASKAUCMT	AP+121
$$ASKAURDT	AP+79
$$ASKREQDT	AP+73, AP+101
$$ASKSTDT	AP+59
ASKCONT	AP+11, AP+30, AP+88, AP+113, AP+130, DISPERR+5
CLRPND	AP+91, AP+133
DISPERR	AP+38, AP+84, AP+111, AP+128, CLRPND+6
HEADER	AP+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CRDTM	AP+4~, AP+44*, AP+69, AP+108, AP+126
DAYS	AP+4~, AP+18*, AP+25
DDASH	HEADER+1~, HEADER+6*
DEFDT	ASKREQDT~, ASKREQDT+10
DFN	HEADER~
DGDFN	AP+13, AP+37, AP+83, AP+91, AP+97, AP+110, AP+117, AP+127, AP+133, AP+139 , CLRPND~, CLRPND+5
DGDOB	HEADER+1~, HEADER+3*, HEADER+5
DGERR	DISPERR~, DISPERR+4
DGFAC	AP+4~, AP+35*, AP+63, AP+107, AP+125
DGFRES	AP+4~, AP+83, AP+84, AP+85, AP+110, AP+111, AP+112, AP+127, AP+128, AP+129 , CLRPND+5, CLRPND+6
>> DGIEN33	AP+14, AP+17, AP+22
DGIEN365	AP+4~, AP+14*, AP+22
DGIEN90	AP+4~, AP+14*
DGNAME	HEADER+1~, HEADER+3*, HEADER+5
DGRES	CLRPND+4~
>> DGSVDDF("A"	AP+92
>> DGSVDDF("D"	AP+134
DGUSR	AP+4~, AP+35*, AP+62, AP+106, AP+124
DIR	ASKREQDT+7~, ASKAUAP+4~, ASKAUCMT+4~, ASKAUBY+4~, ASKAURDT+6~, ASKSTDT+7~
DIR("?"	ASKREQDT+11, ASKREQDT+12, ASKREQDT+13, ASKAUAP+7, ASKAUAP+8, ASKAUAP+9, ASKAUAP+10, ASKAUAP+11, ASKAUCMT+7, ASKAUCMT+8 , ASKAUBY+7, ASKAUBY+8, ASKAURDT+9, ASKAURDT+10, ASKAURDT+11, ASKSTDT+14, ASKSTDT+15, ASKSTDT+16, ASKSTDT+17*
DIR("A"	ASKREQDT+9, ASKAUAP+6, ASKAUCMT+6, ASKAUBY+6, ASKAURDT+8, ASKSTDT+13
DIR("B"	ASKREQDT+10*
DIR(0	ASKREQDT+8, ASKAUAP+5, ASKAUCMT+5, ASKAUBY+5, ASKAURDT+7, ASKSTDT+11
DIROUT	ASKREQDT+7~, ASKAUAP+4~, ASKAUCMT+4~, ASKAUBY+4~, ASKAURDT+6~, ASKSTDT+7~
DIRUT	ASKREQDT+7~, ASKAUAP+4~, ASKAUCMT+4~, ASKAUBY+4~, ASKAURDT+6~, ASKSTDT+7~
>> DSPMODE	AP+89, AP+93, AP+94, AP+114, AP+131, AP+135, AP+136
DT	AP+20, AP+21, AP+23, AP+27, AP+53, AP+54, AP+57, AP+73, AP+79, AP+101
DTDIFF	AP+4~, AP+53*, AP+54, AP+57
DTIME	ASKCONT+3
DTOUT	ASKREQDT+7~, ASKREQDT+15, ASKAUAP+4~, ASKAUAP+13, ASKAUCMT+4~, ASKAUCMT+10, ASKAUBY+4~, ASKAUBY+10, ASKAURDT+6~, ASKAURDT+13 , ASKSTDT+7~, ASKSTDT+19
DTSTR365	AP+4~, AP+22*, AP+65
DTSTR90	AP+4~, AP+17*, AP+18
DUOUT	ASKREQDT+7~, ASKREQDT+15, ASKAUAP+4~, ASKAUAP+13, ASKAUCMT+4~, ASKAUCMT+10, ASKAUBY+4~, ASKAUBY+10, ASKAURDT+6~, ASKAURDT+13 , ASKSTDT+7~, ASKSTDT+19
DUZ	AP+35
EDT365	AP+4~, AP+22*, AP+23
EDT90	AP+4~, AP+18*, AP+21, AP+53, AP+54, AP+57
MAXDT	AP+4~, AP+55*, AP+59, ASKREQDT~, ASKREQDT+8, ASKREQDT+13, ASKAURDT~, ASKAURDT+7, ASKAURDT+11, ASKSTDT~ , ASKSTDT+10, ASKSTDT+11
MAXDTE	ASKSTDT+8~, ASKSTDT+10*, ASKSTDT+17
MINDT	AP+4~, AP+54, AP+55, AP+57, AP+59, ASKSTDT~, ASKSTDT+10, ASKSTDT+11
MINDTE	ASKSTDT+8~, ASKSTDT+10*, ASKSTDT+16
NUM365	AP+4~, AP+14*, AP+15, AP+65, AP+67
NUM90	AP+4~, AP+14*, AP+16, AP+33, AP+67
OTHDATA	AP+4~, AP+60, AP+62, AP+63, AP+65, AP+67, AP+69, AP+70, AP+74, AP+77 , AP+80, AP+83, AP+87, AP+104, AP+105, AP+106, AP+107, AP+108, AP+110, AP+122* , AP+123, AP+124, AP+125, AP+126, AP+127
PNDREQ	AP+4~, AP+37*, AP+38, AP+39, AP+44, AP+91, AP+133
PNDSTR	AP+4~, AP+37*, AP+38, AP+41, AP+44, AP+73, AP+101
REQTYPE	AP+5~, AP+46*, AP+48, AP+103
SDT90	AP+5~, AP+18*, AP+19, AP+20, AP+25, AP+27, AP+28
STARTDT	AP+5~, AP+59*, AP+60, AP+65
STOP	AP+5~, AP+70, AP+73, AP+76, AP+79
STR	CHRCHK~, CHRCHK+6
SUBDT	AP+5~, AP+73, AP+74, AP+101, AP+105, AP+122
U	AP+14, AP+17, AP+18, AP+22, AP+35, AP+37, AP+38, AP+41, AP+44, AP+60 , AP+62, AP+63, AP+65, AP+67, AP+69, AP+70, AP+73, AP+74, AP+77, AP+80 , AP+84, AP+87, AP+101, AP+104, AP+105, AP+106, AP+107, AP+108, AP+111, AP+122 , AP+123, AP+124, AP+125, AP+126, AP+128, CLRPND+6, HEADER+3
VADM	HEADER+1~
VADM(1	HEADER+3
VADM(3	HEADER+3
>> VALMBCK	AP+7*
VALMDDF	AP+92!, AP+134!
X	ASKREQDT+7~, ASKAUAP+4~, ASKAUCMT+4~, ASKAUBY+4~, ASKAURDT+6~, ASKSTDT+7~
Y	ASKREQDT+7~, ASKREQDT+16, ASKAUAP+4~, ASKAUAP+14, ASKAUCMT+4~, ASKAUCMT+11, ASKAUBY+4~, ASKAUBY+11, ASKAURDT+6~, ASKAURDT+14 , ASKSTDT+7~, ASKSTDT+20
Z	AP+5~, AP+14, AP+17, AP+76, AP+77, AP+79, AP+80, AP+121, AP+123, ASKCONT+1~ , ASKCONT+3*

Customize PDF page

Package: Registration

Routine: DGOTHMG2

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: