AGGALTRG.m

AGGALTRG ;VNGT/HS/ALA-Alternate Resources Trigger ; 01 Oct 2010  11:00 AM

 ;;1.0;PATIENT REGISTRATION GUI;;Nov 15, 2010

 ;

 ;

RAB(DATA,DFN) ; EP -- AGG ROI AOB INIT TRIG

 ; Input

 ;   DFN      - Patient IEN

 ;

 NEW UID,II,VALUE,SOURCE,HELP,TYPE,ABLE,REQ,CLEAR,HDR,PHREC,REC,RECPTR,X,END

 NEW ACTIVE,AGSEL,AOPCOINS,DATEINEF,FAC,INSGEND,INSPTR,ISACTIVE,RELPOLHO

 S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)

 S DATA=$NA(^TMP("AGGALTRG",UID))

 K @DATA

 S II=0

 NEW $ESTACK,$ETRAP S $ETRAP="D ERR^AGGWTRIG D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2

 D HDR

 S @DATA@(II)=HDR_$C(30),REQ="O"

 ;

 I $$ROIMISS^AGEDERR4(DFN) D

 . S SOURCE="AGGPTROI",REQ="R",VALUE="",ABLE="Y",TYPE="D",CLEAR="",HELP="Release of Information is missing" D UP

 I $$AOBMISS^AGEDERR4(DFN) D

 . S SOURCE="AGGPTAOB",REQ="R",VALUE="",ABLE="Y",TYPE="D",CLEAR="",HELP="Assignment of Benefits Missing" D UP

 ;

 I $$ROIEXP^AGEDERR4(DFN) D

 . S SOURCE="AGGPTROI",REQ="R",VALUE="",ABLE="Y",TYPE="D",CLEAR="AGGPTROI",HELP="Release of Information Expired past 1 year" D UP

 I $$ROIEXP^AGEDERR1(DFN) D

 . S SOURCE="AGGPTROI",REQ="O",VALUE="",ABLE="Y",TYPE="D",CLEAR="",HELP="Release of Information Expired past 1 year" D UP

 ;

 I $$AOBDUE^AGEDERR4(DFN) D

 . S SOURCE="AGGPTAOB",REQ="R",VALUE="",ABLE="Y",TYPE="D",CLEAR="AGGPTAOB",HELP="AOB expired (past one year) or AOB comes before eligibility start date" D UP

 I $$AOBDUE^AGEDERR1(DFN) D

 . S SOURCE="AGGPTAOB",REQ="O",VALUE="",ABLE="Y",TYPE="D",CLEAR="",HELP="AOB expired (past one year) or AOB comes before eligibility start date" D UP

 ;

DONE ;

 S II=II+1,@DATA@(II)=$C(31)

 Q

 ;

UP ;

 S II=II+1,@DATA@(II)=SOURCE_U_TYPE_U_VALUE_U_ABLE_U_$G(REQ)_U_$G(CLEAR)_U_HELP_$C(30)

 Q

 ;

HDR ;

 S HDR="T00008SOURCE^T00001CODE_TYPE^T01024PARMS^T00001ABLE_FLAG^T00001REQ_OPT^T00100CLEAR_FIELDS^T00200HELP_TEXT"

 Q

 ;

ROI(ROI) ;EP - Return error (RESULT=-1, MSG=ERROR MESSAGE) for ROI issues

 I $$RQROI^AGEDERR4(DUZ(2)),ROI="" Q "-1^Release of Information is Required"

 I ROI="" Q ""

 S ROI=$$DATE^AGGUL1(ROI)

 I ROI>DT Q "-1^The Release of Information date cannot be in the future."

 Q ""

AGGALTRG  ;VNGT/HS/ALA-Alternate Resources Trigger ; 01 Oct 2010  11:00 AM

 +1       ;;1.0;PATIENT REGISTRATION GUI;;Nov 15, 2010

 +2       ;

 +3       ;

RAB(DATA,DFN) ; EP -- AGG ROI AOB INIT TRIG

 +1       ; Input

 +2       ;   DFN      - Patient IEN

 +3       ;

 +4        NEW UID,II,VALUE,SOURCE,HELP,TYPE,ABLE,REQ,CLEAR,HDR,PHREC,REC,RECPTR,X,END

 +5        NEW ACTIVE,AGSEL,AOPCOINS,DATEINEF,FAC,INSGEND,INSPTR,ISACTIVE,RELPOLHO

 +6        SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)

 +7        SET DATA=$NAME(^TMP("AGGALTRG",UID))

 +8        KILL @DATA

 +9        SET II=0

 +10      ; SAC 2006 2.2.3.3.2

           NEW $ESTACK,$ETRAP

           SET $ETRAP="D ERR^AGGWTRIG D UNWIND^%ZTER"

 +11       DO HDR

 +12       SET @DATA@(II)=HDR_$CHAR(30)

           SET REQ="O"

 +13      ;

 +14       IF $$ROIMISS^AGEDERR4(DFN)

               Begin DoDot:1

 +15               SET SOURCE="AGGPTROI"

                   SET REQ="R"

                   SET VALUE=""

                   SET ABLE="Y"

                   SET TYPE="D"

                   SET CLEAR=""

                   SET HELP="Release of Information is missing"

                   DO UP

               End DoDot:1

 +16       IF $$AOBMISS^AGEDERR4(DFN)

               Begin DoDot:1

 +17               SET SOURCE="AGGPTAOB"

                   SET REQ="R"

                   SET VALUE=""

                   SET ABLE="Y"

                   SET TYPE="D"

                   SET CLEAR=""

                   SET HELP="Assignment of Benefits Missing"

                   DO UP

               End DoDot:1

 +18      ;

 +19       IF $$ROIEXP^AGEDERR4(DFN)

               Begin DoDot:1

 +20               SET SOURCE="AGGPTROI"

                   SET REQ="R"

                   SET VALUE=""

                   SET ABLE="Y"

                   SET TYPE="D"

                   SET CLEAR="AGGPTROI"

                   SET HELP="Release of Information Expired past 1 year"

                   DO UP

               End DoDot:1

 +21       IF $$ROIEXP^AGEDERR1(DFN)

               Begin DoDot:1

 +22               SET SOURCE="AGGPTROI"

                   SET REQ="O"

                   SET VALUE=""

                   SET ABLE="Y"

                   SET TYPE="D"

                   SET CLEAR=""

                   SET HELP="Release of Information Expired past 1 year"

                   DO UP

               End DoDot:1

 +23      ;

 +24       IF $$AOBDUE^AGEDERR4(DFN)

               Begin DoDot:1

 +25               SET SOURCE="AGGPTAOB"

                   SET REQ="R"

                   SET VALUE=""

                   SET ABLE="Y"

                   SET TYPE="D"

                   SET CLEAR="AGGPTAOB"

                   SET HELP="AOB expired (past one year) or AOB comes before eligibility start date"

                   DO UP

               End DoDot:1

 +26       IF $$AOBDUE^AGEDERR1(DFN)

               Begin DoDot:1

 +27               SET SOURCE="AGGPTAOB"

                   SET REQ="O"

                   SET VALUE=""

                   SET ABLE="Y"

                   SET TYPE="D"

                   SET CLEAR=""

                   SET HELP="AOB expired (past one year) or AOB comes before eligibility start date"

                   DO UP

               End DoDot:1

 +28      ;

DONE      ;

 +1        SET II=II+1

           SET @DATA@(II)=$CHAR(31)

 +2        QUIT 

 +3       ;

UP        ;

 +1        SET II=II+1

           SET @DATA@(II)=SOURCE_U_TYPE_U_VALUE_U_ABLE_U_$GET(REQ)_U_$GET(CLEAR)_U_HELP_$CHAR(30)

 +2        QUIT 

 +3       ;

HDR       ;

 +1        SET HDR="T00008SOURCE^T00001CODE_TYPE^T01024PARMS^T00001ABLE_FLAG^T00001REQ_OPT^T00100CLEAR_FIELDS^T00200HELP_TEXT"

 +2        QUIT 

 +3       ;

ROI(ROI)  ;EP - Return error (RESULT=-1, MSG=ERROR MESSAGE) for ROI issues

 +1        IF $$RQROI^AGEDERR4(DUZ(2))

               IF ROI=""

                   QUIT "-1^Release of Information is Required"

 +2        IF ROI=""

               QUIT ""

 +3        SET ROI=$$DATE^AGGUL1(ROI)

 +4        IF ROI>DT

               QUIT "-1^The Release of Information date cannot be in the future."

 +5        QUIT ""