- AGEVLM2 ;IHS/SET/GTH - AGEV Handle List Man Setup CONT. ;
- ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
- ;
- DCOMMON ;EP -- dependent common list man calls
- I $O(AGEV("DEP REQ VAL",0)) D
- . S X="Dependent 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("DEP REQ VAL",AGEVIEN)) Q:'AGEVIEN D
- .. S AGEVCIEN=$G(AGEV("DEP 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("DEP DTP",0)) D
- . S X="Dependent 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("DEP DTP",AGEVIEN)) Q:'AGEVIEN D
- .. S AGEVCIEN=$G(AGEV("DEP 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("DEP 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("DEP 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="Dependent 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("DEP REF ID",AGEVIEN,0)) D
- .. S X="Dependent 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("DEP REF ID",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
- ... S AGEVCIEN=$G(AGEV("DEP 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("DEP ELG REQ VAL",AGEVIEN,0)) D
- .. S X="Dependent 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("DEP ELG REQ VAL",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
- ... S AGEVCIEN=$G(AGEV("DEP 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("DEP ELG DTP",AGEVIEN,0)) D
- .. S X="Dependent Eligibility 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("DEP ELG DTP",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
- ... S AGEVCIEN=$G(AGEV("DEP 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("DEP ELG MSG",AGEVIEN,0)) D
- .. S X="Dependent 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("DEP ELG MSG",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
- ... S AGEVCIEN=$G(AGEV("DEP 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
- AGEVLM2 ;IHS/SET/GTH - AGEV Handle List Man Setup CONT. ;
- +1 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
- +2 ;
- DCOMMON ;EP -- dependent common list man calls
- +1 IF $ORDER(AGEV("DEP REQ VAL",0))
- Begin DoDot:1
- +2 SET X="Dependent 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("DEP REQ VAL",AGEVIEN))
- IF 'AGEVIEN
- QUIT
- Begin DoDot:2
- +9 SET AGEVCIEN=$GET(AGEV("DEP 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("DEP DTP",0))
- Begin DoDot:1
- +23 SET X="Dependent 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("DEP DTP",AGEVIEN))
- IF 'AGEVIEN
- QUIT
- Begin DoDot:2
- +30 SET AGEVCIEN=$GET(AGEV("DEP 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("DEP 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("DEP 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="Dependent 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("DEP REF ID",AGEVIEN,0))
- Begin DoDot:2
- +89 SET X="Dependent 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("DEP REF ID",AGEVIEN,AGEVSIEN))
- IF 'AGEVSIEN
- QUIT
- Begin DoDot:3
- +96 SET AGEVCIEN=$GET(AGEV("DEP 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("DEP ELG REQ VAL",AGEVIEN,0))
- Begin DoDot:2
- +112 SET X="Dependent 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("DEP ELG REQ VAL",AGEVIEN,AGEVSIEN))
- IF 'AGEVSIEN
- QUIT
- Begin DoDot:3
- +119 SET AGEVCIEN=$GET(AGEV("DEP 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("DEP ELG DTP",AGEVIEN,0))
- Begin DoDot:2
- +133 SET X="Dependent Eligibility 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("DEP ELG DTP",AGEVIEN,AGEVSIEN))
- IF 'AGEVSIEN
- QUIT
- Begin DoDot:3
- +140 SET AGEVCIEN=$GET(AGEV("DEP 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("DEP ELG MSG",AGEVIEN,0))
- Begin DoDot:2
- +157 SET X="Dependent 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("DEP ELG MSG",AGEVIEN,AGEVSIEN))
- IF 'AGEVSIEN
- QUIT
- Begin DoDot:3
- +164 SET AGEVCIEN=$GET(AGEV("DEP 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