AGEVLM0 ; cmi/flag/maw - AGEV Handle List Man Setup ;
;;7.1;PATIENT REGISTRATION;;AUG 25,2005
;
;this routine will handle the way the list manager screen looks
;called from AGEVLM
;
Q ;not callable at top
;
MCD ;EP -- medicaid
S AGEVX="",AGEVLINE=AGEVLINE+1
;
S X="Insurer: "_IOUON_$$GET1^DIQ(9999999.18,AGEVINS,.01)_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,60)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX,AGEVX=""
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
S AGEVLINE=AGEVLINE+1
;
S X="Medicaid Name / DOB: "_IOUON_AGEVPOLH_" / "_AGEVPDOB_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
S AGEVLINE=AGEVLINE+1,AGEVX=""
;
S X="Medicaid Number / State: "_IOUON_AGEVPOLN_" / "_AGEVPST_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
S AGEVLINE=AGEVLINE+1,AGEVX=""
;
D SCOMMON ;possible to call all commons from one spot
Q
;
MCR ;EP -- medicare
S AGEVX="",AGEVLINE=AGEVLINE+1
;
S X="Insurer: "_IOUON_$$GET1^DIQ(9999999.18,AGEVINS,.01)_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,60)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX,AGEVX=""
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
S AGEVLINE=AGEVLINE+1
;
S X="Medicare Name / DOB: "_IOUON_AGEVPOLH_" / "_AGEVPDOB_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
S AGEVLINE=AGEVLINE+1,AGEVX=""
;
S X="Medicare Number: "_IOUON_AGEVPOLN_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
S AGEVLINE=AGEVLINE+1,AGEVX=""
;
D SCOMMON
Q
;
PI ;EP-- private insurace
S AGEVRCNT=AGEVRCNT+1,AGEVLINE=AGEVLINE+1,AGEVCNT=AGEVCNT+1
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
S AGEVX=$$SETSTR^VALM1($J(AGEVCNT,2),AGEVX,2,2)
;
S X="Insurer: "_IOUON_$$GET1^DIQ(9999999.18,AGEVINS,.01)_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,60)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX,AGEVX=""
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
S AGEVLINE=AGEVLINE+1
;
S X="Policy Holder: "_IOUON_AGEVPOLH_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
S AGEVLINE=AGEVLINE+1,AGEVX=""
;
S X="Policy Number: "_IOUON_AGEVPOLN_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
S AGEVLINE=AGEVLINE+1,AGEVX=""
;
D SCOMMON
D DCOMMON^AGEVLM2
;
RR ;EP -- railroad
S AGEVX="",AGEVLINE=AGEVLINE+1
;
S X="Insurer: "_IOUON_$$GET1^DIQ(9999999.18,AGEVINS,.01)_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,60)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX,AGEVX=""
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
S AGEVLINE=AGEVLINE+1
;
S X="Railroad Name: "_IOUON_AGEVPOLH_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
S AGEVLINE=AGEVLINE+1,AGEVX=""
;
S X="Railroad Number: "_IOUON_AGEVPOLN_IOUOFF
S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
S AGEVLINE=AGEVLINE+1,AGEVX=""
;
D SCOMMON
;
SCOMMON ;-- this is all the common subscriber calls
I $O(AGEV("SUB REQ VAL",0)) D
. S X="Subscriber Request Validation Message Codes: "
. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
. S AGEVLINE=AGEVLINE+1,AGEVX=""
. S AGEVIEN=0
. F S AGEVIEN=$O(AGEV("SUB REQ VAL",AGEVIEN)) Q:'AGEVIEN D
.. S AGEVCIEN=$G(AGEV("SUB REQ VAL",AGEVIEN))
.. Q:AGEVCIEN=""
.. S AGEVCCOD=$P($G(^AGEVAAA3(AGEVCIEN,0)),U)
.. S AGEVCDSC=$P($G(^AGEVAAA3(AGEVCIEN,0)),U,2)
.. Q:AGEVCCOD=""
.. S X=IOUON_AGEVCCOD_" - "_AGEVCDSC_IOUOFF
.. S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
.. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
.. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
.. S AGEVLINE=AGEVLINE+1,AGEVX=""
..Q
.Q
;
I $O(AGEV("SUB DTP",0)) D
. S X="Subscriber Date Qualifier Codes / Associated Date: "
. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
. S AGEVLINE=AGEVLINE+1,AGEVX=""
. S AGEVIEN=0
. F S AGEVIEN=$O(AGEV("SUB DTP",AGEVIEN)) Q:'AGEVIEN D
.. S AGEVCIEN=$G(AGEV("SUB DTP",AGEVIEN))
.. Q:AGEVCIEN=""
.. S AGEVP1=$P(AGEVCIEN,U)
.. S AGEVP2=$P(AGEVCIEN,U,2)
.. S AGEVCCOD=$P($G(^AGEVDTP1(AGEVP1,0)),U)
.. S AGEVCDSC=$P($G(^AGEVDTP1(AGEVP1,0)),U,2)
.. S AGEVDATE=$$FMTE^XLFDT(AGEVP2)
.. Q:AGEVCCOD=""
.. S X=IOUON_AGEVCCOD_" - "_AGEVCDSC_" / "_AGEVDATE_IOUOFF
.. S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
.. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
.. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
.. S AGEVLINE=AGEVLINE+1,AGEVX=""
..Q
.Q
;
;elg/ben info
S AGEVIEN=0
F S AGEVIEN=$O(AGEV("SUB ELG INFO",AGEVIEN)) Q:'AGEVIEN D
. ;record counter
. S AGEVRCNT=AGEVRCNT+1,AGEVLINE=AGEVLINE+1,AGEVCNT=AGEVCNT+1
. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
. S AGEVX=$$SETSTR^VALM1($J(AGEVCNT,2),AGEVX,2,2)
. ;
. S AGEVCIEN=$G(AGEV("SUB ELG INFO",AGEVIEN))
. S AGEVP1=$P(AGEVCIEN,U)
. S AGEVP2=$P(AGEVCIEN,U,2)
. S AGEVP3=$P(AGEVCIEN,U,3)
. S AGEVEBCD=$S($G(AGEVP1):$P($G(^AGEVEB1(AGEVP1,0)),U),1:"")
. S AGEVEBDS=$S($G(AGEVP1):$P($G(^AGEVEB1(AGEVP1,0)),U,2),1:"")
. S AGEVSVCD=$S($G(AGEVP2):$P($G(^AGEVEB3(AGEVP2,0)),U),1:"")
. S AGEVSVDS=$S($G(AGEVP2):$P($G(^AGEVEB3(AGEVP2,0)),U,2),1:"")
. S AGEVITCD=$S($G(AGEVP3):$P($G(^AGEVEB4(AGEVP3,0)),U),1:"")
. S AGEVITDS=$S($G(AGEVP3):$P($G(^AGEVEB4(AGEVP3,0)),U,2),1:"")
. S X="Subscriber Eligibility Information Code: "
. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
. S AGEVLINE=AGEVLINE+1,AGEVX=""
. S X=IOUON_AGEVEBCD_" - "_AGEVEBDS_IOUOFF
. I AGEVEBCD="" S X=""
. S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
. S AGEVLINE=AGEVLINE+1,AGEVX=""
. S X="Service Type Code / Insurance Type Code: "
. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
. S AGEVLINE=AGEVLINE+1,AGEVX=""
. S X=IOUON_AGEVSVCD_" - "_$E(AGEVSVDS,1,25)_" / "_AGEVITCD_" - "
. S X=X_$E(AGEVITDS,1,25)_IOUOFF
. I AGEVSVCD="",AGEVITCD="" S X=""
. S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
. S AGEVLINE=AGEVLINE+1,AGEVX=""
. ;
. I $O(AGEV("SUB REF ID",AGEVIEN,0)) D
.. S X="Subscriber Reference ID Codes / Associated Reference ID: "
.. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
.. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
.. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
.. S AGEVLINE=AGEVLINE+1,AGEVX=""
.. S AGEVSIEN=0
.. F S AGEVSIEN=$O(AGEV("SUB REF ID",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
... S AGEVCIEN=$G(AGEV("SUB REF ID",AGEVIEN,AGEVSIEN))
... Q:AGEVCIEN=""
... S AGEVP1=$P(AGEVCIEN,U)
... S AGEVP2=$P(AGEVCIEN,U,2)
... S AGEVRCOD=$P($G(^AGEVREF1(AGEVP1,0)),U)
... S AGEVRDSC=$P($G(^AGEVREF1(AGEVP1,0)),U,2)
... S X=IOUON_AGEVRCOD_" - "_AGEVRDSC_" / "_AGEVP2_IOUOFF
... I AGEVRCOD="" S X=""
... S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
... S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
... S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
... S AGEVLINE=AGEVLINE+1,AGEVX=""
...Q
..Q
. ;
. I $O(AGEV("SUB ELG REQ VAL",AGEVIEN,0)) D
.. S X="Subscriber Eligibility Request Validation Message Codes: "
.. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
.. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
.. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
.. S AGEVLINE=AGEVLINE+1,AGEVX=""
.. S AGEVSIEN=0
.. F S AGEVSIEN=$O(AGEV("SUB ELG REQ VAL",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
... S AGEVCIEN=$G(AGEV("SUB ELG REQ VAL",AGEVIEN,AGEVSIEN))
... Q:AGEVCIEN=""
... S AGEVCCOD=$P($G(^AGEVAAA3(AGEVCIEN,0)),U)
... S AGEVCDSC=$P($G(^AGEVAAA3(AGEVCIEN,0)),U,2)
... S X=IOUON_AGEVCCOD_" - "_AGEVCDSC_IOUOFF
... I AGEVCCOD="" S X=""
... S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
... S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
... S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
... S AGEVLINE=AGEVLINE+1,AGEVX=""
...Q
..Q
.;
. I $O(AGEV("SUB ELG DTP",AGEVIEN,0)) D
.. S X="Subscriber Elgibility Date Qualifier Codes / Associated Date: "
.. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
.. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
.. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
.. S AGEVLINE=AGEVLINE+1,AGEVX=""
.. S AGEVSIEN=0
.. F S AGEVSIEN=$O(AGEV("SUB ELG DTP",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
... S AGEVCIEN=$G(AGEV("SUB ELG DTP",AGEVIEN,AGEVSIEN))
... Q:AGEVCIEN=""
... S AGEVP1=$P(AGEVCIEN,U)
... S AGEVP2=$P(AGEVCIEN,U,2)
... S AGEVCCOD=$P($G(^AGEVDTP1(AGEVP1,0)),U)
... S AGEVCDSC=$P($G(^AGEVDTP1(AGEVP1,0)),U,2)
... S AGEVDATE=$$FMTE^XLFDT(AGEVP2)
... S X=IOUON_AGEVCCOD_" - "_AGEVCDSC_" / "_AGEVDATE_IOUOFF
... I AGEVCCOD="" S X=""
... S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
... S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
... S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
... S AGEVLINE=AGEVLINE+1,AGEVX=""
...Q
..Q
. ;
. I $O(AGEV("SUB ELG MSG",AGEVIEN,0)) D
.. S X="Subscriber Eligibility Additional Message: "
.. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
.. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
.. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
.. S AGEVLINE=AGEVLINE+1,AGEVX=""
.. S AGEVSIEN=0
.. F S AGEVSIEN=$O(AGEV("SUB ELG MSG",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
... S AGEVCIEN=$G(AGEV("SUB ELG MSG",AGEVIEN,AGEVSIEN))
... Q:'$D(AGEVCIEN)
... S X=IOUON_AGEVCIEN_IOUOFF
... S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
... S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
... S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
... S AGEVLINE=AGEVLINE+1,AGEVX=""
...Q
..Q
. ;
. S X=""
. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,70)
. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX,AGEVX=""
. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
.Q
Q
AGEVLM0 ; cmi/flag/maw - AGEV Handle List Man Setup ;
+1 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
+2 ;
+3 ;this routine will handle the way the list manager screen looks
+4 ;called from AGEVLM
+5 ;
+6 ;not callable at top
QUIT
+7 ;
MCD ;EP -- medicaid
+1 SET AGEVX=""
SET AGEVLINE=AGEVLINE+1
+2 ;
+3 SET X="Insurer: "_IOUON_$$GET1^DIQ(9999999.18,AGEVINS,.01)_IOUOFF
+4 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,60)
+5 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
SET AGEVX=""
+6 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
+7 SET AGEVLINE=AGEVLINE+1
+8 ;
+9 SET X="Medicaid Name / DOB: "_IOUON_AGEVPOLH_" / "_AGEVPDOB_IOUOFF
+10 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+11 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+12 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+13 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+14 ;
+15 SET X="Medicaid Number / State: "_IOUON_AGEVPOLN_" / "_AGEVPST_IOUOFF
+16 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+17 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+18 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+19 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+20 ;
+21 ;possible to call all commons from one spot
DO SCOMMON
+22 QUIT
+23 ;
MCR ;EP -- medicare
+1 SET AGEVX=""
SET AGEVLINE=AGEVLINE+1
+2 ;
+3 SET X="Insurer: "_IOUON_$$GET1^DIQ(9999999.18,AGEVINS,.01)_IOUOFF
+4 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,60)
+5 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
SET AGEVX=""
+6 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
+7 SET AGEVLINE=AGEVLINE+1
+8 ;
+9 SET X="Medicare Name / DOB: "_IOUON_AGEVPOLH_" / "_AGEVPDOB_IOUOFF
+10 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+11 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+12 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+13 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+14 ;
+15 SET X="Medicare Number: "_IOUON_AGEVPOLN_IOUOFF
+16 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+17 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+18 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+19 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+20 ;
+21 DO SCOMMON
+22 QUIT
+23 ;
PI ;EP-- private insurace
+1 SET AGEVRCNT=AGEVRCNT+1
SET AGEVLINE=AGEVLINE+1
SET AGEVCNT=AGEVCNT+1
+2 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+3 SET AGEVX=$$SETSTR^VALM1($JUSTIFY(AGEVCNT,2),AGEVX,2,2)
+4 ;
+5 SET X="Insurer: "_IOUON_$$GET1^DIQ(9999999.18,AGEVINS,.01)_IOUOFF
+6 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,60)
+7 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
SET AGEVX=""
+8 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
+9 SET AGEVLINE=AGEVLINE+1
+10 ;
+11 SET X="Policy Holder: "_IOUON_AGEVPOLH_IOUOFF
+12 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+13 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+14 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+15 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+16 ;
+17 SET X="Policy Number: "_IOUON_AGEVPOLN_IOUOFF
+18 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+19 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+20 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+21 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+22 ;
+23 DO SCOMMON
+24 DO DCOMMON^AGEVLM2
+25 ;
RR ;EP -- railroad
+1 SET AGEVX=""
SET AGEVLINE=AGEVLINE+1
+2 ;
+3 SET X="Insurer: "_IOUON_$$GET1^DIQ(9999999.18,AGEVINS,.01)_IOUOFF
+4 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,60)
+5 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
SET AGEVX=""
+6 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
+7 SET AGEVLINE=AGEVLINE+1
+8 ;
+9 SET X="Railroad Name: "_IOUON_AGEVPOLH_IOUOFF
+10 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+11 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+12 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+13 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+14 ;
+15 SET X="Railroad Number: "_IOUON_AGEVPOLN_IOUOFF
+16 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+17 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+18 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+19 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+20 ;
+21 DO SCOMMON
+22 ;
SCOMMON ;-- this is all the common subscriber calls
+1 IF $ORDER(AGEV("SUB REQ VAL",0))
Begin DoDot:1
+2 SET X="Subscriber Request Validation Message Codes: "
+3 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+4 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+5 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+6 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+7 SET AGEVIEN=0
+8 FOR
SET AGEVIEN=$ORDER(AGEV("SUB REQ VAL",AGEVIEN))
IF 'AGEVIEN
QUIT
Begin DoDot:2
+9 SET AGEVCIEN=$GET(AGEV("SUB REQ VAL",AGEVIEN))
+10 IF AGEVCIEN=""
QUIT
+11 SET AGEVCCOD=$PIECE($GET(^AGEVAAA3(AGEVCIEN,0)),U)
+12 SET AGEVCDSC=$PIECE($GET(^AGEVAAA3(AGEVCIEN,0)),U,2)
+13 IF AGEVCCOD=""
QUIT
+14 SET X=IOUON_AGEVCCOD_" - "_AGEVCDSC_IOUOFF
+15 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
+16 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+17 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+18 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+19 QUIT
End DoDot:2
+20 QUIT
End DoDot:1
+21 ;
+22 IF $ORDER(AGEV("SUB DTP",0))
Begin DoDot:1
+23 SET X="Subscriber Date Qualifier Codes / Associated Date: "
+24 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+25 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+26 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+27 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+28 SET AGEVIEN=0
+29 FOR
SET AGEVIEN=$ORDER(AGEV("SUB DTP",AGEVIEN))
IF 'AGEVIEN
QUIT
Begin DoDot:2
+30 SET AGEVCIEN=$GET(AGEV("SUB DTP",AGEVIEN))
+31 IF AGEVCIEN=""
QUIT
+32 SET AGEVP1=$PIECE(AGEVCIEN,U)
+33 SET AGEVP2=$PIECE(AGEVCIEN,U,2)
+34 SET AGEVCCOD=$PIECE($GET(^AGEVDTP1(AGEVP1,0)),U)
+35 SET AGEVCDSC=$PIECE($GET(^AGEVDTP1(AGEVP1,0)),U,2)
+36 SET AGEVDATE=$$FMTE^XLFDT(AGEVP2)
+37 IF AGEVCCOD=""
QUIT
+38 SET X=IOUON_AGEVCCOD_" - "_AGEVCDSC_" / "_AGEVDATE_IOUOFF
+39 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
+40 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+41 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+42 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+43 QUIT
End DoDot:2
+44 QUIT
End DoDot:1
+45 ;
+46 ;elg/ben info
+47 SET AGEVIEN=0
+48 FOR
SET AGEVIEN=$ORDER(AGEV("SUB ELG INFO",AGEVIEN))
IF 'AGEVIEN
QUIT
Begin DoDot:1
+49 ;record counter
+50 SET AGEVRCNT=AGEVRCNT+1
SET AGEVLINE=AGEVLINE+1
SET AGEVCNT=AGEVCNT+1
+51 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+52 SET AGEVX=$$SETSTR^VALM1($JUSTIFY(AGEVCNT,2),AGEVX,2,2)
+53 ;
+54 SET AGEVCIEN=$GET(AGEV("SUB ELG INFO",AGEVIEN))
+55 SET AGEVP1=$PIECE(AGEVCIEN,U)
+56 SET AGEVP2=$PIECE(AGEVCIEN,U,2)
+57 SET AGEVP3=$PIECE(AGEVCIEN,U,3)
+58 SET AGEVEBCD=$SELECT($GET(AGEVP1):$PIECE($GET(^AGEVEB1(AGEVP1,0)),U),1:"")
+59 SET AGEVEBDS=$SELECT($GET(AGEVP1):$PIECE($GET(^AGEVEB1(AGEVP1,0)),U,2),1:"")
+60 SET AGEVSVCD=$SELECT($GET(AGEVP2):$PIECE($GET(^AGEVEB3(AGEVP2,0)),U),1:"")
+61 SET AGEVSVDS=$SELECT($GET(AGEVP2):$PIECE($GET(^AGEVEB3(AGEVP2,0)),U,2),1:"")
+62 SET AGEVITCD=$SELECT($GET(AGEVP3):$PIECE($GET(^AGEVEB4(AGEVP3,0)),U),1:"")
+63 SET AGEVITDS=$SELECT($GET(AGEVP3):$PIECE($GET(^AGEVEB4(AGEVP3,0)),U,2),1:"")
+64 SET X="Subscriber Eligibility Information Code: "
+65 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+66 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+67 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+68 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+69 SET X=IOUON_AGEVEBCD_" - "_AGEVEBDS_IOUOFF
+70 IF AGEVEBCD=""
SET X=""
+71 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
+72 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+73 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+74 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+75 SET X="Service Type Code / Insurance Type Code: "
+76 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+77 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+78 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+79 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+80 SET X=IOUON_AGEVSVCD_" - "_$EXTRACT(AGEVSVDS,1,25)_" / "_AGEVITCD_" - "
+81 SET X=X_$EXTRACT(AGEVITDS,1,25)_IOUOFF
+82 IF AGEVSVCD=""
IF AGEVITCD=""
SET X=""
+83 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
+84 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+85 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+86 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+87 ;
+88 IF $ORDER(AGEV("SUB REF ID",AGEVIEN,0))
Begin DoDot:2
+89 SET X="Subscriber Reference ID Codes / Associated Reference ID: "
+90 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+91 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+92 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+93 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+94 SET AGEVSIEN=0
+95 FOR
SET AGEVSIEN=$ORDER(AGEV("SUB REF ID",AGEVIEN,AGEVSIEN))
IF 'AGEVSIEN
QUIT
Begin DoDot:3
+96 SET AGEVCIEN=$GET(AGEV("SUB REF ID",AGEVIEN,AGEVSIEN))
+97 IF AGEVCIEN=""
QUIT
+98 SET AGEVP1=$PIECE(AGEVCIEN,U)
+99 SET AGEVP2=$PIECE(AGEVCIEN,U,2)
+100 SET AGEVRCOD=$PIECE($GET(^AGEVREF1(AGEVP1,0)),U)
+101 SET AGEVRDSC=$PIECE($GET(^AGEVREF1(AGEVP1,0)),U,2)
+102 SET X=IOUON_AGEVRCOD_" - "_AGEVRDSC_" / "_AGEVP2_IOUOFF
+103 IF AGEVRCOD=""
SET X=""
+104 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
+105 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+106 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+107 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+108 QUIT
End DoDot:3
+109 QUIT
End DoDot:2
+110 ;
+111 IF $ORDER(AGEV("SUB ELG REQ VAL",AGEVIEN,0))
Begin DoDot:2
+112 SET X="Subscriber Eligibility Request Validation Message Codes: "
+113 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+114 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+115 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+116 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+117 SET AGEVSIEN=0
+118 FOR
SET AGEVSIEN=$ORDER(AGEV("SUB ELG REQ VAL",AGEVIEN,AGEVSIEN))
IF 'AGEVSIEN
QUIT
Begin DoDot:3
+119 SET AGEVCIEN=$GET(AGEV("SUB ELG REQ VAL",AGEVIEN,AGEVSIEN))
+120 IF AGEVCIEN=""
QUIT
+121 SET AGEVCCOD=$PIECE($GET(^AGEVAAA3(AGEVCIEN,0)),U)
+122 SET AGEVCDSC=$PIECE($GET(^AGEVAAA3(AGEVCIEN,0)),U,2)
+123 SET X=IOUON_AGEVCCOD_" - "_AGEVCDSC_IOUOFF
+124 IF AGEVCCOD=""
SET X=""
+125 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
+126 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+127 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+128 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+129 QUIT
End DoDot:3
+130 QUIT
End DoDot:2
+131 ;
+132 IF $ORDER(AGEV("SUB ELG DTP",AGEVIEN,0))
Begin DoDot:2
+133 SET X="Subscriber Elgibility Date Qualifier Codes / Associated Date: "
+134 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+135 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+136 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+137 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+138 SET AGEVSIEN=0
+139 FOR
SET AGEVSIEN=$ORDER(AGEV("SUB ELG DTP",AGEVIEN,AGEVSIEN))
IF 'AGEVSIEN
QUIT
Begin DoDot:3
+140 SET AGEVCIEN=$GET(AGEV("SUB ELG DTP",AGEVIEN,AGEVSIEN))
+141 IF AGEVCIEN=""
QUIT
+142 SET AGEVP1=$PIECE(AGEVCIEN,U)
+143 SET AGEVP2=$PIECE(AGEVCIEN,U,2)
+144 SET AGEVCCOD=$PIECE($GET(^AGEVDTP1(AGEVP1,0)),U)
+145 SET AGEVCDSC=$PIECE($GET(^AGEVDTP1(AGEVP1,0)),U,2)
+146 SET AGEVDATE=$$FMTE^XLFDT(AGEVP2)
+147 SET X=IOUON_AGEVCCOD_" - "_AGEVCDSC_" / "_AGEVDATE_IOUOFF
+148 IF AGEVCCOD=""
SET X=""
+149 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
+150 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+151 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+152 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+153 QUIT
End DoDot:3
+154 QUIT
End DoDot:2
+155 ;
+156 IF $ORDER(AGEV("SUB ELG MSG",AGEVIEN,0))
Begin DoDot:2
+157 SET X="Subscriber Eligibility Additional Message: "
+158 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
+159 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+160 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+161 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+162 SET AGEVSIEN=0
+163 FOR
SET AGEVSIEN=$ORDER(AGEV("SUB ELG MSG",AGEVIEN,AGEVSIEN))
IF 'AGEVSIEN
QUIT
Begin DoDot:3
+164 SET AGEVCIEN=$GET(AGEV("SUB ELG MSG",AGEVIEN,AGEVSIEN))
+165 IF '$DATA(AGEVCIEN)
QUIT
+166 SET X=IOUON_AGEVCIEN_IOUOFF
+167 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
+168 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
+169 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
SET AGEVX=""
+170 SET AGEVLINE=AGEVLINE+1
SET AGEVX=""
+171 QUIT
End DoDot:3
+172 QUIT
End DoDot:2
+173 ;
+174 SET X=""
+175 SET AGEVX=$$SETSTR^VALM1(X,AGEVX,6,70)
+176 SET ^TMP("AGEV",$JOB,AGEVLINE,0)=AGEVX
SET AGEVX=""
+177 SET ^TMP("AGEV",$JOB,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
+178 QUIT
End DoDot:1
+179 QUIT
