Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AGEVLM2

AGEVLM2.m

Go to the documentation of this file.
  1. AGEVLM2 ;IHS/SET/GTH - AGEV Handle List Man Setup CONT. ;
  1. ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
  1. ;
  1. DCOMMON ;EP -- dependent common list man calls
  1. I $O(AGEV("DEP REQ VAL",0)) D
  1. . S X="Dependent Request Validation Message Codes: "
  1. . S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
  1. . S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. . S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. . S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. . S AGEVIEN=0
  1. . F S AGEVIEN=$O(AGEV("DEP REQ VAL",AGEVIEN)) Q:'AGEVIEN D
  1. .. S AGEVCIEN=$G(AGEV("DEP REQ VAL",AGEVIEN))
  1. .. Q:AGEVCIEN=""
  1. .. S AGEVCCOD=$P($G(^AGEVAAA3(AGEVCIEN,0)),U)
  1. .. S AGEVCDSC=$P($G(^AGEVAAA3(AGEVCIEN,0)),U,2)
  1. .. Q:AGEVCCOD=""
  1. .. S X=IOUON_AGEVCCOD_" - "_AGEVCDSC_IOUOFF
  1. .. S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
  1. .. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. .. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. .. S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. ..Q
  1. .Q
  1. ;
  1. I $O(AGEV("DEP DTP",0)) D
  1. . S X="Dependent Date Qualifier Codes / Associated Date: "
  1. . S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
  1. . S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. . S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. . S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. . S AGEVIEN=0
  1. . F S AGEVIEN=$O(AGEV("DEP DTP",AGEVIEN)) Q:'AGEVIEN D
  1. .. S AGEVCIEN=$G(AGEV("DEP DTP",AGEVIEN))
  1. .. Q:AGEVCIEN=""
  1. .. S AGEVP1=$P(AGEVCIEN,U)
  1. .. S AGEVP2=$P(AGEVCIEN,U,2)
  1. .. S AGEVCCOD=$P($G(^AGEVDTP1(AGEVP1,0)),U)
  1. .. S AGEVCDSC=$P($G(^AGEVDTP1(AGEVP1,0)),U,2)
  1. .. S AGEVDATE=$$FMTE^XLFDT(AGEVP2)
  1. .. Q:AGEVCCOD=""
  1. .. S X=IOUON_AGEVCCOD_" - "_AGEVCDSC_" / "_AGEVDATE_IOUOFF
  1. .. S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
  1. .. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. .. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. .. S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. ..Q
  1. .Q
  1. ;
  1. ;elg/ben info
  1. S AGEVIEN=0
  1. F S AGEVIEN=$O(AGEV("DEP ELG INFO",AGEVIEN)) Q:'AGEVIEN D
  1. . ;record counter
  1. . S AGEVRCNT=AGEVRCNT+1,AGEVLINE=AGEVLINE+1,AGEVCNT=AGEVCNT+1
  1. . S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. . S AGEVX=$$SETSTR^VALM1($J(AGEVCNT,2),AGEVX,2,2)
  1. . ;
  1. . S AGEVCIEN=$G(AGEV("DEP ELG INFO",AGEVIEN))
  1. . S AGEVP1=$P(AGEVCIEN,U)
  1. . S AGEVP2=$P(AGEVCIEN,U,2)
  1. . S AGEVP3=$P(AGEVCIEN,U,3)
  1. . S AGEVEBCD=$S($G(AGEVP1):$P($G(^AGEVEB1(AGEVP1,0)),U),1:"")
  1. . S AGEVEBDS=$S($G(AGEVP1):$P($G(^AGEVEB1(AGEVP1,0)),U,2),1:"")
  1. . S AGEVSVCD=$S($G(AGEVP2):$P($G(^AGEVEB3(AGEVP2,0)),U),1:"")
  1. . S AGEVSVDS=$S($G(AGEVP2):$P($G(^AGEVEB3(AGEVP2,0)),U,2),1:"")
  1. . S AGEVITCD=$S($G(AGEVP3):$P($G(^AGEVEB4(AGEVP3,0)),U),1:"")
  1. . S AGEVITDS=$S($G(AGEVP3):$P($G(^AGEVEB4(AGEVP3,0)),U,2),1:"")
  1. . S X="Dependent Eligibility Information Code: "
  1. . S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
  1. . S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. . S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. . S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. . S X=IOUON_AGEVEBCD_" - "_AGEVEBDS_IOUOFF
  1. . I AGEVEBCD="" S X=""
  1. . S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
  1. . S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. . S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. . S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. . S X="Service Type Code / Insurance Type Code: "
  1. . S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
  1. . S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. . S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. . S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. . S X=IOUON_AGEVSVCD_" - "_$E(AGEVSVDS,1,25)_" / "_AGEVITCD_" - "
  1. . S X=X_$E(AGEVITDS,1,25)_IOUOFF
  1. . I AGEVSVCD="",AGEVITCD="" S X=""
  1. . S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
  1. . S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. . S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. . S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. . ;
  1. . I $O(AGEV("DEP REF ID",AGEVIEN,0)) D
  1. .. S X="Dependent Reference ID Codes / Associated Reference ID: "
  1. .. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
  1. .. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. .. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. .. S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. .. S AGEVSIEN=0
  1. .. F S AGEVSIEN=$O(AGEV("DEP REF ID",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
  1. ... S AGEVCIEN=$G(AGEV("DEP REF ID",AGEVIEN,AGEVSIEN))
  1. ... Q:AGEVCIEN=""
  1. ... S AGEVP1=$P(AGEVCIEN,U)
  1. ... S AGEVP2=$P(AGEVCIEN,U,2)
  1. ... S AGEVRCOD=$P($G(^AGEVREF1(AGEVP1,0)),U)
  1. ... S AGEVRDSC=$P($G(^AGEVREF1(AGEVP1,0)),U,2)
  1. ... S X=IOUON_AGEVRCOD_" - "_AGEVRDSC_" / "_AGEVP2_IOUOFF
  1. ... I AGEVRCOD="" S X=""
  1. ... S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
  1. ... S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. ... S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. ... S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. ...Q
  1. ..Q
  1. . ;
  1. . I $O(AGEV("DEP ELG REQ VAL",AGEVIEN,0)) D
  1. .. S X="Dependent Eligibility Request Validation Message Codes: "
  1. .. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
  1. .. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. .. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. .. S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. .. S AGEVSIEN=0
  1. .. F S AGEVSIEN=$O(AGEV("DEP ELG REQ VAL",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
  1. ... S AGEVCIEN=$G(AGEV("DEP ELG REQ VAL",AGEVIEN,AGEVSIEN))
  1. ... Q:AGEVCIEN=""
  1. ... S AGEVCCOD=$P($G(^AGEVAAA3(AGEVCIEN,0)),U)
  1. ... S AGEVCDSC=$P($G(^AGEVAAA3(AGEVCIEN,0)),U,2)
  1. ... S X=IOUON_AGEVCCOD_" - "_AGEVCDSC_IOUOFF
  1. ... I AGEVCCOD="" S X=""
  1. ... S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
  1. ... S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. ... S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. ... S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. ...Q
  1. ..Q
  1. .;
  1. . I $O(AGEV("DEP ELG DTP",AGEVIEN,0)) D
  1. .. S X="Dependent Eligibility Date Qualifier Codes / Associated Date: "
  1. .. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
  1. .. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. .. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. .. S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. .. S AGEVSIEN=0
  1. .. F S AGEVSIEN=$O(AGEV("DEP ELG DTP",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
  1. ... S AGEVCIEN=$G(AGEV("DEP ELG DTP",AGEVIEN,AGEVSIEN))
  1. ... Q:AGEVCIEN=""
  1. ... S AGEVP1=$P(AGEVCIEN,U)
  1. ... S AGEVP2=$P(AGEVCIEN,U,2)
  1. ... S AGEVCCOD=$P($G(^AGEVDTP1(AGEVP1,0)),U)
  1. ... S AGEVCDSC=$P($G(^AGEVDTP1(AGEVP1,0)),U,2)
  1. ... S AGEVDATE=$$FMTE^XLFDT(AGEVP2)
  1. ... S X=IOUON_AGEVCCOD_" - "_AGEVCDSC_" / "_AGEVDATE_IOUOFF
  1. ... I AGEVCCOD="" S X=""
  1. ... S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
  1. ... S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. ... S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. ... S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. ...Q
  1. ..Q
  1. . ;
  1. . I $O(AGEV("DEP ELG MSG",AGEVIEN,0)) D
  1. .. S X="Dependent Eligibility Additional Message: "
  1. .. S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,65)
  1. .. S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. .. S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. .. S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. .. S AGEVSIEN=0
  1. .. F S AGEVSIEN=$O(AGEV("DEP ELG MSG",AGEVIEN,AGEVSIEN)) Q:'AGEVSIEN D
  1. ... S AGEVCIEN=$G(AGEV("DEP ELG MSG",AGEVIEN,AGEVSIEN))
  1. ... Q:'$D(AGEVCIEN)
  1. ... S X=IOUON_AGEVCIEN_IOUOFF
  1. ... S AGEVX=$$SETSTR^VALM1(X,AGEVX,11,65)
  1. ... S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX
  1. ... S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF,AGEVX=""
  1. ... S AGEVLINE=AGEVLINE+1,AGEVX=""
  1. ...Q
  1. ..Q
  1. . ;
  1. . S X=""
  1. . S AGEVX=$$SETSTR^VALM1(X,AGEVX,6,70)
  1. . S ^TMP("AGEV",$J,AGEVLINE,0)=AGEVX,AGEVX=""
  1. . S ^TMP("AGEV",$J,"IDX",AGEVLINE,AGEVRCNT)=AGEVF
  1. .Q
  1. Q