Routine: IBCNSC0

Information

IBCNSC0 ;ALB/NLR - INSURANCE COMPANY EDIT - ; 12-MAR-1993

Source file <IBCNSC0.m>

Name	Comments	DBIA/ICR reference
CLAIMS1	; display Inpatient Claims information
CLMS1AD	; KDM US2487 IB2.0592 call in tag from IBCNSI
R1Q
CLAIMS2	; display Outpatient Claims information
CLMS2AD	; KDM US2487 IB2.0592 call in tag from IBCNSI
ADDRESS(INS,NODE,PH)	; -- generic find address
REDO	; gather insurance carrier's main address information
ADDRESQ	; concatenate company name, address, phone and fax
ADDREQ
ADD2(INS,NODE,PH)	;
FTF(IBIEN,IBEXIT)	; Edit Filing Time Frame fields ; Input: IBIEN - IEN of the entry being checked ; IBEXIT - 0 default value from input template ; Returns: 1 - if user entered '^' to exit for any of the FTF fields
P12	;Prompt for field .12
CHECK	; ; If NONE of the 3 fields were updated, quit
QUIT	;
UPDINS	; Update Insurance Co FTF fields (added with IB*702)
GETGRP	; Get count of all Active group plans (added with IB*702)
UPDGRP	; Update all Active group plans with ALL Insurance Co FTF fields (added with IB*702)
PFLD18	; Prompt for field .18 STANDARD FTF (added with IB*702)
EVFLD18	;Evaluate field .18. Determine if field .18 should be updated (IBFLG18=1) and ; if the user should be prompted to enter STANDARD FTF VALUE field .19
PFLD19	; Prompt for field .19 STANDARD FTF VALUE (added with IB*702)
PFLD12	; Prompt for field .12 FILING TIME FRAME (added with IB*702)
DELETE()	; Confirm Deletion (added with IB*702) ; Returns: 1 - YES ; 0 - NO or user entered "^"

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CHECK+12
Function Call: WRITE	Prompt: !!,"The Filing Time Frame for all ACTIVE group plans will be changed to:" Line Location: CHECK+29
Function Call: WRITE	Prompt: !," STANDARD FILING TIME FRAME: ",$S(IB18="@":"<deleted>",1:$$GET1^DIQ(36,IBIENS,.18)) Line Location: CHECK+30
Function Call: WRITE	Prompt: !,"STANDARD FILING TIME FRAME VALUE: ",$S(IB19="@":"<deleted>",1:$$GET1^DIQ(36,IBIENS,.19)) Line Location: CHECK+31
Function Call: WRITE	Prompt: !," FILING TIME FRAME: ",$S(IB12="@":"<deleted>",1:$$GET1^DIQ(36,IBIENS,.12)) Line Location: CHECK+32
Function Call: WRITE	Prompt: ! Line Location: CHECK+33
Function Call: WRITE	Prompt: ! Line Location: CHECK+50
Function Call: WRITE	Prompt: " <NOTHING DELETED>" Line Location: EVFLD18+5
Function Call: WRITE	Prompt: " <NOTHING DELETED>" Line Location: PFLD19+13
Function Call: WRITE	Prompt: " <NOTHING DELETED>" Line Location: PFLD12+15

FileNo	Call Tags
^IBA(355.3 - [#355.3]	GET1^DIQ
^DIC(36 - [#36]	GET1^DIQ