IBCMDT1 ;ALB/VD - INSURANCE PLANS MISSING DATA REPORT (DRIVER 1) ; 10-APR-15
;;2.0;INTEGRATED BILLING ;**549**; 10-APR-15;Build 54
;;Per VA Directive 6402, this routine should not be modified.
;
SLAI ; Prompt user to select all or subset of insurance companies
; Count ins. companies with plans
;
; 0 -- user selects insurance companies
; 1 -- run report for all insurance companies with plans
;
N A,B
S (A,B)=0
F S A=$O(^IBA(355.3,"B",A)) Q:'A S B=B+1
S DIR(0)="SA^1:List All "_B_" Ins. Companies;2:List Only Ins. Companies That You Select"
W !!," There are "_B_" insurance companies associated with plans.",!
S DIR("A",1)="1. List All "_B_" Active Ins. Companies"
S DIR("A",2)="2. List Only Active Ins. Companies That You Select"
S DIR("A")=" SELECT 1 or 2: "
S DIR("?",1)="Enter a code from the list: 1 or 2. Only insurance"
S DIR("?")="companies with one or more plans can be selected."
D ^DIR K DIR
I $D(DIRUT) S STOP=1 G SLAIQ
S IBMDTSPC("IBAI")=(+Y=1) K Y
SLAIQ ;
Q
;
SLAPL ; Prompt user to select all or subset of plans
;
; 0 -- whether some or all ins. co's., user selects plans (may be
; all for certain companies, some for other companies
; 1 -- whether some or all ins. co's., run report for all plans
; associated with those co's.
;
S DIR(0)="YO"
S DIR("A")="There are "_$P(^IBA(355.3,0),"^",4)_" plans. List all plans for each company"
S DIR("B")="No"
S DIR("?",1)="If you say yes, the report will list all of the plans for each company."
S DIR("?",2)="If you say no, you must make plan selections for each individual company"
S DIR("?")="(anywhere from one plan to all)."
W ! D ^DIR K DIR
I $D(DIRUT) S STOP=1 G SLAPLQ
S IBMDTSPC("IBAPL")=+Y K Y
SLAPLQ ;
Q
;
SLGRN ; Prompt user to report missing Group Numbers
;
; 0 -- Do not print missing Group Numbers.
; 1 -- Print missing Group Numbers.
;
S DIR(0)="YO"
S DIR("A")="Display Active Group(s) missing Group Number"
S DIR("B")="YES"
S DIR("?",1)="If you say yes, the report will print X's when Group Number is missing."
S DIR("?")="If you say no, missing Group Number will not be indicated."
W ! D ^DIR K DIR
I $D(DIRUT) S STOP=1 G SLGRNQ
S IBMDTSPC("IBGRN")=+Y K Y
SLGRNQ ;
Q
;
SLPTY ; Prompt user to report missing Type of Plan
;
; 0 -- Do not print missing Type of Plan.
; 1 -- Print missing Type of Plan.
;
S DIR(0)="YO"
S DIR("A")="Display Active Group(s) missing Type of Plan"
S DIR("B")="YES"
S DIR("?",1)="If you say yes, the report will print X's when Type of Plan is missing."
S DIR("?")="If you say no, missing Type of Plan will not be indicated."
W ! D ^DIR K DIR
I $D(DIRUT) S STOP=1 G SLPTYQ
S IBMDTSPC("IBPTY")=+Y K Y
SLPTYQ ;
Q
;
SLTFT ; Prompt user to report missing Timely Filing Time Frame
;
; 0 -- Do not print missing Timely Filing Time Frame.
; 1 -- Print missing Timely Filing Time Frame.
;
S DIR(0)="YO"
S DIR("A")="Display Active Group(s) missing Timely Filing Time Frame"
S DIR("B")="YES"
S DIR("?",1)="If you say yes, the report will print X's when Timely Filing Time Frame"
S DIR("?",2)="is missing."
S DIR("?")="If you say no, missing Timely Filing Time Frame will not be indicated."
W ! D ^DIR K DIR
I $D(DIRUT) S STOP=1 G SLTFTQ
S IBMDTSPC("IBTFT")=+Y K Y
SLTFTQ ;
Q
;
SLEPT ; Prompt user to report missing Electronic Plan Type
;
; 0 -- Do not print missing Electronic Plan Type.
; 1 -- Print missing Electronic Plan Type.
;
S DIR(0)="YO"
S DIR("A")="Display Active Group(s) missing Electronic Plan Type"
S DIR("B")="YES"
S DIR("?",1)="If you say yes, the report will print X's when Electronic Plan Type is missing."
S DIR("?")="If you say no, missing Electronic Plan Type will not be indicated."
W ! D ^DIR K DIR
I $D(DIRUT) S STOP=1 G SLEPTQ
S IBMDTSPC("IBEPT")=+Y K Y
SLEPTQ ;
Q
;
SLCLM ; Prompt user to report missing Coverage Limitations
;
; 0 -- Do not print missing Coverage Limitations.
; 1 -- Print missing Coverage Limitations.
;
S DIR(0)="YO"
S DIR("A")="Display Active Group(s) missing Coverage Limitations"
S DIR("B")="YES"
S DIR("?",1)="If you say yes, the report will print X's when Coverage Limitations is missing."
S DIR("?")="If you say no, missing Coverage Limitations will not be indicated."
W ! D ^DIR K DIR
I $D(DIRUT) S STOP=1 G SLCLMQ
S IBMDTSPC("IBCLM")=+Y K Y
SLCLMQ ;
Q
;
SLBIN ; Prompt user to report missing Banking Identification Numbers (BIN)
;
; 0 -- Do not print missing Banking Identification Numbers (BIN).
; 1 -- Print missing Banking Identification Numbers (BIN).
;
S DIR(0)="YO"
S DIR("A")="Display Active Group(s) missing BIN"
S DIR("B")="YES"
S DIR("?",1)="If you say yes, the report will print X's when Banking Identification Number"
S DIR("?",2)="(BIN) is missing."
S DIR("?",3)="If you say no, missing Banking Identification Number (BIN) will not be"
S DIR("?")="indicated."
W ! D ^DIR K DIR
I $D(DIRUT) S STOP=1 G SLBINQ
S IBMDTSPC("IBBIN")=+Y K Y
SLBINQ ;
Q
;
SLPCN ; Prompt user to report missing Processor Control Numbers (PCN)
;
; 0 -- Do not print missing Processor Control Numbers (PCN).
; 1 -- Print missing Processor Control Numbers (PCN).
;
S DIR(0)="YO"
S DIR("A")="Display Active Group(s) missing PCN"
S DIR("B")="YES"
S DIR("?",1)="If you say yes, the report will print X's when Processor Control Number"
S DIR("?",2)="(PCN) is missing."
S DIR("?",3)="If you say no, missing Processor Control Number (PCN) will not be"
S DIR("?")="indicated."
W ! D ^DIR K DIR
I $D(DIRUT) S STOP=1 G SLPCNQ
S IBMDTSPC("IBPCN")=+Y K Y
SLPCNQ ;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCMDT1 5714 printed Dec 13, 2024@02:13:35 Page 2
IBCMDT1 ;ALB/VD - INSURANCE PLANS MISSING DATA REPORT (DRIVER 1) ; 10-APR-15
+1 ;;2.0;INTEGRATED BILLING ;**549**; 10-APR-15;Build 54
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
SLAI ; Prompt user to select all or subset of insurance companies
+1 ; Count ins. companies with plans
+2 ;
+3 ; 0 -- user selects insurance companies
+4 ; 1 -- run report for all insurance companies with plans
+5 ;
+6 NEW A,B
+7 SET (A,B)=0
+8 FOR
SET A=$ORDER(^IBA(355.3,"B",A))
if 'A
QUIT
SET B=B+1
+9 SET DIR(0)="SA^1:List All "_B_" Ins. Companies;2:List Only Ins. Companies That You Select"
+10 WRITE !!," There are "_B_" insurance companies associated with plans.",!
+11 SET DIR("A",1)="1. List All "_B_" Active Ins. Companies"
+12 SET DIR("A",2)="2. List Only Active Ins. Companies That You Select"
+13 SET DIR("A")=" SELECT 1 or 2: "
+14 SET DIR("?",1)="Enter a code from the list: 1 or 2. Only insurance"
+15 SET DIR("?")="companies with one or more plans can be selected."
+16 DO ^DIR
KILL DIR
+17 IF $DATA(DIRUT)
SET STOP=1
GOTO SLAIQ
+18 SET IBMDTSPC("IBAI")=(+Y=1)
KILL Y
SLAIQ ;
+1 QUIT
+2 ;
SLAPL ; Prompt user to select all or subset of plans
+1 ;
+2 ; 0 -- whether some or all ins. co's., user selects plans (may be
+3 ; all for certain companies, some for other companies
+4 ; 1 -- whether some or all ins. co's., run report for all plans
+5 ; associated with those co's.
+6 ;
+7 SET DIR(0)="YO"
+8 SET DIR("A")="There are "_$PIECE(^IBA(355.3,0),"^",4)_" plans. List all plans for each company"
+9 SET DIR("B")="No"
+10 SET DIR("?",1)="If you say yes, the report will list all of the plans for each company."
+11 SET DIR("?",2)="If you say no, you must make plan selections for each individual company"
+12 SET DIR("?")="(anywhere from one plan to all)."
+13 WRITE !
DO ^DIR
KILL DIR
+14 IF $DATA(DIRUT)
SET STOP=1
GOTO SLAPLQ
+15 SET IBMDTSPC("IBAPL")=+Y
KILL Y
SLAPLQ ;
+1 QUIT
+2 ;
SLGRN ; Prompt user to report missing Group Numbers
+1 ;
+2 ; 0 -- Do not print missing Group Numbers.
+3 ; 1 -- Print missing Group Numbers.
+4 ;
+5 SET DIR(0)="YO"
+6 SET DIR("A")="Display Active Group(s) missing Group Number"
+7 SET DIR("B")="YES"
+8 SET DIR("?",1)="If you say yes, the report will print X's when Group Number is missing."
+9 SET DIR("?")="If you say no, missing Group Number will not be indicated."
+10 WRITE !
DO ^DIR
KILL DIR
+11 IF $DATA(DIRUT)
SET STOP=1
GOTO SLGRNQ
+12 SET IBMDTSPC("IBGRN")=+Y
KILL Y
SLGRNQ ;
+1 QUIT
+2 ;
SLPTY ; Prompt user to report missing Type of Plan
+1 ;
+2 ; 0 -- Do not print missing Type of Plan.
+3 ; 1 -- Print missing Type of Plan.
+4 ;
+5 SET DIR(0)="YO"
+6 SET DIR("A")="Display Active Group(s) missing Type of Plan"
+7 SET DIR("B")="YES"
+8 SET DIR("?",1)="If you say yes, the report will print X's when Type of Plan is missing."
+9 SET DIR("?")="If you say no, missing Type of Plan will not be indicated."
+10 WRITE !
DO ^DIR
KILL DIR
+11 IF $DATA(DIRUT)
SET STOP=1
GOTO SLPTYQ
+12 SET IBMDTSPC("IBPTY")=+Y
KILL Y
SLPTYQ ;
+1 QUIT
+2 ;
SLTFT ; Prompt user to report missing Timely Filing Time Frame
+1 ;
+2 ; 0 -- Do not print missing Timely Filing Time Frame.
+3 ; 1 -- Print missing Timely Filing Time Frame.
+4 ;
+5 SET DIR(0)="YO"
+6 SET DIR("A")="Display Active Group(s) missing Timely Filing Time Frame"
+7 SET DIR("B")="YES"
+8 SET DIR("?",1)="If you say yes, the report will print X's when Timely Filing Time Frame"
+9 SET DIR("?",2)="is missing."
+10 SET DIR("?")="If you say no, missing Timely Filing Time Frame will not be indicated."
+11 WRITE !
DO ^DIR
KILL DIR
+12 IF $DATA(DIRUT)
SET STOP=1
GOTO SLTFTQ
+13 SET IBMDTSPC("IBTFT")=+Y
KILL Y
SLTFTQ ;
+1 QUIT
+2 ;
SLEPT ; Prompt user to report missing Electronic Plan Type
+1 ;
+2 ; 0 -- Do not print missing Electronic Plan Type.
+3 ; 1 -- Print missing Electronic Plan Type.
+4 ;
+5 SET DIR(0)="YO"
+6 SET DIR("A")="Display Active Group(s) missing Electronic Plan Type"
+7 SET DIR("B")="YES"
+8 SET DIR("?",1)="If you say yes, the report will print X's when Electronic Plan Type is missing."
+9 SET DIR("?")="If you say no, missing Electronic Plan Type will not be indicated."
+10 WRITE !
DO ^DIR
KILL DIR
+11 IF $DATA(DIRUT)
SET STOP=1
GOTO SLEPTQ
+12 SET IBMDTSPC("IBEPT")=+Y
KILL Y
SLEPTQ ;
+1 QUIT
+2 ;
SLCLM ; Prompt user to report missing Coverage Limitations
+1 ;
+2 ; 0 -- Do not print missing Coverage Limitations.
+3 ; 1 -- Print missing Coverage Limitations.
+4 ;
+5 SET DIR(0)="YO"
+6 SET DIR("A")="Display Active Group(s) missing Coverage Limitations"
+7 SET DIR("B")="YES"
+8 SET DIR("?",1)="If you say yes, the report will print X's when Coverage Limitations is missing."
+9 SET DIR("?")="If you say no, missing Coverage Limitations will not be indicated."
+10 WRITE !
DO ^DIR
KILL DIR
+11 IF $DATA(DIRUT)
SET STOP=1
GOTO SLCLMQ
+12 SET IBMDTSPC("IBCLM")=+Y
KILL Y
SLCLMQ ;
+1 QUIT
+2 ;
SLBIN ; Prompt user to report missing Banking Identification Numbers (BIN)
+1 ;
+2 ; 0 -- Do not print missing Banking Identification Numbers (BIN).
+3 ; 1 -- Print missing Banking Identification Numbers (BIN).
+4 ;
+5 SET DIR(0)="YO"
+6 SET DIR("A")="Display Active Group(s) missing BIN"
+7 SET DIR("B")="YES"
+8 SET DIR("?",1)="If you say yes, the report will print X's when Banking Identification Number"
+9 SET DIR("?",2)="(BIN) is missing."
+10 SET DIR("?",3)="If you say no, missing Banking Identification Number (BIN) will not be"
+11 SET DIR("?")="indicated."
+12 WRITE !
DO ^DIR
KILL DIR
+13 IF $DATA(DIRUT)
SET STOP=1
GOTO SLBINQ
+14 SET IBMDTSPC("IBBIN")=+Y
KILL Y
SLBINQ ;
+1 QUIT
+2 ;
SLPCN ; Prompt user to report missing Processor Control Numbers (PCN)
+1 ;
+2 ; 0 -- Do not print missing Processor Control Numbers (PCN).
+3 ; 1 -- Print missing Processor Control Numbers (PCN).
+4 ;
+5 SET DIR(0)="YO"
+6 SET DIR("A")="Display Active Group(s) missing PCN"
+7 SET DIR("B")="YES"
+8 SET DIR("?",1)="If you say yes, the report will print X's when Processor Control Number"
+9 SET DIR("?",2)="(PCN) is missing."
+10 SET DIR("?",3)="If you say no, missing Processor Control Number (PCN) will not be"
+11 SET DIR("?")="indicated."
+12 WRITE !
DO ^DIR
KILL DIR
+13 IF $DATA(DIRUT)
SET STOP=1
GOTO SLPCNQ
+14 SET IBMDTSPC("IBPCN")=+Y
KILL Y
SLPCNQ ;
+1 QUIT
+2 ;
