Routine: DGOTHMG2

Information

DGOTHMG2 ;SHRPE/YMG - OTH Management actions (cont.) ;04/30/19

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 '\|', '^', '&', '\', '~'

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