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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All
Print Page as PDF
Routine: DVBACER1

Package: Automated Medical Information Exchange

Routine: DVBACER1


Information

DVBACER1 ;BEST/JFW - DEMTRAN CONTRACTED EXAM REPORTS ; 6/27/12 3:56pm

Source Information

Source file <DVBACER1.m>

Entry Points

Name Comments DBIA/ICR reference
CERPTS(DVBALST,DVBARTYP,DVBAFLTRS) ;Contracted Exam Reports
CERPTS2 ;Logic for timeliness report
CONLST(DVBACIEN,DVBARSLTS) ;Get Contractor List
DRPTS(DVBACSRT,DVBARIEN,DVBAEIEN,DVBASCRH) ; Detailed Report Processing
DSPLYDTL(DVBACSRT,DVBACIEN,DVBAPEXMS,DVBASCRH,DVBADLMT) ;Display Sorted Detailed Report Info
EXMINFO(DVBAPEXMS,DVBAEIEN,DVBACSRT,DVBADLMT,DVBASPCG) ;Display Exam Info
DRPTSPCG(DVBACSRT,DVBADLMT,DVBASPCG) ;Setup Detailed Report Spacing
SRPTS(DVBARIEN,DVBACNDE,DVBAGLBL,DVBARSLTS) ;Summary Report Processing
TRPTS(DVBACNDE,DVBAGLBL,DVBARSLTS,DVBATVAL) ;Timeliness Report Processing
TRPTS2(DVBACNDE) ;Timeliness include logic
TRPTS3(DVBAGLBL,DVBARSLTS) ;Timeliness calculation section
GETHFS() ;Get HFS File Name
OPENHFS(DVBAHNDL,DVBAHFS,DVBAMODE,DVBARSLTS) ;Open HFS File
CLOSEHFS(DVBAHNDL,DVBAHFS,DVBARSLTS) ;Close HFS and unload data

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?DVBASPCG(1),"Request Date",$S(DVBADLMT:"^",1:""),?DVBASPCG(2),"SSN",$S(DVBADLMT:"^",1:"")
  • Line Location: DSPLYDTL+11
Function Call: WRITE
  • Prompt: ?DVBASPCG(3),"Patient Name",$S(DVBADLMT:"^",1:""),?DVBASPCG(4),"Status",$S(DVBADLMT:"^",1:"")
  • Line Location: DSPLYDTL+12
Function Call: WRITE
  • Prompt: ?DVBASPCG(5),"Examinations",$S(DVBADLMT:"^",1:"")
  • Line Location: DSPLYDTL+14
Function Call: WRITE
  • Prompt: ?DVBASPCG(7),"Referred"
  • Line Location: DSPLYDTL+16
Function Call: WRITE
  • Prompt: ?DVBASPCG(5),$G(DVBAEXM(396.4,DVBAEIEN_",",.03,"E")),$S(DVBADLMT:"^",1:"")
  • Line Location: EXMINFO+5
Function Call: WRITE
  • Prompt: ?DVBASPCG(7),$$FMTE^XLFDT($P($G(DVBAEXM(396.4,DVBAEIEN_",",101,"I")),"@"),"M"),$S(DVBADLMT:"^",1:"")
  • Line Location: EXMINFO+7

Used in RPC

RPC Name Call Tags
DVBAD CONTRACTED EXAM REPORTS CERPTS

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396.3 - [#396.3] GETS^DIQ
^DVB(396.4 - [#396.4] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All