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
Print Page as PDF
Routine: IBCOMN1

Package: Integrated Billing

Routine: IBCOMN1


Information

IBCOMN1 ;ALB/CMS - PATIENTS NO COVERAGE VERIFIED REPORT (CON'T);10-09-98

Source Information

Source file <IBCOMN1.m>

Entry Points

Name Comments DBIA/ICR reference
BEG ; Entry to run Patients w/no Coverage Verification Report
; Input variables:
; IBAIB - Required. How to sort
; 1= Patient Name Range 2= Terminal Digit Range
QUEQ ; Exit clean-UP
HD ;Write Heading
WRT ;Write data lines
ASK ; Ask to Continue with display
EOR ; End of report ;IB*752/DTG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"** NO RECORDS FOUND **"
  • Line Location: BEG+43
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEQ+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($E(IOST,1,2)["C-")
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: "Patient Name^SSN^Age^DOB^Phone^Verified"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: @IOF,!,"Patients w/No Coverage Verification Date Report",?50,$$FMTE^XLFDT($$NOW^XLFDT,"Z"),?70," Page ",IBPAGE
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,?5,"Verification Date Range: "_$$FMTE^XLFDT(IBBDT,"Z")_" to "_$$FMTE^XLFDT(IBEDT,"Z")
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,?5," Filtered by: "_$S(IBAIB=1:"Patient Name",1:"Terminal Digit")_" Range: "_$S(IBRF="":"FIRST",1:IBRF)_" to "_$S(IBRL="zzzzzz":"LAST",1:IBRL)
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: !,?20,"(* - Patient Deceased)"
  • Line Location: HD+14
Function Call: WRITE
  • Prompt: !,"Patient Name",?31,"SSN",?38,"Age",?43,"DOB",?55,"Phone",?70,"Verified"
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+16
Function Call: WRITE
  • Prompt: "="
  • Line Location: HD+16
Function Call: WRITE
  • Prompt: !,$P(IBPT,U,1)_U_$E($P(IBPT,U,1),1,1)_$P(IBPT,U,2)_U_$P(IBPT,U,3,6)
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !," ** END OF REPORT **",!
  • Line Location: EOR+1
Info |  Source |  Entry Points |  Interaction Calls