IBCNSM4 ;ALB/AAS - INSURANCE MANAGEMENT, LIST MANAGER INIT ROUTINE ;21-OCT-92
;;2.0;INTEGRATED BILLING;**56,82,199,276,528**;21-MAR-94;Build 163
;;Per VA Directive 6402, this routine should not be modified.
;
;also used for IA #4694
;
% ; -- main entry point
EN ;
D DT^DICRW
K XQORS,VALMEVL,DFN,IBFASTXT
I '$G(IBVIEW) D EN^VALM("IBCNS PATIENT INSURANCE")
I $G(IBVIEW) D EN^VALM("IBCNS VIEW PAT INS")
ENQ K DFN,IBFASTXT,IBEXP1,IBEXP2,IBCDFN,IBFILE,IBI,IBLCNT,IBN,IBCGN,IBCNT,IBDA,IBDIF,IBPPOL,IBDUZ,IBCPOL,IBCDFND1,IBCDFN,IBCNS,IBYE
Q
;
;
INIT ; -- set up inital variables
S U="^",VALMCNT=0,VALMBG=1
K ^TMP("IBNSM",$J),^TMP("IBNSMDX",$J)
D:'$D(DFN) PAT G:$D(VALMQUIT) INITQ
D BLD^IBCNSM
;
INITQ Q
;
;
PAT ; -- select patient you are working with
N DIC,DPTNOFZY S DPTNOFZY=1 ;Suppress PATIENT file fuzzy lookups
S DIC(0)="AEQMN",DIC="^DPT(" D ^DIC I +Y<1 S VALMQUIT="" Q
S DFN=+Y
Q
;
HDR ; -- screen header for initial screen
D PID^VADPT
S VALMHDR(1)="Insurance Management for Patient: "_$E($P($G(^DPT(DFN,0)),"^"),1,20)_" "_$E($G(^(0)),1)_VA("BID")_" "_$$FMTE^XLFDT($P($G(^DPT(DFN,0)),"^",3),5) ; *528 - baa
S VALMHDR(2)=" "
I +$$BUFFER^IBCNBU1(DFN) S VALMHDR(2)="*** Patient has Insurance Buffer Records"
Q
;
FNL ; -- exit and clean up
K ^TMP("IBNSM",$J),^TMP("IBNSMDX",$J)
; for patch 56
;K IBFASTXT
D CLEAN^VALM10
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNSM4 1400 printed Oct 16, 2024@18:18:10 Page 2
IBCNSM4 ;ALB/AAS - INSURANCE MANAGEMENT, LIST MANAGER INIT ROUTINE ;21-OCT-92
+1 ;;2.0;INTEGRATED BILLING;**56,82,199,276,528**;21-MAR-94;Build 163
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;also used for IA #4694
+5 ;
% ; -- main entry point
EN ;
+1 DO DT^DICRW
+2 KILL XQORS,VALMEVL,DFN,IBFASTXT
+3 IF '$GET(IBVIEW)
DO EN^VALM("IBCNS PATIENT INSURANCE")
+4 IF $GET(IBVIEW)
DO EN^VALM("IBCNS VIEW PAT INS")
ENQ KILL DFN,IBFASTXT,IBEXP1,IBEXP2,IBCDFN,IBFILE,IBI,IBLCNT,IBN,IBCGN,IBCNT,IBDA,IBDIF,IBPPOL,IBDUZ,IBCPOL,IBCDFND1,IBCDFN,IBCNS,IBYE
+1 QUIT
+2 ;
+3 ;
INIT ; -- set up inital variables
+1 SET U="^"
SET VALMCNT=0
SET VALMBG=1
+2 KILL ^TMP("IBNSM",$JOB),^TMP("IBNSMDX",$JOB)
+3 if '$DATA(DFN)
DO PAT
if $DATA(VALMQUIT)
GOTO INITQ
+4 DO BLD^IBCNSM
+5 ;
INITQ QUIT
+1 ;
+2 ;
PAT ; -- select patient you are working with
+1 ;Suppress PATIENT file fuzzy lookups
NEW DIC,DPTNOFZY
SET DPTNOFZY=1
+2 SET DIC(0)="AEQMN"
SET DIC="^DPT("
DO ^DIC
IF +Y<1
SET VALMQUIT=""
QUIT
+3 SET DFN=+Y
+4 QUIT
+5 ;
HDR ; -- screen header for initial screen
+1 DO PID^VADPT
+2 ; *528 - baa
SET VALMHDR(1)="Insurance Management for Patient: "_$EXTRACT($PIECE($GET(^DPT(DFN,0)),"^"),1,20)_" "_$EXTRACT($GET(^(0)),1)_VA("BID")_" "_$$FMTE^XLFDT($PIECE($GET(^DPT(DFN,0)),"^",3),5)
+3 SET VALMHDR(2)=" "
+4 IF +$$BUFFER^IBCNBU1(DFN)
SET VALMHDR(2)="*** Patient has Insurance Buffer Records"
+5 QUIT
+6 ;
FNL ; -- exit and clean up
+1 KILL ^TMP("IBNSM",$JOB),^TMP("IBNSMDX",$JOB)
+2 ; for patch 56
+3 ;K IBFASTXT
+4 DO CLEAN^VALM10
+5 QUIT
