IBCNOR1 ;AITC/DTG - PATIENT MISSING COVERAGE REPORT ;08/14/23
Source file <IBCNOR1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; entry point
|
|
Q10 | ; ask ins
|
|
Q20 | ; ask group
|
|
Q30 | ; Group Name/Group Number/Both filter
|
|
Q40 | ; type of group
; Group(s)that Begin/Contain/Range XXX |
|
Q45 | ; select groups if not all
|
|
Q50 | ; ask patient
|
|
Q60 | ; check if all and ask to proceed
|
|
Q70 | ; Report or CSV output
|
|
EXIT | ; quit
|
|
SELI | ; Prompt user to select all or subset of insurance companies
; Count insurance companies with plans ; Returns: 0 - User selects insurance companies ; 1 - Run report for all insurance companies with plans ; STOP=1 - No selection made |
|
SELIQ | ;
|
|
SELG | ; Prompt user to select all or subset of group plans
; Count of group plans ; Returns: 0 - Selected Group Plans ; 1 - All Group Plans ; STOP=1 - No selection made |
|
SELGQ | ;
|
|
SELGN | ; Prompt user to select Group Name/Group Number/Both filter
; Returns: 1 - Group Name ; 2 - Group Number ; 3 - Both Group Name and Group Number ; -1 - No selection made |
|
SELGNQ | ;
|
|
NR | ; Ask Name Range
|
|
NRR | ;
|
|
NRRHLP(IBLEVEL) | ; ?? Help for the Range Prompt
|
|
SELALL | ; ask if user say run for all ins / groups / patients
|
|
SELALLQ | ; back
|
|
DEVICE | ;
|
|
ENQ | ;
|
|
OUT | ; Prompt to allow users to select output format
; Returns: E - Output to excel ; R - Output to report ; STOP=1 - No Selection made |
|
OUTQ | ;
|
|
STOP() | ; Determine if user wants to exit out of the whole option
; Init vars |
|
STOPX | ; STOP exit pt
|
|
CHKINS(IBISN) | ; check that insurance is allowed
|
|
CHKNM(INSNAME) | ; check name
; check on ins name |
|
SELFILT() | ; Group Plan filter
; Returns: A^B^C Where: ; A - 1 - Search for Group(s) that begin with ; the specified text (case insensitive) ; 2 - Search for Group(s) that contain ; the specified text (case insensitive) ; 3 - Search for Group(s) in a specified ; range (inclusive, case insensitive) ; 4 - Search for Group(s) that are BLANK or null ; B - Begin with text if A=1, Contains Text if A=2 or ; the range start if A=3 ; C - Range End text (only present when A=3) ; -1 if a valid filter was not selected |
|
SELFILTQ | ;
|
|
BLDSELECT | ; go through selected insurances and get their groups
|
|
BLDINSGR | ; go through insurances and get their groups
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBA(355.3 - [#355.3] | GET1^DIQ, GETS^DIQ |
^DIC(36 - [#36] | GET1^DIQ |