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

Package: Integrated Billing

Routine: IBTPRPT


Information

IBTPRPT ;EDE/YMG - VETERAN THIRD PARTY CHARGE REPORT; 06/02/2023

Source Information

Source file <IBTPRPT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
COMPILE ; compile report
PRINT ; print report
IBSITE() ; return site from IB site parameters
SPAUTH(DFN,EVTDT) ; get special authority
LAST4SSN(DFN) ; return lst 4 digits of patient's SSN
ASKFLTR(FILTER) ; filter prompts
ASKDT(FILTER) ; prompt for start and end dates
ASKDT1 ;
ASKDTX ; dates prompt exit point
ASKCANC() ; "display cancelled bills?" prompt
ASKPAID() ; "display paid claims?" prompt
ASKPYR(FILTER) ; prompt for payer(s)
PAUSE ; "Press Return to Continue" prompt

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: "."
  • Line Location: COMPILE+5
Function Call: WRITE
  • Prompt: !,"Veteran Third Party Charges Report^",EXTDT
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"Filtered By: ",FLTRSTR
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"Site^Division^Patient Name^SSN(last 4)^Bill #^Payer^Prim DX^Admit DX^Sec DX^DRG code^Bill Type^Care From^Care To^Rx #^"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: "Rx Fill Name^RX Fill Date^AR Claim Status^IB Claim Status^RNB^Claim Amount^Payment^Balance^Fund^RSC/Revenue Source^Claim Type^Sp. Auth."
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,"No records found."
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: $S(Z1=1:"Prof",Z1=2:"Inst",1:""),U
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: $S(Z1=1:"Y",1:"N")
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: $S(Z1=1:"Prof",Z1=2:"Inst",1:""),U
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: $S(Z1=1:"Y",1:"N")
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: !," End Date must not precede the Start Date."
  • Line Location: ASKDT1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356 - [#356] GET1^DIQ
^IBA(362.4 - [#362.4] GETS^DIQ
^DGCR(399 - [#399] GETS^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^PRCA(430 - [#430] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call