- 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 Jan 18, 2025@03:18:43 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