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

Package: Registration

Routine: DGOTHFS3


Information

DGOTHFS3 ;SLC/RM - FORMER OTH PATIENT DETAIL REPORT 2 - CONTINUATION ; Sep 29, 2020@3:51 pm

Source Information

Source file <DGOTHFS3.m>

Entry Points

Name Comments DBIA/ICR reference
SORTENC() ;prompt user how ENCOUNTER report will be sorted
ANSWER(X,Y) ;
SORTRX() ;prompt user how Rx report will be sorted
ENCTRIB ;get the IB STATUS for the Outpatient and Inpatient episode of care
PRNTENC(TMPDATA,ENCDT) ;continuation of ENCTR tag found in DGOTHFS2
DSPLAY ;display episode of care data
DSPLAY1 ;
CPTIER ;extract Rx Copay Tier
SITE(FLAG) ;site where Rx's released
RX1 ;continuation of RX line tag from above
RXBSTAT(OTHIBRX) ;Rx B Cross Reference in ^TMP($J,"OTHFSMR2"
SORTORRX ;Sort Original RX
IBSTAT ;Extract the IB Status in File #350 and File #399
SORTRFRX ;Sort Refill RX
SETRF ;set Refill RX
RXNOSTAT ;Extract those RX's that has not been charge
RXNOSTA1 ;
RXNOSTA2 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ENCTRIB+29
Function Call: WRITE
  • Prompt: !!,"Total Number of Episode(s) of Care: ",DGTOTENC
  • Line Location: ENCTRIB+31
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTENC+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTENC+8
Function Call: WRITE
  • Prompt: ?89,$S(NWBILL=0:"",1:NWBILL)
  • Line Location: PRNTENC+10
Function Call: WRITE
  • Prompt: ?100,$E($P(TMPDATA,U,7),1,15)
  • Line Location: PRNTENC+11
Function Call: WRITE
  • Prompt: ?116,$E($P(TMPDATA,U,13),1,16)
  • Line Location: PRNTENC+12
Function Call: WRITE
  • Prompt: ?89,$S(NWBILL=0:"",1:NWBILL)
  • Line Location: PRNTENC+14
Function Call: WRITE
  • Prompt: ?100,$E($P(TMPDATA,U,9),1,15)
  • Line Location: PRNTENC+15
Function Call: WRITE
  • Prompt: ?116,$E($P(TMPDATA,U,14),1,16)
  • Line Location: PRNTENC+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTENC+22
Function Call: WRITE
  • Prompt: ?89,$P(@RECORD@(SUB1,SUB2,FILENO,RECNT,RECNUM),U,4)
  • Line Location: PRNTENC+23
Function Call: WRITE
  • Prompt: ?100,$E($P(@RECORD@(SUB1,SUB2,FILENO,RECNT,RECNUM),U),1,15)
  • Line Location: PRNTENC+25
Function Call: WRITE
  • Prompt: ?100,$E($P(@RECORD@(SUB1,SUB2,FILENO,RECNT,RECNUM),U,2),1,15)
  • Line Location: PRNTENC+26
Function Call: WRITE
  • Prompt: ?116,$E($P(@RECORD@(SUB1,SUB2,FILENO,RECNT,RECNUM),U,7),1,16)
  • Line Location: PRNTENC+27
Function Call: WRITE
  • Prompt: !,?22,$E($P(TMPDATA,U,4),1,18)
  • Line Location: PRNTENC+30
Function Call: WRITE
  • Prompt: !,?22,$E($P(TMPDATA,U,4),1,20)
  • Line Location: DSPLAY+3
Function Call: WRITE
  • Prompt: !,?22,$E($P(TMPDATA,U,4),1,20)
  • Line Location: DSPLAY+7
Function Call: WRITE
  • Prompt: !,$E($P(TMPDATA,U,3),1,20)
  • Line Location: DSPLAY1+1
Function Call: WRITE
  • Prompt: ?22,$E($P(TMPDATA,U,4),1,20)
  • Line Location: DSPLAY1+2
Function Call: WRITE
  • Prompt: ?45,"N/A"
  • Line Location: DSPLAY1+3
Function Call: WRITE
  • Prompt: ?45,$P(TMPDATA,U,9)
  • Line Location: DSPLAY1+4
Function Call: WRITE
  • Prompt: ?55,$P(TMPDATA,U,2)
  • Line Location: DSPLAY1+6
Function Call: WRITE
  • Prompt: ?61,$$FMTE^XLFDT(ENCDT\1,"5ZF")
  • Line Location: DSPLAY1+7
Function Call: WRITE
  • Prompt: ?72,$E($P(TMPDATA,U,5),1,14)
  • Line Location: DSPLAY1+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call