Routine: DGOTHFS4

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT $$STA^XUAF4
DRG Grouper	1	($$CODEC,$$ICDDX)^ICDEX
Registration	1	($$CHKDATE,DTRANGE,LINE,PAUSE,PTHDR)^DGOTHFS2
Scheduling	1	$$GETPDX^SDOE
VA FileMan	1	($$GET1,GETS)^DIQ

Package	Total	Caller Graph
Registration	3	DGFSMOUT DGOTHFS2 DGOTHFSM

Name	Comments	DBIA/ICR reference
GETPDX(OEIEN)	;extract the outpatient encounter primary diagnosis
FLTRENC	;determine whether to prompt the Encounter sorting or not
TOTRX	;determine whether to prompt the RX sorting or not
PRINTRX	;display patient's released prescription
PRINTRX1	;
PRINTRX3	;
PRINTRX2	;print the IB status for an RX
RXCOL	;display Rx column name
RXHDR(FLAG)	;Released Prescription Header
SORTHLP(DGSEL)	;provide extended DIR("?") help test for Encounter and Rx report section ; Input: DGSEL - prompt var for help text word selection ; Output: none
ATID1	;extract the ward and the last user edited the record in file #405
DOS399(FILENO)	;

Name	Field # of Occurrence
$$CHKDATE^DGOTHFS2	TOTRX+8, TOTRX+16
DTRANGE^DGOTHFS2	RXHDR+4
LINE^DGOTHFS2	PRINTRX+2, PRINTRX+8, PRINTRX+16, PRINTRX+46, RXHDR+11
PAUSE^DGOTHFS2	PRINTRX+16
PTHDR^DGOTHFS2	PRINTRX+16
$$GET1^DIQ	ATID1+14, DOS399+6, DOS399+7
GETS^DIQ	ATID1+7, ATID1+11
$$CODEC^ICDEX	GETPDX+3
$$ICDDX^ICDEX	GETPDX+5
$$GETPDX^SDOE	GETPDX+2
$$FMTE^XLFDT	PRINTRX+7, PRINTRX+28, PRINTRX+45, PRINTRX1+8, PRINTRX3+2
$$STA^XUAF4	ATID1+14, DOS399+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">> NO DATA FOUND FROM "_$$FMTE^XLFDT(DGSORT("DGBEG"),"5ZF")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5ZF")_"." Line Location: PRINTRX+7
Function Call: WRITE	Prompt: ! Line Location: PRINTRX+8
Function Call: WRITE	Prompt: ! Line Location: PRINTRX+8
Function Call: WRITE	Prompt: !,"Total Number of Rx: ",+DGTOTALRX,!!! Line Location: PRINTRX+10
Function Call: WRITE	Prompt: ! Line Location: PRINTRX+16
Function Call: WRITE	Prompt: ! Line Location: PRINTRX+17
Function Call: WRITE	Prompt: ?49,$$FMTE^XLFDT($P(^TMP($J,"OTHFSMRX",SUB1,SUB2,DFN,DGRXNUM,DGRXCNT),U,6),"5Z") Line Location: PRINTRX+28
Function Call: WRITE	Prompt: !,">> NO DATA FOUND FROM "_$$FMTE^XLFDT(DGSORT("DGBEG"),"5ZF")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5ZF")_"." Line Location: PRINTRX+45
Function Call: WRITE	Prompt: ! Line Location: PRINTRX+46
Function Call: WRITE	Prompt: ! Line Location: PRINTRX+46
Function Call: WRITE	Prompt: !!! Line Location: PRINTRX+48
Function Call: WRITE	Prompt: RXNUMBER Line Location: PRINTRX1+2
Function Call: WRITE	Prompt: ?22,$J($P(^TMP($J,"OTHFSMRX",SUB1,SUB2,DFN,DGRXNUM,DGRXCNT),U,3),2) Line Location: PRINTRX1+5
Function Call: WRITE	Prompt: ?31,$J($P(^TMP($J,"OTHFSMRX",SUB1,SUB2,DFN,DGRXNUM,DGRXCNT),U,4),2) Line Location: PRINTRX1+6
Function Call: WRITE	Prompt: ?39,$P(^TMP($J,"OTHFSMRX",SUB1,SUB2,DFN,DGRXNUM,DGRXCNT),U,5) Line Location: PRINTRX1+7
Function Call: WRITE	Prompt: ?49,$$FMTE^XLFDT($P(^TMP($J,"OTHFSMRX",SUB1,SUB2,DFN,DGRXNUM,DGRXCNT),U,6),"5Z") Line Location: PRINTRX1+8
Function Call: WRITE	Prompt: ?61,$$FMTE^XLFDT(+TMPRXRLDTE\1,"5Z") Line Location: PRINTRX3+2
Function Call: WRITE	Prompt: "R" Line Location: PRINTRX3+3
Function Call: WRITE	Prompt: "P" Line Location: PRINTRX3+4
Function Call: WRITE	Prompt: ?74,$P(^TMP($J,"OTHFSMRX",SUB1,SUB2,DFN,DGRXNUM,DGRXCNT),U,8) Line Location: PRINTRX2+1
Function Call: WRITE	Prompt: ?89,$E($P($P(^TMP($J,"OTHFSMRX",SUB1,SUB2,DFN,DGRXNUM,DGRXCNT),U,9),";"),1,20) Line Location: PRINTRX2+2
Function Call: WRITE	Prompt: ?111,$E($P(^TMP($J,"OTHFSMRX",SUB1,SUB2,DFN,DGRXNUM,DGRXCNT),U,10),1,20) Line Location: PRINTRX2+3
Function Call: WRITE	Prompt: !,"Rx #",?15,"Copay",?22,"# of",?31,"Days",?39,"Division",?49,"Fill Date",?61,"Rx Release",?74,"Bill #",?89,"Action Type/",?111,"IB Status" Line Location: RXCOL+1
Function Call: WRITE	Prompt: !,?15,"Tier",?22,"Refills",?31,"Supply",?61,"Date",?89,"Rate Type",! Line Location: RXCOL+2
Function Call: WRITE	Prompt: !,?132-$L(TITLE)\2,TITLE,! Line Location: RXHDR+3
Function Call: WRITE	Prompt: ?132-$L(TITLE)\2,TITLE,! Line Location: RXHDR+6
Function Call: WRITE	Prompt: ?39,"'R' = Return Medication To Stock 'P' = Partial Fill",! Line Location: RXHDR+8
Function Call: WRITE	Prompt: ?48,"'R' = Return Medication To Stock",! Line Location: RXHDR+9
Function Call: WRITE	Prompt: ?55,"'P' = Partial Fill",! Line Location: RXHDR+10
Function Call: WRITE	Prompt: !," Please Select:" Line Location: SORTHLP+4
Function Call: WRITE	Prompt: !," 1. "_DGSEL Line Location: SORTHLP+5
Function Call: WRITE	Prompt: !," If you want to sort the report by "_DGSEL_", then by Division",! Line Location: SORTHLP+6
Function Call: WRITE	Prompt: !," 2. Division" Line Location: SORTHLP+7
Function Call: WRITE	Prompt: !," If you want to sort the report by Division, then by "_DGSEL Line Location: SORTHLP+8

FileNo	Call Tags
^DG(40.8 - [#40.8]	GET1^DIQ
^DGPM - [#405]	GETS^DIQ
^DIC(42 - [#42]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("ATID1"	ATID1+3, ATID1+4, ATID1+5
^TMP($J	FLTRENC+18, TOTRX+3, TOTRX+4, TOTRX+6, TOTRX+7, TOTRX+11, TOTRX+14, TOTRX+15, PRINTRX+6, PRINTRX+12 , PRINTRX+13, PRINTRX+14, PRINTRX+15, PRINTRX+18, PRINTRX+19, PRINTRX+21, PRINTRX+26, PRINTRX+28, PRINTRX+32, PRINTRX1+3 , PRINTRX1+5, PRINTRX1+6, PRINTRX1+7, PRINTRX1+8, PRINTRX3+1, PRINTRX2+1, PRINTRX2+2, PRINTRX2+3, RXHDR+7

Name	Line Occurrences
PRINTRX1	PRINTRX+22, PRINTRX+24, PRINTRX+27
PRINTRX2	PRINTRX+22, PRINTRX+24, PRINTRX+27, PRINTRX+30
PRINTRX3	PRINTRX+29, PRINTRX1+9
RXCOL	PRINTRX+2, PRINTRX+16
RXHDR	PRINTRX+2, PRINTRX+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACCTYP	DOS399+1~, DOS399+5*, DOS399+9
ACTYP	FLTRENC+1~, FLTRENC+7*, FLTRENC+15
>> ADMDT	ATID1+6
ADMDT405	ATID1+1~, ATID1+4*, ATID1+5, ATID1+6
>> DFN	PRINTRX+14, PRINTRX+15, PRINTRX+18, PRINTRX+19, PRINTRX+21, PRINTRX+26, PRINTRX+28, PRINTRX+32, PRINTRX1+3, PRINTRX1+5 , PRINTRX1+6, PRINTRX1+7, PRINTRX1+8, PRINTRX3+1, PRINTRX2+1, PRINTRX2+2, PRINTRX2+3
DGCPYTIER	PRINTRX+3~, PRINTRX1+3*, PRINTRX1+4
>> DGDFN	FLTRENC+18, TOTRX+6, TOTRX+7, TOTRX+11, TOTRX+14, TOTRX+15, ATID1+3, ATID1+4, ATID1+5, DOS399+3 , DOS399+4, DOS399+5, DOS399+6, DOS399+8
>> DGDIV	ATID1+2, ATID1+12, ATID1+14
DGDIVIEN	DOS399+1~, DOS399+6*, DOS399+7, DOS399+9
>> DGDIVNME	ATID1+2, ATID1+13
DGDT	DOS399+1~
>> DGENCNT	FLTRENC+21, FLTRENC+23, FLTRENC+25, DOS399+10, DOS399+11, DOS399+12
DGIBSTPCODE	DOS399+1~
DGLSTUSR	DOS399+1~, DOS399+8*, DOS399+9
DGNARX	PRINTRX+3~, PRINTRX+5, PRINTRX+31, PRINTRX+44, PRINTRX+45
DGOUT	ATID1+7!
DGOUT(405	ATID1+8, ATID1+9
DGOUTERR	ATID1+7!
>> DGPRTLRXFL	RXHDR+8, RXHDR+9, RXHDR+10
>> DGQ	PRINTRX+12, PRINTRX+13, PRINTRX+14, PRINTRX+15, PRINTRX+16, PRINTRX+35, PRINTRX+36, PRINTRX+37, PRINTRX+40
DGRELDATE	TOTRX+1~, TOTRX+6, TOTRX+7, TOTRX+8, TOTRX+17
DGRFRELDT	TOTRX+1~, TOTRX+14, TOTRX+15, TOTRX+16, TOTRX+17
>> DGRTNSTCK	TOTRX+7, TOTRX+15, RXHDR+8, RXHDR+9, RXHDR+10
DGRXCNT	PRINTRX+3~, PRINTRX+15*, PRINTRX+18, PRINTRX+19, PRINTRX+20, PRINTRX+21, PRINTRX+26, PRINTRX+28, PRINTRX+32, PRINTRX1+3 , PRINTRX1+5, PRINTRX1+6, PRINTRX1+7, PRINTRX1+8, PRINTRX3+1, PRINTRX2+1, PRINTRX2+2, PRINTRX2+3
DGRXIEN	TOTRX+1~, TOTRX+4*, TOTRX+6, TOTRX+7, TOTRX+11, TOTRX+14, TOTRX+15
DGRXNUM	TOTRX+1~, TOTRX+3, TOTRX+4, PRINTRX+3~, PRINTRX+14, PRINTRX+15, PRINTRX+18, PRINTRX+19, PRINTRX+21, PRINTRX+26 , PRINTRX+28, PRINTRX+32, PRINTRX1+3, PRINTRX1+5, PRINTRX1+6, PRINTRX1+7, PRINTRX1+8, PRINTRX3+1, PRINTRX2+1, PRINTRX2+2 , PRINTRX2+3
DGRXTOTCNT	PRINTRX+3~, PRINTRX+41*, PRINTRX+42
DGSEL	SORTHLP~, SORTHLP+3*, SORTHLP+5, SORTHLP+6, SORTHLP+8
>> DGSORT	TOTRX+8, TOTRX+16
>> DGSORT("DGBEG"	PRINTRX+7, PRINTRX+45
>> DGSORT("DGEND"	PRINTRX+7, PRINTRX+45
>> DGSORT("SORTRXBY"	RXHDR+5, RXHDR+6
DGSTA	ATID1+2, ATID1+14, DOS399+1~, DOS399+6*, DOS399+9, DOS399+11, DOS399+12
DGSTANAME	DOS399+1~, DOS399+7*, DOS399+9
DGTOTALRX	FLTRENC+16, FLTRENC+17, FLTRENC+18, PRINTRX+3~, PRINTRX+5, PRINTRX+9, PRINTRX+10, PRINTRX+43, PRINTRX+44*, PRINTRX+45 , PRINTRX+47, PRINTRX+48, PRINTRX+49!
DGTOTALRX(	PRINTRX+32*, PRINTRX+41
DGTOTRF	TOTRX+1~, TOTRX+11*, TOTRX+12, TOTRX+13
>> DGTOTRX52	TOTRX+2, TOTRX+8, TOTRX+17*
DIVINPT	ATID1+11!
DIVINPT(42	ATID1+12, ATID1+13, ATID1+15
>> DXNAME	GETPDX+1, GETPDX+5
FILENO	FLTRENC+1~, FLTRENC+5*, FLTRENC+6, FLTRENC+7, FLTRENC+8, FLTRENC+9, FLTRENC+10, FLTRENC+11, FLTRENC+12, FLTRENC+13 , FLTRENC+17, FLTRENC+19, FLTRENC+20, FLTRENC+23, FLTRENC+24, FLTRENC+25, DOS399~, DOS399+2, DOS399+3, DOS399+4 , DOS399+5, DOS399+6, DOS399+8
FLAG	RXHDR~, RXHDR+2
>> IBOTHSTAT	DOS399+2, DOS399+3, DOS399+4, DOS399+5, DOS399+6, DOS399+8
IOSL	PRINTRX+16
JJ	TOTRX+1~, TOTRX+13*, TOTRX+14, TOTRX+15
>> LSTUSR	ATID1+2, ATID1+9
OEIEN	GETPDX~, GETPDX+2
OTHIBDT	DOS399+1~, DOS399+2*, DOS399+3, DOS399+4, DOS399+5, DOS399+6, DOS399+8, DOS399+11, DOS399+12
OTHIBREC	DOS399+1~, DOS399+3*, DOS399+4, DOS399+5, DOS399+6, DOS399+8
>> PRIMDX	GETPDX+1, GETPDX+2, GETPDX+3, GETPDX+4, GETPDX+5
PRNTDRX	PRINTRX+4~, PRINTRX+49!
PRNTDRX(	PRINTRX+22, PRINTRX+23, PRINTRX+24, PRINTRX+25, PRINTRX+27, PRINTRX+31, PRINTRX+33*
>> PTFIEN405	ATID1+2, ATID1+16
PTMOVIEN	ATID1+1~, ATID1+5*, ATID1+7, ATID1+8, ATID1+9, ATID1+16
RECNT	FLTRENC+1~, FLTRENC+6*, FLTRENC+7, FLTRENC+9, FLTRENC+11, FLTRENC+12, FLTRENC+13, FLTRENC+19, FLTRENC+20, FLTRENC+25
>> RECORD	FLTRENC+3, FLTRENC+4, FLTRENC+5, FLTRENC+6, FLTRENC+7, FLTRENC+9, FLTRENC+11, FLTRENC+12, FLTRENC+13, FLTRENC+19 , FLTRENC+25, DOS399+11
>> RECORD1	FLTRENC+20, DOS399+12
RESULT	FLTRENC+1~, FLTRENC+2, FLTRENC+9, FLTRENC+16, FLTRENC+18, FLTRENC+23, FLTRENC+24
RXARRAY	FLTRENC+1~, FLTRENC+26!
RXARRAY(	FLTRENC+16, FLTRENC+17, FLTRENC+18, FLTRENC+22*
RXIBBILNO	PRINTRX+4~, PRINTRX+19, PRINTRX+20, PRINTRX+24, PRINTRX+31, PRINTRX+33
RXIBIEN	FLTRENC+1~, FLTRENC+9, FLTRENC+11, FLTRENC+14*, FLTRENC+16, FLTRENC+17, FLTRENC+18, FLTRENC+22
RXNAME	FLTRENC+1~, FLTRENC+12*, FLTRENC+14
RXNUMBER	PRINTRX+4~, PRINTRX+18, PRINTRX+22, PRINTRX+23, PRINTRX+24, PRINTRX+25, PRINTRX+27, PRINTRX+31, PRINTRX+33, PRINTRX+34 , PRINTRX1+2, PRINTRX3+4
RXNUMFIL	FLTRENC+1~, FLTRENC+13*, FLTRENC+14
RXORFLCNT	TOTRX+1~, TOTRX+2, TOTRX+5, TOTRX+8*, TOTRX+17
RXPRVS	PRINTRX+4~, PRINTRX+5, PRINTRX+27, PRINTRX+34
RXRELDATE	PRINTRX+4~, PRINTRX+21*, PRINTRX+22, PRINTRX+23, PRINTRX+24, PRINTRX+25, PRINTRX+27, PRINTRX+31, PRINTRX+33
>> SORTENCBY	FLTRENC+20, DOS399+12
SUB1	FLTRENC+1~, FLTRENC+3, FLTRENC+4, FLTRENC+5, FLTRENC+6, FLTRENC+7, FLTRENC+9, FLTRENC+11, FLTRENC+12, FLTRENC+13 , FLTRENC+16, FLTRENC+17, FLTRENC+18, FLTRENC+19, FLTRENC+20, FLTRENC+22, FLTRENC+25, PRINTRX+3~, PRINTRX+12, PRINTRX+13 , PRINTRX+14, PRINTRX+15, PRINTRX+18, PRINTRX+19, PRINTRX+21, PRINTRX+26, PRINTRX+28, PRINTRX+32, PRINTRX1+3, PRINTRX1+5 , PRINTRX1+6, PRINTRX1+7, PRINTRX1+8, PRINTRX3+1, PRINTRX2+1, PRINTRX2+2, PRINTRX2+3
SUB2	FLTRENC+1~, FLTRENC+4, FLTRENC+5, FLTRENC+6, FLTRENC+7, FLTRENC+9, FLTRENC+11, FLTRENC+12, FLTRENC+13, FLTRENC+19 , FLTRENC+20, FLTRENC+25, PRINTRX+3~, PRINTRX+13, PRINTRX+14, PRINTRX+15, PRINTRX+18, PRINTRX+19, PRINTRX+21, PRINTRX+26 , PRINTRX+28, PRINTRX+32, PRINTRX1+3, PRINTRX1+5, PRINTRX1+6, PRINTRX1+7, PRINTRX1+8, PRINTRX3+1, PRINTRX2+1, PRINTRX2+2 , PRINTRX2+3
TITLE	RXHDR+1~, RXHDR+2, RXHDR+3, RXHDR+5, RXHDR+6
TMPDATA	DOS399+1~, DOS399+9*, DOS399+11, DOS399+12
TMPDATA1	DOS399+1~, DOS399+4*, DOS399+9
TMPRXRLDTE	PRINTRX1+1~, PRINTRX3+1*, PRINTRX3+2, PRINTRX3+3, PRINTRX3+4
>> TRTFCLTY	ATID1+15*
U	GETPDX+4, FLTRENC+7, FLTRENC+9, FLTRENC+11, FLTRENC+12, FLTRENC+13, FLTRENC+18, FLTRENC+25, TOTRX+6, TOTRX+7 , TOTRX+11, TOTRX+14, TOTRX+15, PRINTRX+18, PRINTRX+19, PRINTRX+21, PRINTRX+26, PRINTRX+28, PRINTRX+32, PRINTRX1+3 , PRINTRX1+5, PRINTRX1+6, PRINTRX1+7, PRINTRX1+8, PRINTRX3+1, PRINTRX2+1, PRINTRX2+2, PRINTRX2+3, RXHDR+5, RXHDR+6 , DOS399+5, DOS399+6, DOS399+8, DOS399+9
>> WRDIEN	ATID1+2, ATID1+8, ATID1+10, ATID1+11, ATID1+12, ATID1+13, ATID1+15

Customize PDF page

Package: Registration

Routine: DGOTHFS4

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: