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

Package: Automated Medical Information Exchange

Routine: DVBA8861


Information

DVBA8861 ;ALB/DJS - STATUS REPORT OF 8861 REQUESTS FOR MEDICAL SERVICES, CHAPTER 31 ; 8/8/12 4:48pm

Source Information

Source file <DVBA8861.m>

Entry Points

Name Comments DBIA/ICR reference
STATRPT(BDATE,EDATE,RORPT,DVBSTAT,DLMTR)
FINDRECS(BDAT,EDAT,RORPT,DVBSTAT,CNT) ; find record matches
SETFLDS(REQIEN,REQFLDS)
ERR() ; Process error message.
DLMTHDR(EXBDAT,EXEDAT,EXSTAT)
PRTDLMT ; output delimited format details
DLM ; write delimited detail data
DLMTOTL ; print totals in delimited format
HEADER(EXBDAT,EXEDAT,EXSTAT)
PRINTND ; output plain format details
ND1 ; write plain detail data
NDTOTAL ; print plain format totals section
KILL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "NO DATA FOUND"
  • Line Location: STATRPT+31
Function Call: WRITE
  • Prompt: "8861 Request for Medical Services, Chapter 31 Status Report"
  • Line Location: DLMTHDR+7
Function Call: WRITE
  • Prompt: !,"Date Range: "_EXBDAT_" - "_EXEDAT
  • Line Location: DLMTHDR+8
Function Call: WRITE
  • Prompt: !,"Regional Office: ",ROREPRT," for site: ",SITE
  • Line Location: DLMTHDR+9
Function Call: WRITE
  • Prompt: !,"Request Status: ",EXSTAT
  • Line Location: DLMTHDR+10
Function Call: WRITE
  • Prompt: !,"DateReceived^ReqStat^PatientName^SSN^POCName^POCLocation^PendDays^CnclDays^Consults^ApptDays^ApptDate^ConsultDate"
  • Line Location: DLMTHDR+11
Function Call: WRITE
  • Prompt: !!!," Regional Office: "
  • Line Location: PRTDLMT+7
Function Call: WRITE
  • Prompt: REGOPRT,!?20
  • Line Location: PRTDLMT+7
Function Call: WRITE
  • Prompt: REGOPRT,!?20
  • Line Location: PRTDLMT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DLM+3
Function Call: WRITE
  • Prompt: !,^TMP("VOCREQ",$J,REGOFF,RSTAT,NM,VOCG)
  • Line Location: DLM+9
Function Call: WRITE
  • Prompt: !!,"Avg Days^Avg Days^New^Pending^Cancelled^Complete",!
  • Line Location: DLMTOTL+8
Function Call: WRITE
  • Prompt: "Totals for R.O.^Pending^Complete^Requests^Requests^Requests^Requests^Totals",!
  • Line Location: DLMTOTL+9
Function Call: WRITE
  • Prompt: ROREPRT_"^"_AVGPEND_"^"_AVGCMPL_"^"_$G(CNT("N"))_"^"_$G(CNT("P"))_"^"_$G(CNT("X"))_"^"_$G(CNT("C"))_"^"_REQCNT
  • Line Location: DLMTOTL+10
Function Call: WRITE
  • Prompt: "8861 Request for Medical Services, Chapter 31 Status Report"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Date Range: ",EXBDAT," - ",EXEDAT
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"Regional Office: ",ROREPRT," for site: ",SITE
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"Request Status: ",EXSTAT
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !!,"Date",?17,"Patient",?43,"POC",?59,"POC",?78,"Pend",?83,"Canc",?88,"Comp",?93,"Consult",?109,"Appt Appt",?122,"Consult"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,"Received",?9,"Status",?17,"Name",?38,"SSN",?43,"Name",?59,"Location"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?78,"Days",?83,"Days",?88,"Days",?93,"Service",?109,"Days Date",?122,"Date"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !!!," Regional Office: "
  • Line Location: PRINTND+7
Function Call: WRITE
  • Prompt: REGOPRT,!?20
  • Line Location: PRINTND+7
Function Call: WRITE
  • Prompt: REGOPRT,!?20
  • Line Location: PRINTND+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ND1+3
Function Call: WRITE
  • Prompt: !,REQDT,?10,REQSTAT,?15,PATIENT,?38,SSN1,?43,POCNM,?59,POCLOC
  • Line Location: ND1+12
Function Call: WRITE
  • Prompt: ?78,$J(PENDING,3)
  • Line Location: ND1+13
Function Call: WRITE
  • Prompt: ?83,$J(CANCEL,3)
  • Line Location: ND1+14
Function Call: WRITE
  • Prompt: ?88,$J(COMPLETE,3)
  • Line Location: ND1+15
Function Call: WRITE
  • Prompt: ?93,CNSTOSVC
  • Line Location: ND1+16
Function Call: WRITE
  • Prompt: ?109,$J(APPTDAYS,2)
  • Line Location: ND1+17
Function Call: WRITE
  • Prompt: ?113,APPTDT,?122,CNSLDT
  • Line Location: ND1+18
Function Call: WRITE
  • Prompt: !!!?27,"Avg Days",?37,"Avg Days",?46,"New",?56,"Pending",?66,"Cancelled",?77,"Complete"
  • Line Location: NDTOTAL+9
Function Call: WRITE
  • Prompt: !?3,"Totals for R.O.",?27,"Pending",?37,"Complete",?46,"Requests",?56,"Requests",?66,"Requests",?77,"Requests",?87,"Totals"
  • Line Location: NDTOTAL+10
Function Call: WRITE
  • Prompt: !!?2,ROREPRT,?30,AVGPEND,?41,AVGCMPL,?49,$G(CNT("N")),?59,$G(CNT("P")),?70,$G(CNT("X")),?80,$G(CNT("C")),?88,REQCNT,!
  • Line Location: NDTOTAL+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GETS^DIQ
^DVB(396.9 - [#396.9] CHK^DIE,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call