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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGOTHFS4

Package: Registration

Routine: DGOTHFS4


Information

DGOTHFS4 ;SLC/RM - FORMER OTH PP PATIENT UTILITY ; January 20, 2021@9:15 am

Source Information

Source file <DGOTHFS4.m>

Call Graph

Call Graph

Call Graph Total: 6

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  

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

Package Total Caller Graph
Registration 3 DGFSMOUT  DGOTHFS2  DGOTHFSM  

Entry Points

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) ;

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All