Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call