Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IBCOC  IBCOC1  IBCOMA1  IBCOMC1  

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

External References

Name Field # of Occurrence
^DIR ASK+4
$$FMTE^XLFDT HD+3, HD+6
$$NOW^XLFDT HD+3

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+2
Function Call: WRITE
  • Prompt: "Patient Name^SSN^Age^DOB^Means Test?^Inp/Out^Last Visit^Insurance Name^Reimb VA?^Plan Name"
  • Line Location: HD+2
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+3
Function Call: WRITE
  • Prompt: !,?5,"Insurance Company Range: "_$S(IBSINF="A":"FIRST",1:IBSINF)_" to "_$S(IBSINL="zzzzzz":"LAST",1:IBSINL)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,?5,"Patients with no Insurance on File"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,?5,"Age Range: "_IBAGEF_" to "_IBAGEL
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,?10,$P(IBSIN(IBX),U,2)
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !!?58,"Means",!,"Patient Name (SSN)",?39,"Age",?44,"DOB",?58,"Test?",?70,"Last Visit"
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: "="
  • Line Location: HD+13
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
Routine Call
  • DIR
  • Line Location:
    • ASK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("IBCOMC" WRT+2, WRT+3, WRT+4, WRT+15, WRT+16

Label References

Name Line Occurrences
ASK WRT+7, WRT+23
HD WRT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR ASK+3~
DIR(0 ASK+4*
DIROUT ASK+3~
DIRUT ASK+3~, ASK+5
DTOUT ASK+3~
DUOUT ASK+3~, ASK+5
>> IBAGEF HD+9
>> IBAGEL HD+9
>> IBAIB HD+5
>> IBBDT HD+6
IBCDA WRT+1~
IBDA WRT+1~, WRT+15*, WRT+16
IBDFN WRT+1~, WRT+3*, WRT+4, WRT+15, WRT+16
>> IBEDT HD+6
IBINS WRT+1~, WRT+16*, WRT+17, WRT+19, WRT+21
IBNA WRT+1~, WRT+2*, WRT+3, WRT+4, WRT+15, WRT+16
>> IBOUT HD+2, WRT+6, WRT+11, WRT+13, WRT+17, WRT+19, WRT+21
>> IBPAGE HD+1*, HD+3, HD+4
IBPOL WRT+1~
IBPT WRT+1~, WRT+4*, WRT+11, WRT+13
>> IBQUIT WRT+1*, WRT+2, WRT+3, WRT+6, WRT+7, WRT+15, WRT+23, ASK+5*
>> IBRF HD+5
>> IBRL HD+5
>> IBSIN HD+3, HD+7, HD+8, HD+11, WRT+17
>> IBSIN( HD+11
>> IBSINF HD+7
>> IBSINL HD+7
IBX HD+1~, HD+11*, HD+13*
IOF HD+3
IOSL WRT+6
IOST HD+2, ASK+2
U HD+11, WRT+11, WRT+13, WRT+17, WRT+19, WRT+21
X WRT+1~, ASK+3~
Y WRT+1~, ASK+3~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All