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

Package: Automated Medical Information Exchange

Routine: DVBARSBD


Information

DVBARSBD ;ALB/RPM - CAPRI 2507 REQUEST STATUS BY DT RANGE REPORT ; 01/24/12

Source Information

Source file <DVBARSBD.m>

Entry Points

Name Comments DBIA/ICR reference
REQSTAT(DVBSDAT,DVBEDAT,DVBRSTAT,DVBDELIM,DVBNODT) ;entry for request status by dt range
D
END ;Clean up local variables
GETRECS(SDAT,EDAT,RSTAT,CNT) ;collect 2507 REQUEST record matches, when DVBNODT=0 means not ignoring the date range
CANFLD ;
SETFLDS(DVBIEN,DVBFLDS) ;build field array in external format
DELIMHDR(EXSDAT,EXEDAT,EXSTAT) ;output delimited format header
; Input:
; EXSDAT - start date (external format)
; EXEDAT - end date (external format)
; EXSTAT - request status (external format)
; GRE ; added re-route status information to the report
DELIM ;output delimited format
PLAINHDR(EXSDAT,EXEDAT,EXSTAT)
PLAIN ;output plain text format
GETRECSN(RSTAT,DVBCNT) ;collect 2507 REQUEST status matches and ignore date range
CLAIMTYP ;THE CLAIM TYPE OF A 2507 REQUEST
SPEC ;SPECIAL CONSIDERATION(S) FOR A 2507 REQUEST
GETRRDAT ;GRE Input=IEN , get re-route date, to and from site and re-route status

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "NO DATA FOUND"
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !,DVBREQH
  • Line Location: DELIM+8
Function Call: WRITE
  • Prompt: !,DVBREQL2
  • Line Location: DELIM+12
Function Call: WRITE
  • Prompt: !,DVBREQL3
  • Line Location: DELIM+15
Function Call: WRITE
  • Prompt: !,"Date Range: "_EXSDAT_" - "_EXEDAT
  • Line Location: PLAINHDR+17
Function Call: WRITE
  • Prompt: !,"Request Status: ",EXSTAT
  • Line Location: PLAINHDR+18
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------------------------------------"
  • Line Location: PLAINHDR+19
Function Call: WRITE
  • Prompt: !,DVBLINE
  • Line Location: PLAIN+12
Function Call: WRITE
  • Prompt: !,"SSN:",?14,$P(DVBREQ,U,2)
  • Line Location: PLAIN+13
Function Call: WRITE
  • Prompt: !,"PATIENT NAME:",?14,$E($P(DVBREQ,U,3),1,20)
  • Line Location: PLAIN+14
Function Call: WRITE
  • Prompt: !,"REQUEST DT:",?14,$P(DVBREQ,U,4)
  • Line Location: PLAIN+15
Function Call: WRITE
  • Prompt: !,"DT RELEASED:",?14,$P(DVBREQ,U,5)
  • Line Location: PLAIN+16
Function Call: WRITE
  • Prompt: !,"DT PRINTED:",?14,$P(DVBREQ,U,6)
  • Line Location: PLAIN+17
Function Call: WRITE
  • Prompt: !,"STATUS:",?14,$P(DVBREQ,U,7)
  • Line Location: PLAIN+18
Function Call: WRITE
  • Prompt: !,"DT CANCELED:",?14,$P(DVBREQ,U,8)
  • Line Location: PLAIN+19
Function Call: WRITE
  • Prompt: !,"CLAIM TYPE: ",DVBCTW
  • Line Location: PLAIN+21
Function Call: WRITE
  • Prompt: !,"SPECIAL CONSIDERATION(S):",DVBSCWA
  • Line Location: PLAIN+22
Function Call: WRITE
  • Prompt: !,"RE-ROUTE DATE:",RRDATE
  • Line Location: PLAIN+23
Function Call: WRITE
  • Prompt: !,"RE-ROUTE FROM SITE:",RRFRMSITE
  • Line Location: PLAIN+24
Function Call: WRITE
  • Prompt: !,"RE-ROUTE TO SITE:",RRTOSITE
  • Line Location: PLAIN+25
Function Call: WRITE
  • Prompt: !,"CANCELLATION REASON:",?14,DVBCNRS
  • Line Location: PLAIN+30
Function Call: WRITE
  • Prompt: !,"CANCELLATION COMMENTS:",?14
  • Line Location: PLAIN+34

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396.3 - [#396.3] CHK^DIE,  GETS^DIQ
396.34 EXTERNAL^DILFD
396.341 EXTERNAL^DILFD
^DVB(396.4 - [#396.4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call