DGBTE1A.m

DGBTE1A ;ALB/SCK - BENEFICIARY TRAVEL FIND OLD CLAIMS PART 2; 1/22/93@1530

 ;;5.3;Registration;**35,69,1015**;Aug 13, 1993;Build 21

 ;

 ;

 Q

NOW ; date/time entry for NOW

 S (Y,Y1)=$$NOW^XLFDT()

 Q

OTHR ; date/time entry for manually entered date

 S %DT(0)="-NOW" D ^%DT S Y1=Y K %DT,%DT(0)

 Q

OLD ; date/time entry for select from past dates 

LIST2 ;  find all previous claims, get total count in DGBTC and put those claims in utility file

 N X1,YY

 S (DGBTC,DGBTCH,DGBTCH1)=0

 F I=0:0 S I=$O(^DGBT(392,"AI",DFN,I)) Q:'I  S DGBTC=DGBTC+1,^TMP("DGBT",$J,DGBTC,I)=9999999.99999-I ; order through claim file

 I '$D(^TMP("DGBT",$J))!('$D(^DGBT(392,"C",DFN))) W !!?10,"There are no entries on file for this patient",! S Y1=-1 G EXIT

 ;  build temporary global array using dates in utility file, converted to external format dates 

 F I=0:0 S I=$O(^TMP("DGBT",$J,I)) Q:'I  F J=0:0 S J=$O(^TMP("DGBT",$J,I,J)) Q:'J  S K=I,VADAT("W")=^(J) D ^VADATE S ^TMP("DGBTARA",$J,K)=VADATE("E")

LIST3 ;  list claims (in external format) from temporary global, 5 at a time. Loop thru list until selection made.

 S DGBTCH=1 W ! F X1=1:1:DGBTC W !?5,X1,".",?10,^TMP("DGBTARA",$J,X1) I X1#5=0!(X1=DGBTC) D CHOZ I $D(DUOUT)!$D(DTOUT)!(Y>0) S Y1=$S(+Y>0:Y,1:-1) K DIR Q

 G:'$D(DTOUT)&Y="" LIST3

  S Y1=$S(+Y>0:Y,1:-1) K DIR

EXIT ;

 K X1,YY,DGBTCHK,^TMP("DGBT",$J),^TMP("DGBTARA",$J)

 Q

CHOZ ;  select from the displayed past claims dates for claim to be edited.

 W !! S (Y1,Y)=0,DGBTCH1=X1,DIR(0)="FO^1:5",DIR("A")="Select CLAIM"

 S DIR("A",1)="Type '^' to exit date list, or <RETURN> to display more dates"

 S DIR("?")="Entering a '^' will exit the Past CLAIM list, entering <RETURN> will continue to scroll through past dates.",DIR("?",1)="Select a Past CLAIM date by number, or enter 'N' for NOW."

 D ^DIR K DIR I $D(DTOUT)!($D(DUOUT)) S Y1=-1 Q

 I Y="N"!(Y="n") W "   " D NOW Q

 Q:Y=""

 I X<DGBTCH!(X>DGBTCH1)!(X'=+X) W !?25,*7,"INVALID ENTRY!" G CHOZ ; value must be between 1 and last displayed number

 I X,$D(^TMP("DGBT",$J,X)) S Y=$O(^TMP("DGBT",$J,X,0)),Y=^TMP("DGBT",$J,X,Y),CHZFLG=1

 Q

HELP ;

 S %DT="EXR" D ^%DT

 W !!,"Time is required when adding a new CLAIM date.",!,"If there is more than one claim per date, select by number to edit."

 Q

DGBTE1A   ;ALB/SCK - BENEFICIARY TRAVEL FIND OLD CLAIMS PART 2; 1/22/93@1530

 +1       ;;5.3;Registration;**35,69,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ;

 +4        QUIT 

NOW       ; date/time entry for NOW

 +1        SET (Y,Y1)=$$NOW^XLFDT()

 +2        QUIT 

OTHR      ; date/time entry for manually entered date

 +1        SET %DT(0)="-NOW"

           DO ^%DT

           SET Y1=Y

           KILL %DT,%DT(0)

 +2        QUIT 

OLD       ; date/time entry for select from past dates 

LIST2     ;  find all previous claims, get total count in DGBTC and put those claims in utility file

 +1        NEW X1,YY

 +2        SET (DGBTC,DGBTCH,DGBTCH1)=0

 +3       ; order through claim file

           FOR I=0:0

               SET I=$ORDER(^DGBT(392,"AI",DFN,I))

               IF 'I

                   QUIT 

               SET DGBTC=DGBTC+1

               SET ^TMP("DGBT",$JOB,DGBTC,I)=9999999.99999-I

 +4        IF '$DATA(^TMP("DGBT",$JOB))!('$DATA(^DGBT(392,"C",DFN)))

               WRITE !!?10,"There are no entries on file for this patient",!

               SET Y1=-1

               GOTO EXIT

 +5       ;  build temporary global array using dates in utility file, converted to external format dates 

 +6        FOR I=0:0

               SET I=$ORDER(^TMP("DGBT",$JOB,I))

               IF 'I

                   QUIT 

               FOR J=0:0

                   SET J=$ORDER(^TMP("DGBT",$JOB,I,J))

                   IF 'J

                       QUIT 

                   SET K=I

                   SET VADAT("W")=^(J)

                   DO ^VADATE

                   SET ^TMP("DGBTARA",$JOB,K)=VADATE("E")

LIST3     ;  list claims (in external format) from temporary global, 5 at a time. Loop thru list until selection made.

 +1        SET DGBTCH=1

           WRITE !

           FOR X1=1:1:DGBTC

               WRITE !?5,X1,".",?10,^TMP("DGBTARA",$JOB,X1)

               IF X1#5=0!(X1=DGBTC)

                   DO CHOZ

                   IF $DATA(DUOUT)!$DATA(DTOUT)!(Y>0)

                       SET Y1=$SELECT(+Y>0:Y,1:-1)

                       KILL DIR

                       QUIT 

 +2        IF '$DATA(DTOUT)&Y=""

               GOTO LIST3

 +3        SET Y1=$SELECT(+Y>0:Y,1:-1)

           KILL DIR

EXIT      ;

 +1        KILL X1,YY,DGBTCHK,^TMP("DGBT",$JOB),^TMP("DGBTARA",$JOB)

 +2        QUIT 

CHOZ      ;  select from the displayed past claims dates for claim to be edited.

 +1        WRITE !!

           SET (Y1,Y)=0

           SET DGBTCH1=X1

           SET DIR(0)="FO^1:5"

           SET DIR("A")="Select CLAIM"

 +2        SET DIR("A",1)="Type '^' to exit date list, or <RETURN> to display more dates"

 +3        SET DIR("?")="Entering a '^' will exit the Past CLAIM list, entering <RETURN> will continue to scroll through past dates."

           SET DIR("?",1)="Select a Past CLAIM date by number, or enter 'N' for NOW."

 +4        DO ^DIR

           KILL DIR

           IF $DATA(DTOUT)!($DATA(DUOUT))

               SET Y1=-1

               QUIT 

 +5        IF Y="N"!(Y="n")

               WRITE "   "

               DO NOW

               QUIT 

 +6        IF Y=""

               QUIT 

 +7       ; value must be between 1 and last displayed number

           IF X<DGBTCH!(X>DGBTCH1)!(X'=+X)

               WRITE !?25,*7,"INVALID ENTRY!"

               GOTO CHOZ

 +8        IF X

               IF $DATA(^TMP("DGBT",$JOB,X))

                   SET Y=$ORDER(^TMP("DGBT",$JOB,X,0))

                   SET Y=^TMP("DGBT",$JOB,X,Y)

                   SET CHZFLG=1

 +9        QUIT 

HELP      ;

 +1        SET %DT="EXR"

           DO ^%DT

 +2        WRITE !!,"Time is required when adding a new CLAIM date.",!,"If there is more than one claim per date, select by number to edit."

 +3        QUIT