Routine: DGOTHRP5

Package	Total	Call Graph
Registration	9	$$ISOTHD^DGOTHD $$HASENTRY^DGOTHD2 CLOCK^DGOTHINQ ASKCONT^DGOTHMG2 ($$SELDIV,$$SORTRPT)^DGOTHRP1 $$ISOTH90^DGOTHRP2 ($$GETAUTH,$$GETDEN,$$GETPEND,$$LASTPRD)^DGOTHUT1 CHKTREAT^DGPPRP1 $$SITE^VASITE
Kernel	5	HOME^%ZIS ^%ZISC ($$FMDIFF,$$FMTE)^XLFDT $$CJ^XLFSTR EN^XUTMDEVQ
VA FileMan	4	^%DT WAIT^DICD ($$GET1,GETS)^DIQ ^DIR

Package	Total	Caller Graph
Registration	1	DG OTH OTH90 AUTH REPORTS

Name	Comments	DBIA/ICR reference
EN	;entry point from Menu Option: DGOTH OTH-90 STATUS REPORTS
DQ	;
APPROV	;Approved authorizations
CHECKOE()	;check if there any Outpatient Encounter entry for this patient
BUILD	;Build data either by Division or Facility
PEND	; Pending Requests
DENIED	;Denied requests
HDR	; Print page header
PRINT	;Print out results
DVISION	;
PRINT1	;Print out results
DTFRMTO(PROMPT)
INDT	;
TODT
SELECT(PROMPT,SET)	; prompts for a report type
OUT	; KILL RETURN ARRAY QUIT
HELP(DGSEL)	;OTH-90 Authorization Report help text
TEXT	;

Name	Field # of Occurrence
^%DT	INDT+4, TODT+1
HOME^%ZIS	EN+47
^%ZISC	OUT+1
$$ISOTHD^DGOTHD	DQ+14
$$HASENTRY^DGOTHD2	DQ+8
CLOCK^DGOTHINQ	APPROV+2
ASKCONT^DGOTHMG2	EN+15
$$SELDIV^DGOTHRP1	EN+34
$$SORTRPT^DGOTHRP1	EN+40
$$ISOTH90^DGOTHRP2	DQ+16
$$GETAUTH^DGOTHUT1	APPROV+6
$$GETDEN^DGOTHUT1	DENIED+5
$$GETPEND^DGOTHUT1	PEND+2
$$LASTPRD^DGOTHUT1	APPROV+4
CHKTREAT^DGPPRP1	CHECKOE+2
WAIT^DICD	DQ+1
$$GET1^DIQ	DQ+17
GETS^DIQ	DQ+9
^DIR	PRINT+14, PRINT1+7, PRINT1+21, PRINT1+31, PRINT1+42, SELECT+2
$$SITE^VASITE	DQ+2
$$FMDIFF^XLFDT	PEND+4
$$FMTE^XLFDT	BUILD+10, BUILD+12, BUILD+14, HDR+3
$$CJ^XLFSTR	EN+15
EN^XUTMDEVQ	EN+46

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(">>> No OTH-90 records have been found. <<<",80) Line Location: EN+15
Function Call: WRITE	Prompt: @IOF Line Location: EN+18
Function Call: WRITE	Prompt: !,"OTH 90-DAY PERIOD AUTHORIZATION REPORT" Line Location: EN+19
Function Call: WRITE	Prompt: !!,"This option generates a report that prints a listing of OTH-90 patients who" Line Location: EN+20
Function Call: WRITE	Prompt: !,"have an Outpatient Encounter with STATUS=CHECKED OUT for Clinic(s) associated" Line Location: EN+21
Function Call: WRITE	Prompt: !,"with the selected Division(s) within the user-specified date range in which" Line Location: EN+22
Function Call: WRITE	Prompt: !,"their 90-Day period of care has been APPROVED, PENDING or DENIED." Line Location: EN+23
Function Call: WRITE	Prompt: !!,"Please select divisions to include in the report" Line Location: EN+33
Function Call: WRITE	Prompt: ! Line Location: EN+43
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: ?15,"Other Than Honorable '",$S(DGRTYP="APPROV":"APPROVED",DGRTYP="PEND":"PENDING",1:"DENIED"),"' Authorizations",?70,"Page: ",PAGE Line Location: HDR+2
Function Call: WRITE	Prompt: !?15,"Selected date range: ",$$FMTE^XLFDT(DGDTFRM,"5Z")," to ",$$FMTE^XLFDT(DGDTTO,"5Z"),! Line Location: HDR+3
Function Call: WRITE	Prompt: "Facility: "_$P(HERE,U,2),?51,"Sorted By: ",$P(DGSORT("REPORT"),U,2),! Line Location: HDR+4
Function Call: WRITE	Prompt: "-" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"Name",?23,"PID",?30,"Date Req.",?42,"Date Auth.",?54,"90-Day",?66,"Authorized By" Line Location: HDR+7
Function Call: WRITE	Prompt: !,?30,"Submitted",?42,"Received",?54,"Start DT",! Line Location: HDR+8
Function Call: WRITE	Prompt: !,"Name",?33,"PID",?41,"Pending Auth.",?58,"# of Days Auth.",!,?41,"Request Date",?58,"is Pending",! Line Location: HDR+9
Function Call: WRITE	Prompt: !,"Name",?24,"PID",?31,"Date Request",?45,"Authorization Comment",!,?31,"Submitted",! Line Location: HDR+10
Function Call: WRITE	Prompt: "-" Line Location: HDR+11
Function Call: WRITE	Prompt: !!," >>> No records were found using the report criteria.",! Line Location: PRINT+4
Function Call: WRITE	Prompt: !," >>> No records were found for this Division.",!! Line Location: PRINT+13
Function Call: READ	Formatting: !!?8 Prompt: "End of the Report...Press Enter to Continue" Variable: X Timeout: DTIME Line Location: PRINT+18
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+18
Function Call: WRITE	Prompt: "Division: ",DGSORT("DIVISION",DGOEIEN,DGFAC)_" ("_DGFAC_")",! Line Location: DVISION+1
Function Call: WRITE	Prompt: !,$E(NAME,1,22),?23,$P(@DGRET@(DGFAC,NAME,DGPER),U,2) Line Location: PRINT1+11
Function Call: WRITE	Prompt: !,$E(NAME,1,22),?23,$P(@DGRET@(DGFAC,NAME,DGPER),U,2) Line Location: PRINT1+16
Function Call: WRITE	Prompt: ?30,$P(@DGRET@(DGFAC,NAME,DGPER),U,3),?42,$P(@DGRET@(DGFAC,NAME,DGPER),U,4),?54,$P(@DGRET@(DGFAC,NAME,DGPER),U,5) Line Location: PRINT1+17
Function Call: WRITE	Prompt: ?66,$E($P(@DGRET@(DGFAC,NAME,DGPER),U,6),1,14),! Line Location: PRINT1+18
Function Call: WRITE	Prompt: !,$E(NAME,1,30),?33,$P(@DGRET@(DGFAC,NAME),U,2),?41,$P(@DGRET@(DGFAC,NAME),U,3),?60,$J($P(@DGRET@(DGFAC,NAME),U,4),5) Line Location: PRINT1+27
Function Call: WRITE	Prompt: !,$E(NAME,1,22),?24,$P(@DGRET@(DGFAC,NAME,SEQ),U,2) Line Location: PRINT1+38
Function Call: WRITE	Prompt: ?31,$P(@DGRET@(DGFAC,NAME,SEQ),U,3),?45,$E($P(@DGRET@(DGFAC,NAME,SEQ),U,4),1,35),! Line Location: PRINT1+39
Function Call: WRITE	Prompt: ! Line Location: PRINT1+42
Function Call: WRITE	Prompt: ! Line Location: PRINT1+43
Function Call: WRITE	Prompt: ! Line Location: INDT+4
Function Call: WRITE	Prompt: !!,"Future dates are not allowed, please re-enter" Line Location: INDT+6
Function Call: WRITE	Prompt: !!,"No Date selected, quitting. ",!! Line Location: TODT+3
Function Call: WRITE	Prompt: !!,"Ending date must be greater than or equal to the start date",!! Line Location: TODT+4
Function Call: WRITE	Prompt: !," Please ENTER:",! Line Location: HELP+2
Function Call: WRITE	Prompt: !," 1 = That have been 'APPROVED' for an additional 90-Day" Line Location: HELP+4
Function Call: WRITE	Prompt: !," period of care." Line Location: HELP+5
Function Call: WRITE	Prompt: !," 2 = Whose request for an additional 90-Day period of" Line Location: HELP+6
Function Call: WRITE	Prompt: !," care is waiting to be approved or denied." Line Location: HELP+7
Function Call: WRITE	Prompt: !," 3 = Whose request for an additional 90-Day period of" Line Location: HELP+8
Function Call: WRITE	Prompt: !," care has been DENIED." Line Location: HELP+9
Function Call: WRITE	Prompt: !," If you wish to print a list(s) of OTH-90 MH Care" Line Location: TEXT+1
Function Call: WRITE	Prompt: !," patient who have an Outpatient Encounter with" Line Location: TEXT+2
Function Call: WRITE	Prompt: !," STATUS=CHECKED OUT for selected Division within" Line Location: TEXT+3
Function Call: WRITE	Prompt: !," the user-specified date range.",! Line Location: TEXT+4
Routine Call	DIR Line Location: PRINT+14 PRINT1+7 PRINT1+21 PRINT1+31 PRINT1+42 SELECT+2
Routine Call	%ZIS Line Location: EN+47

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGOTH(33 - [#33]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	BUILD+6
^DGOTH(33 - [#33]	EN+15, DQ+6, DENIED+2, DENIED+3
^TMP("DGOTHRP5"	EN+16

Name	Line Occurrences
$$CHECKOE	APPROV+10, PEND+6, DENIED+8
$$DTFRMTO	EN+28
$$SELECT	EN+25
@(	DQ+18
BUILD	APPROV+11, PEND+7, DENIED+10
DVISION	PRINT+11, PRINT1+10
HDR	PRINT+4, PRINT+6, PRINT+11, PRINT1+9, PRINT1+23, PRINT1+33
INDT	INDT+6
OUT	EN+26, DQ+19, PRINT+4, PRINT+15, PRINT1+8, PRINT1+22, PRINT1+32, PRINT1+43
PRINT	DQ+19
PRINT1	PRINT+7, PRINT+16
TEXT	HELP+3
TODT	TODT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DTFRMTO+1~, INDT+3, INDT+4!, INDT+6!, TODT, TODT+1!, TODT+4!
%DT("A"	INDT+3, TODT
%DT("B"	TODT*
DASH	EN+1~, HDR+5, HDR+11
DG365	APPROV+1~, APPROV+4*, APPROV+5, APPROV+6
DG90A	APPROV+1~, PEND+2~
DG90A(2	APPROV+3
DGARR	EN+1~, DQ+9!
DGARR(33	DQ+11, DQ+17, PEND+1, PEND+2
DGDATA	APPROV+1~, APPROV+6*, APPROV+7, APPROV+9, BUILD+10
DGDFN	DQ+4~, DQ+5, DQ+6, DQ+8, DQ+14, DQ+16, CHECKOE+2
DGDIV	EN+1~, DQ+17~, APPROV+6, APPROV+8, PEND+4, DENIED+3~, DENIED+9
DGDIVOE	BUILD+1~, BUILD+2, BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+7, BUILD+8
DGDTFRM	EN+1~, APPROV+9, CHECKOE+2, PEND+5, DENIED+7, HDR+3, INDT+7*, TODT+4, TODT+5, TODT+7
DGDTFRMTO	EN+1~, EN+28*, EN+29
DGDTTO	EN+1~, APPROV+9, CHECKOE+2, PEND+5, DENIED+7, HDR+3, TODT+5*, TODT+7
DGENCTR	EN+11~, CHECKOE+1!, CHECKOE+2, CHECKOE+3
DGENCTR(	BUILD+3, BUILD+4, BUILD+5, BUILD+7, BUILD+8
DGERR	EN+1~, DQ+9!, DQ+10
DGFAC	PRINT+1~, PRINT+7, PRINT+10, PRINT+12, DVISION+1, PRINT1+4, PRINT1+6, PRINT1+11, PRINT1+16, PRINT1+17 , PRINT1+18, PRINT1+27, PRINT1+30, PRINT1+38, PRINT1+39
DGIEN33	EN+1~, EN+17, DQ+8, DQ+9, DQ+11, DQ+17, APPROV+2, APPROV+4, APPROV+6, PEND+1 , PEND+2, DENIED+2, DENIED+3, DENIED+5
DGLDEN	DENIED+3~*, DENIED+4
DGOEIEN	PRINT+1~, PRINT+9*, PRINT+10, DVISION+1
DGOLDIV	PRINT+1~, PRINT+2*
DGOLDNM	PRINT1+1~, PRINT1+2, PRINT1+11, PRINT1+16, PRINT1+38*
DGPER	APPROV+5~, APPROV+6, BUILD+10, PRINT1+3~, PRINT1+6, PRINT1+11, PRINT1+14, PRINT1+16, PRINT1+17, PRINT1+18 , PRINT1+19
DGPTLIST	PRINT+1~, PRINT+3!
DGPTLIST(	PRINT1+14, PRINT1+19, PRINT1+26, PRINT1+28, PRINT1+36, PRINT1+40*
DGREAS	BUILD+14, DENIED+3~, DENIED+9*
DGREM	EN+1~, BUILD+12, PEND+4*
DGRES	BUILD+14, DENIED+1~, DENIED+5*, DENIED+6, DENIED+7, DENIED+9
DGRES9	APPROV+1~, BUILD+12, PEND+2~*, PEND+3, PEND+4, PEND+5
DGRET	EN+1~, EN+16*, BUILD+8, BUILD+10, BUILD+12, BUILD+14, PRINT+4, PRINT+7, PRINT+12, PRINT1+4 , PRINT1+6, PRINT1+11, PRINT1+16, PRINT1+17, PRINT1+18, PRINT1+27, PRINT1+30, PRINT1+38, PRINT1+39, OUT+2
DGRTYP	EN+1~, EN+25, EN+27, DQ+18, BUILD+9, BUILD+11, BUILD+13, HDR+2, HDR+6, HDR+9 , HDR+10, PRINT1+5, PRINT1+20, PRINT1+29
DGSDT	BUILD+1~, BUILD+2, BUILD+4, BUILD+5, BUILD+7, BUILD+8
DGSEL	HELP~, HELP+1
DGSORT	EN+10~, EN+16!
DGSORT("DIVISION"	EN+40, EN+41, BUILD+7*, PRINT+9, PRINT+10, DVISION+1
DGSORT("REPORT"	EN+41*, BUILD+8, HDR+4, PRINT+5, PRINT1+10, PRINT1+14, PRINT1+19, PRINT1+26, PRINT1+28, PRINT1+36 , PRINT1+40, PRINT1+42
DIR	PRINT+14!, PRINT1+7!, PRINT1+21!, PRINT1+31!, PRINT1+42!, SELECT+2!
DIR("?"	SELECT+2*
DIR("??"	SELECT+2*
DIR("A"	SELECT+2*
DIR("B"	SELECT+2*
DIR(0	PRINT+14, PRINT1+7, PRINT1+21, PRINT1+31, PRINT1+42, INDT+2, SELECT+2*
DIROUT	DTFRMTO+1~
DIRUT	DTFRMTO+1~
DT	PEND+4, INDT+2, INDT+6
DTIME	PRINT+18
DTOUT	PRINT+15, PRINT1+8, PRINT1+22, PRINT1+32, PRINT1+43, DTFRMTO+1~
DUOUT	PRINT+15, PRINT1+8, PRINT1+22, PRINT1+32, PRINT1+43, DTFRMTO+1~
EXIT	EN+1~, EN+17, PRINT+7, PRINT+9, PRINT+10, PRINT+15, PRINT+17, PRINT1+8, PRINT1+12, PRINT1+22 , PRINT1+24, PRINT1+32, PRINT1+34, PRINT1+41, PRINT1+43
FACILITY	PRINT+1~
HERE	EN+12~, DQ+2*, HDR+4
IO	PRINT+14, PRINT1+7, PRINT1+21, PRINT1+31, PRINT1+42
IO(0	PRINT+14, PRINT1+7, PRINT1+21, PRINT1+31, PRINT1+42
IOF	EN+18, HDR+2, PRINT+18
IOSL	PRINT1+7, PRINT1+21, PRINT1+31
IOST	DQ+1, DQ+3, PRINT+14, PRINT+18, PRINT1+7, PRINT1+21, PRINT1+31, PRINT1+42
NAME	EN+1~, DQ+17~, BUILD+10, BUILD+12, BUILD+14, PRINT1+3~, PRINT1+4, PRINT1+6, PRINT1+11, PRINT1+14 , PRINT1+16, PRINT1+17, PRINT1+18, PRINT1+19, PRINT1+26, PRINT1+27, PRINT1+28, PRINT1+30, PRINT1+36, PRINT1+38 , PRINT1+39, PRINT1+40
OUT	DTFRMTO+1~, INDT+1, INDT+5, TODT+3, TODT+5, TODT+7*, TODT+8, SELECT+3
PAGE	EN+1~, EN+17, HDR+1, HDR+2
PID	EN+1~, DQ+17~*, BUILD+10, BUILD+12, BUILD+14
PROMPT	EN+1~, EN+24*, EN+25, DTFRMTO~, SELECT~, SELECT+2
SEQ	BUILD+14, DENIED+1~, DENIED+4, DENIED+5, PRINT1+1~, PRINT1+30, PRINT1+36, PRINT1+38, PRINT1+39, PRINT1+40
SET	EN+1~, EN+24*, EN+25, SELECT~, SELECT+2
STATUS	DTFRMTO+1~
STDT	DTFRMTO+1~
TMPDIV	BUILD+1~, BUILD+2, BUILD+5, BUILD+6*, BUILD+7, BUILD+8, BUILD+10, BUILD+12, BUILD+14
TRM	DQ+3~*
U	APPROV+5, APPROV+6, APPROV+7, APPROV+9, BUILD+5, BUILD+6, BUILD+7, BUILD+8, BUILD+10, BUILD+12 , BUILD+14, PEND+4, PEND+5, DENIED+7, DENIED+9, HDR+4, PRINT+5, PRINT1+10, PRINT1+11, PRINT1+14 , PRINT1+16, PRINT1+17, PRINT1+18, PRINT1+19, PRINT1+26, PRINT1+27, PRINT1+28, PRINT1+36, PRINT1+38, PRINT1+39 , PRINT1+40, PRINT1+42, TODT+5, TODT+7
VAUTD	EN+9~, EN+16!, CHECKOE+2
X	EN+45, EN+46, PRINT+18, DTFRMTO+1~
Y	EN+9~, EN+26, EN+27, DTFRMTO+1~, INDT+5, INDT+6!, INDT+7, TODT+3, TODT+4!, TODT+5 , SELECT+3, SELECT+4
ZTDESC	EN+3~
ZTQUEUED	EN+4~
ZTREQ	EN+5~
ZTRTN	EN+7~
ZTSAVE	EN+2~, EN+46
ZTSAVE("DGSORT("	EN+44*
ZTSK	EN+1~, EN+8~
ZTSTOP	EN+6~

Customize PDF page

Package: Registration

Routine: DGOTHRP5

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: