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

Package: Integrated Billing

Routine: IBCOMC2


Information

IBCOMC2 ;ALB/CMS - IDENTIFY PT BY AGE WITH OR WITHOUT INSURANCE (CON'T) ;10-09-98

Source Information

Source file <IBCOMC2.m>

Entry Points

Name Comments DBIA/ICR reference
ENH ; Sort help Text
INSH ; Search criteria help Text
AGEH ; Sort AGE help text
HD ;Write Heading
WRT ;Write data lines
ASK ; Ask to Continue with display
; also called from IBCNSUR1 and IBCOMA1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"Enter 1 to search by a Patient Name Range. (i.e. ADAMS to ADAMSZ)"
  • Line Location: ENH+1
Function Call: WRITE
  • Prompt: !,?5,"Enter 2 to search by Terminal Digit. The output will be sorted"
  • Line Location: ENH+2
Function Call: WRITE
  • Prompt: !,?5,"by the 8th and 9th digits and then the 6th and 7th digits of the"
  • Line Location: ENH+3
Function Call: WRITE
  • Prompt: !,?5,"Patient's SSN.",!
  • Line Location: ENH+4
Function Call: WRITE
  • Prompt: !!,?5,"Enter 1 to List patients covered by policies in Insurance Co. Name Range"
  • Line Location: INSH+1
Function Call: WRITE
  • Prompt: !,?15,"(i.e. Sort By: MEDICARE To: MEDICAREZZZ)"
  • Line Location: INSH+2
Function Call: WRITE
  • Prompt: !,?5,"Enter 2 to List patients covered by policies of the selected Insurance Co."
  • Line Location: INSH+3
Function Call: WRITE
  • Prompt: !,?15,"(User may enter up to six Companies.)"
  • Line Location: INSH+4
Function Call: WRITE
  • Prompt: !,?5,"Enter 3 to list patients with NO Coverage on file."
  • Line Location: INSH+5
Function Call: WRITE
  • Prompt: !!,?5,"Enter an Age Range to sort by (1-250). Or press return at the Start Age"
  • Line Location: AGEH+1
Function Call: WRITE
  • Prompt: !,?5,"prompt to not include Age range in search criteria."
  • Line Location: AGEH+2
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^Means Test?^Inp/Out^Last Visit^Insurance Name^Reimb VA?^Plan Name"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: "Insurance Company Range: "_$S(IBSINF="":"FIRST",1:IBSINF)_" to "_$S(IBSINL="zzzzzz":"LAST",1:IBSINL),!
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: "Patients with no Insurance on File",!
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: "Age Range: "_IBAGEF_" to "_IBAGEL,!
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: $P(IBSIN(IBX),U,2),!
  • Line Location: HD+16
Function Call: WRITE
  • Prompt: @IOF,!,"Patients "_$S(IBSIN=3:"Without",1:"With")_" Insurance Report",?50,$$FMTE^XLFDT($$NOW^XLFDT,"Z"),?70," Page ",IBPAGE
  • Line Location: HD+19
Function Call: WRITE
  • Prompt: !,?5,"Insurance Company Range: "_$S(IBSINF="A":"FIRST",1:IBSINF)_" to "_$S(IBSINL="zzzzzz":"LAST",1:IBSINL)
  • Line Location: HD+26
Function Call: WRITE
  • Prompt: !,?5,"Insurance Company Range: "_$S(IBSINF="":"FIRST",1:IBSINF)_" to "_$S(IBSINL="zzzzzz":"LAST",1:IBSINL)
  • Line Location: HD+27
Function Call: WRITE
  • Prompt: !,?5,"Patients with no Insurance on File"
  • Line Location: HD+28
Function Call: WRITE
  • Prompt: !,?5,"Age Range: "_IBAGEF_" to "_IBAGEL
  • Line Location: HD+29
Function Call: WRITE
  • Prompt: !,?10,$P(IBSIN(IBX),U,2)
  • Line Location: HD+32
Function Call: WRITE
  • Prompt: !,?10,$P(IBSIN(IBX),U,2)
  • Line Location: HD+35
Function Call: WRITE
  • Prompt: !!?58,"Means",!,"Patient Name (SSN)",?39,"Age",?44,"DOB",?58,"Test?",?70,"Last Visit"
  • Line Location: HD+36
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+37
Function Call: WRITE
  • Prompt: "="
  • Line Location: HD+37
Function Call: WRITE
  • Prompt: !,$P(IBPT,U,1)_U_$TR($TR($P(IBPT,U,2),"(",""),")","")_U_$P(IBPT,U,3,5)_U_$P($P(IBPT,U,6)," ")_U_$P($P(IBPT,U,6)," ",2)
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !!,$E($P(IBPT,U,1),1,30)_" "_$P(IBPT,U,2),?39,$P(IBPT,U,3),?44,$P(IBPT,U,4),?58,$P(IBPT,U,5),?65,$P(IBPT,U,6)
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IBOUT="R"
  • Line Location: WRT+17
Function Call: WRITE
  • Prompt: U
  • Condition for execution: IBOUT="E"
  • Line Location: WRT+17
Function Call: WRITE
  • Prompt: IBINS
  • Line Location: WRT+17
Function Call: WRITE
  • Prompt: U_$P(IBINS,U,1,3)
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: !?3,$E($P(IBINS,U,1),1,30),?35,"Reimb VA? ",$P(IBINS,U,2),!?4,"Plan Name: ",$E($P(IBINS,U,3),1,65)
  • Line Location: WRT+21
Info |  Source |  Entry Points |  Interaction Calls