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

Package: Integrated Billing

Routine: IBCOMA


Information

IBCOMA ;ALB/CMS/JNM - IDENTIFY ACTIVE POLICIES W/NO EFFECTIVE DATE; 09-29-2015

Source Information

Source file <IBCOMA.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^%DT  ^DIR  
Integrated Billing 1 BEG^IBCOMA1  

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

Package Total Caller Graph
Integrated Billing 1 IBCN POL W/NO EFF DATE REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point from option
; IBAIB - 1 (Patient Name Range) or 2 (Terminal Digit Range) sorting method
; IBAPPTE - Ending Appointment Date for filtering
; IBAPPTS - Starting Appointment Date for filtering
; IBBDT - Beginning Verification Date for filtering
; IBEDT - Ending Verification Date for filtering
; IBEXCEL - 1 for Excel Format, 0 for Report Format
; IBRF - First Patient Name or Terminal Digit, depending on sorting method
; IBRL - Last Patient Name or Terminal Digit, depending on sorting method
; IBPTYPE - 1 (Living Patients), 2 (Deceased Patients) or 3 (Both)
; IBSIN - 1 (Verified Policies), 2 (Non-Verified Policies) or 3 (Both)
STRT ;
PATLIFE ; IB*2*549 - Prompt for Living/Deceased Patient filter
VER ;
FILTYPE ; IB.2.0.549 added method
PVDATE ;
LADATE ;
FORMAT ; Prompt for Excel or Report Format
EXIT ;
WITEXT() ;
FORMATH ; Excel or Report Format Help
NR ; Ask Name Range
NRR
TR ; Ask Terminal Digit Range
PATLIFEH ; Living/Deceased/Both patient filter help Text
FILTYPEH ; Filter by Verification Date or Last Appointment Date Help Text
GETDATES(TEXT,STRTDATE,ENDDATE) ; Ask Date Range
VRBDT ; - get begin date
VREDT ; - get ending date
VRQ ;
ENH ; Sort help Text
ICH ; Search criteria help Text
QUE ; Ask Device
QUEQ ; EXIT CLEAN-UP

External References

Name Field # of Occurrence
^%DT VRBDT+2, VREDT+1
^%ZIS QUE+4
HOME^%ZIS QUE+12
^%ZISC QUEQ+2
^%ZTLOAD QUE+10
^DIR STRT+9, PATLIFE+10, VER+9, FILTYPE+11, FORMAT+6, NRR+1, NRR+4, TR+5, TR+8
BEG^IBCOMA1 QUE+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?10,"Identify Active Policies with NO Effective Date",!
  • Line Location: STRT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: STRT+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: PATLIFE+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: VER+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: FILTYPE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: LADATE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: FORMAT+10
Function Call: WRITE
  • Prompt: !,?5,"Enter E to Export data in a format readable by Microsoft Excel."
  • Line Location: FORMATH+1
Function Call: WRITE
  • Prompt: !,?5,"Enter R to display output in Report format."
  • Line Location: FORMATH+2
Function Call: WRITE
  • Prompt: !!,?5,"* The Go to Patient Name must follow after the Start with Name. *",!
  • Line Location: NRR+6
Function Call: WRITE
  • Prompt: !!,?5,"* The Go to Terminal Digit must follow after the Start with Digit. *",!
  • Line Location: TR+10
Function Call: WRITE
  • Prompt: !!,?5,"Enter 1 to only display Living Patients."
  • Line Location: PATLIFEH+1
Function Call: WRITE
  • Prompt: !,?5,"Enter 2 to only display Deceased Patients."
  • Line Location: PATLIFEH+2
Function Call: WRITE
  • Prompt: !,?5,"Enter 3 to display both Living and Deceased Patients."
  • Line Location: PATLIFEH+3
Function Call: WRITE
  • Prompt: !!,?5,"Enter 1 to only display policies with a Verification Date falling"
  • Line Location: FILTYPEH+1
Function Call: WRITE
  • Prompt: !,?11,"within a specified date range."
  • Line Location: FILTYPEH+2
Function Call: WRITE
  • Prompt: !,?5,"Enter 2 to only display patients with a Last Appointment Date falling"
  • Line Location: FILTYPEH+3
Function Call: WRITE
  • Prompt: !,?11,"within a specified date range."
  • Line Location: FILTYPEH+4
Function Call: WRITE
  • Prompt: !!," Please enter ",TEXT," Dates:"
  • Line Location: GETDATES+3
Function Call: READ
  • Formatting: !
  • Prompt: " Go to DATE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: VREDT+1
Function Call: WRITE
  • Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE."
  • Line Location: VREDT+1
Function Call: WRITE
  • Prompt: " <Date Range not entered>"
  • Line Location: VRQ+1
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"
  • Line Location: ENH+3
Function Call: WRITE
  • Prompt: !?5,"of the Patient's SSN.",!
  • Line Location: ENH+4
Function Call: WRITE
  • Prompt: !!,?5,"Enter 1 to list active policies by Verification Date Range"
  • Line Location: ICH+1
Function Call: WRITE
  • Prompt: !,?15,"(i.e. Sort Date By: 10-1-96 Go to Date: 01-1-97)"
  • Line Location: ICH+2
Function Call: WRITE
  • Prompt: !,?5,"Enter 2 to list active policies with no Verification Date."
  • Line Location: ICH+3
Function Call: WRITE
  • Prompt: !,?5,"Enter 3 to include active policies with or without a Verification Date."
  • Line Location: ICH+4
Function Call: WRITE
  • Prompt: !,?10,"You may want to queue this report!"
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,?10,"Report requires 132 columns.",!
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,?15,"... One Moment Please ..."
  • Line Location: QUE+15
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEQ+1
Routine Call
  • DIR
  • Line Location:
    • STRT+9
    • PATLIFE+10
    • VER+9
    • FILTYPE+11
    • FORMAT+6
    • NRR+1
    • NRR+4
    • TR+5
    • TR+8
Routine Call
  • %ZIS
  • Line Location:
    • QUE+4
Routine Call
  • %ZIS
  • Line Location:
    • QUE+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("IBCOMA" QUEQ+3!

Label References

Name Line Occurrences
$$GETDATES PVDATE+2, LADATE+5
$$WITEXT PATLIFE+3, VER+3
@( STRT+14, PVDATE+2, LADATE+5
EXIT STRT+10, STRT+15, PATLIFE+12, VER+11, FILTYPE+13, PVDATE+3, LADATE+6, FORMAT+8
FORMAT PVDATE+4
LADATE FILTYPE+3, FILTYPE+14
NRR NRR+6
PATLIFE VER+10
QUE FORMAT+11
QUEQ QUE+4, QUE+5
STRT PATLIFE+11
TR TR+10
VER FILTYPE+12
VRBDT VREDT+1
VREDT VREDT+1
VRQ VRBDT+2, VREDT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT GETDATES+2~, VRBDT+2*!, VREDT+1*
%DT("A" VRBDT+2*
%ZIS QUE+1~, QUE+4*
DIR EN+11~, STRT+12!, PATLIFE+2!, VER+2!, FILTYPE+2!, FORMAT+2!, NR+1~, TR+1~, GETDATES+1!
DIR("?" TR+3*
DIR("??" STRT+8*, PATLIFE+9*, VER+9*, FILTYPE+10*, FORMAT+5*
DIR("A" STRT+3*, STRT+4*, STRT+5*, STRT+6*, STRT+8*, PATLIFE+3*, PATLIFE+4*, PATLIFE+5*, PATLIFE+6*, PATLIFE+7*
, PATLIFE+9*, VER+3*, VER+4*, VER+5*, VER+6*, VER+7*, VER+9*, FILTYPE+5*, FILTYPE+6*, FILTYPE+7*
, FILTYPE+8*, FILTYPE+10*, FORMAT+4*, NRR*, NRR+3*, TR+4*, TR+7*
DIR("B" STRT+8*, PATLIFE+9*, VER+9*, FILTYPE+10*, FORMAT+5*, NRR*, NRR+3*, TR+4*, TR+7*
DIR(0 STRT+7*, PATLIFE+8*, VER+8*, FILTYPE+9*, FORMAT+3*, NRR*, NRR+3*, TR+2*
DIROUT EN+11~, STRT+12!, PATLIFE+2!, VER+2!, FILTYPE+2!, FORMAT+2!, NR+1~, GETDATES+1!
DIRUT EN+11~, STRT+12!, PATLIFE+2!, VER+2!, FILTYPE+2!, FORMAT+2!, NR+1~, TR+1~, GETDATES+1!
DTIME VREDT+1
DTOUT EN+11~, STRT+12!, PATLIFE+2!, VER+2!, FILTYPE+2!, FORMAT+2!, NR+1~, NRR+1, NRR+4, TR+1~
, TR+5, TR+8, GETDATES+1!
DUOUT EN+11~, STRT+12!, PATLIFE+2!, PATLIFE+11, VER+2!, VER+10, FILTYPE+2!, FILTYPE+12, FORMAT+2!, NR+1~
, NRR+1, NRR+4, TR+1~, TR+5, TR+8, GETDATES+1!
ENDDATE GETDATES~, VRBDT+1*, VREDT+1*, VRQ+1
IBAIB EN+11~, STRT+1*, STRT+11*, STRT+14, WITEXT+1, QUEQ+3!
IBAPPTE EN+11~, STRT+1*, FILTYPE+1*, LADATE+5, QUEQ+3!
IBAPPTS EN+11~, STRT+1*, FILTYPE+1*, LADATE+5, QUEQ+3!
IBBDT EN+11~, STRT+1*, FILTYPE+1*, PVDATE+2
IBEDT EN+11~, STRT+1*, FILTYPE+1*, PVDATE+2
IBEXCEL EN+11~, STRT+1*, FORMAT+7*, FORMAT+8, QUEQ+3!
IBPTYPE EN+12~, PATLIFE+13*, QUEQ+3!
IBQUIT EN+12~, STRT+1*, STRT+15, PVDATE+3, LADATE+6, NRR+1*, NRR+4*, TR+5*, TR+8*
IBRF EN+11~, STRT+1*, NRR+2*, NRR+6, TR+6*, TR+10, QUEQ+3!
IBRL EN+12~, STRT+1*, NRR+5*, NRR+6, TR+9*, TR+10, QUEQ+3!
IBSIN EN+12~, STRT+1*, VER+12*, FILTYPE+3, PVDATE+2, LADATE+5, QUEQ+3!
IO QUE+14
IO("Q" QUE+5!
IOST QUE+15
POP QUE+1~, QUE+4
STRTDATE GETDATES~, VRBDT+1*, VRBDT+2*, VREDT+1, VRQ+1
TEXT GETDATES~, GETDATES+3
UPMOD PVDATE+1~, PVDATE+2*, LADATE+3~, LADATE+5*
X EN+12~, PATLIFE+2!, VER+2!, FILTYPE+2!, NR+1~, TR+1~, GETDATES+2~, VREDT+1*
Y EN+12~, STRT+10, STRT+11, PATLIFE+2!, PATLIFE+12, PATLIFE+13, VER+2!, VER+11, VER+12, FILTYPE+2!
, FILTYPE+13, FILTYPE+14, FORMAT+7, NR+1~, NRR+2*, NRR+5*, TR+1~, TR+6, TR+9, GETDATES+2~
, VRBDT+2, VREDT+1
ZTDESC QUE+1~, QUE+9*
ZTRTN QUE+1~, QUE+6*
ZTSAVE QUE+1~
ZTSAVE("IBAIB" QUE+7*
ZTSAVE("IBAPPTE" QUE+8*
ZTSAVE("IBAPPTS" QUE+8*
ZTSAVE("IBBDT" QUE+7*
ZTSAVE("IBEDT" QUE+7*
ZTSAVE("IBEXCEL" QUE+8*
ZTSAVE("IBPTYPE" QUE+8*
ZTSAVE("IBRF" QUE+6*
ZTSAVE("IBRL" QUE+6*
ZTSAVE("IBSIN" QUE+7*
ZTSK QUE+11!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All