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

Package: Integrated Billing

Routine: IBCNERP3


Information

IBCNERP3 ;DAOU/BHS - IBCNE eIV RESPONSE REPORT PRINT ; 03-JUN-2002

Source Information

Source file <IBCNERP3.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT(RTN,BDT,EDT,PYR,PAT,TYP,SRT,PGC,PXT,MAX,CRT,TRC,EXP,IPRF,IBRDT,IBOUT,IBFEED) ; Print data
; Input: RTN="IBCENRP1", BDT=start dt, EDT=end dt, PYR=pyr ien,
; PAT= pat ien, TYP=A/M, SRT=1/2, PGC=page ct, PXT=exit flg,
; MAX=max line ct/pg, CRT=1/0, TRC=trc#, EXP=earliest expiration date,IBRDT=today's date/time formatted
PRINTEOR ; IB*702 come here for eor if no data
PRINTX ;
XLDATA ; Excel output ; 528
GTDT ; Get Eligibility/Group Plan Information
HEADER ; Print hdr info
HEADERX ;
LINE(DISPDATA) ; Print data
LINEX ;
SSDB ; Display last 4 digits of SSN and DOB to facilitate pt. identification
; $$SSN^IBCNEDEQ(DFN) returns SSN followed by DOB
PHDL ; - Print the header line for the Excel spreadsheet ; 528

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?(80-$L(NONEMSG)\2),NONEMSG,!!
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?23
  • Condition for execution: $G(IBOUT)="R"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: NONEMSG
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?23
  • Condition for execution: $G(IBOUT)="R"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTEOR+1
Function Call: WRITE
  • Prompt: ?30
  • Condition for execution: $G(IBOUT)="R"
  • Line Location: PRINTEOR+1
Function Call: WRITE
  • Prompt: EORMSG
  • Line Location: PRINTEOR+1
Function Call: WRITE
  • Prompt: ?30
  • Condition for execution: $G(IBOUT)="R"
  • Line Location: PRINTEOR+1
Function Call: WRITE
  • Prompt: !,$S(SRT=1:PYRNM,1:PTNM)_U_$S(SRT=1:PTNM,1:PYRNM)_U_PTSSN_U_PTDOB_U_$P(RPTDATA(13),U)_U_$P(RPTDATA(13),U,2)_U_$P(RPTDATA(1),U,2)_U_$P(RPTDATA(1),U,4)_U_$P(RPTDATA(14),U)_U_$P(RPTDATA(14),U,2)
  • Line Location: XLDATA+13
Function Call: WRITE
  • Prompt: U_RPTDATA(8)_U_$P(RPTDATA(1),U,18)_U_$P(RPTDATA(1),U,16)_U_$P(RPTDATA(1),U,11)
  • Line Location: XLDATA+14
Function Call: WRITE
  • Prompt: U_$P(RPTDATA(1),U,12)_U_$P(RPTDATA(0),U,7)_U_$P(RPTDATA(0),U,9)_U_$P(RPTDATA(1),U,20)
  • Line Location: XLDATA+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: " by Trace #"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: ?OFFSET,HDR
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,?OFFSET,HDR
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,?1,"Sorted by: "_$S(SRT=1:"Payer",1:"Patient")_" Name"
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: ?OFFSET,HDR
  • Line Location: HEADER+19
Function Call: WRITE
  • Prompt: !,?1,"Earliest Policy Expiration Date: ",$$FMTE^XLFDT(EXP,"5Z"),!
  • Line Location: HEADER+21
Function Call: WRITE
  • Prompt: !,?OFFSET,HDR
  • Line Location: HEADER+25
Function Call: WRITE
  • Prompt: !,?OFFSET,HDR
  • Line Location: HEADER+34
Function Call: WRITE
  • Prompt: !,?OFFSET,HDR
  • Line Location: HEADER+43
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+44
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+49
Function Call: WRITE
  • Prompt: !,?1,"Contact Information: (cont'd)",!
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: !,?1,"Error Information: (cont'd)",!
  • Line Location: LINE+9
Function Call: WRITE
  • Prompt: !,?1,DISPDATA(LNCT)
  • Line Location: LINE+10
Function Call: WRITE
  • Prompt: !,EHDR_"^"_$$FMTE^XLFDT($$NOW^XLFDT,1)
  • Line Location: PHDL+4
Function Call: WRITE
  • Prompt: !,HDR
  • Line Location: PHDL+6
Function Call: WRITE
  • Prompt: !,EHDR
  • Line Location: PHDL+10
Function Call: WRITE
  • Prompt: !,"Earliest Policy Expiration Date: ",$$FMTE^XLFDT(EXP,"5Z")
  • Line Location: PHDL+12
Function Call: WRITE
  • Prompt: !,EHDR
  • Line Location: PHDL+15
Function Call: WRITE
  • Prompt: !,EHDR
  • Line Location: PHDL+23
Function Call: WRITE
  • Prompt: !,EHDR
  • Line Location: PHDL+31
Function Call: WRITE
  • Prompt: !
  • Line Location: PHDL+32
Function Call: WRITE
  • Prompt: !
  • Line Location: PHDL+37
Function Call: WRITE
  • Prompt: X
  • Line Location: PHDL+51

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^IBE(365.12 - [#365.12] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call