DGBTE1A ;ALB/SCK - BENEFICIARY TRAVEL FIND OLD CLAIMS PART 2; 1/22/93@1530
;;1.0;Beneficiary Travel;**20**;September 25, 2001;Build 185
;
;
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,DGBTDCLM
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 DGBTDCLM=$$GET1^DIQ(392,VADAT("W"),45,"I") S ^TMP("DGBTARA",$J,K)=VADATE("E")_$S($G(DGBTDCLM)'="":" (D)",1:"")
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
;
HELP1 ;
S %DT="EX" D ^%DT
W !!,"Enter date invoice was received. Can not be a future date."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGBTE1A 2467 printed Dec 13, 2024@01:40:40 Page 2
DGBTE1A ;ALB/SCK - BENEFICIARY TRAVEL FIND OLD CLAIMS PART 2; 1/22/93@1530
+1 ;;1.0;Beneficiary Travel;**20**;September 25, 2001;Build 185
+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,DGBTDCLM
+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 DGBTDCLM=$$GET1^DIQ(392,VADAT("W"),45,"I")
SET ^TMP("DGBTARA",$JOB,K)=VADATE("E")_$SELECT($GET(DGBTDCLM)'="":" (D)",1:"")
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
+4 ;
HELP1 ;
+1 SET %DT="EX"
DO ^%DT
+2 WRITE !!,"Enter date invoice was received. Can not be a future date."
+3 QUIT
