EASECSC ;ALB/LBD - LTC Co-Pay Test Screen Driver ;10 AUG 2001
;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,7**;Mar 15, 2001
;
;A series of screens used to collect the LTC Co-pay Test data
; Input -- DFN Patient IEN
; DGMTACT Menu Action (ie, ADD to Add a New Test)
; DGMTDT Date of Test
; DGMTI Annual Means Test IEN
; DGMTYPT Type of Test 3=LTC COPAY
; DGMTROU Option Routine Return
; Output -- None
;NOTE: This routine was modified from DGMTSC for LTC Co-pay
;
EN ;Entry point for LTC co-pay test screen driver
D HOME^%ZIS,SETUP^EASECSCU I DGERR D MG G Q1
EN1 ;Entry point to edit LTC co-pay test if incomplete
S DGMTSCI=+$O(DGMTSC(0)) G @($$ROU^EASECSCU(DGMTSCI))
;
Q I DGMTACT'="VEW" D:$G(DGX)'="^" EN^EASECSCC I DGERR G EN1:$$EDT
Q1 ;
K %,DGBL,DGDC,DGDEP,DGDR,DGFCOL,DGFL,DGMT0,DGMTA,DGMTINF,DGMTOUT,DGMTP,DGMTPAR,DGMTSC,DGMTSCI,DGREL,DGRNG,DGRPPR,DGSCOL,DGSEL,DGSELTY,DGVI,DGVINI,DGVIRI,DGVO,DGVPRI,DGX,DGY,DTOUT,DUOUT,Y,Z
;
;Update the TEST-DETERMINED STATUS field (#2.03) in the ANNUAL MEANS
;TEST file (408.31) when adding a means or copay test, completing a
;means test, or editing a means or copay test.
;I "ADDCOMEDT"[DGMTACT D SAVESTAT^DGMTU4(DGMTI,DGERR)
K DGERR
;
G @(DGMTROU)
;
MG ;Print set-up error messages
I $D(DGVPRI),DGVPRI'>0 W !!?3,"Patient Relation cannot be setup for patient."
I $D(DGVINI),DGVINI'>0 W !!?3,"Individual Annual Income cannot be setup for patient."
;I $D(DGMTPAR),DGMTPAR']"",DGMTYPT=1 W !!?3,"Means Test Thresholds are not defined."
W !?3,*7,"Please contact your site manager."
Q
;
EDT() ;Edit means/copay test if incomplete
N DIR,Y
S DIR("A")="Do you wish to edit the LTC copay test"
S DIR("B")="YES",DIR(0)="Y" D ^DIR
Q +$G(Y)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEASECSC 1809 printed Dec 13, 2024@01:54:07 Page 2
EASECSC ;ALB/LBD - LTC Co-Pay Test Screen Driver ;10 AUG 2001
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,7**;Mar 15, 2001
+2 ;
+3 ;A series of screens used to collect the LTC Co-pay Test data
+4 ; Input -- DFN Patient IEN
+5 ; DGMTACT Menu Action (ie, ADD to Add a New Test)
+6 ; DGMTDT Date of Test
+7 ; DGMTI Annual Means Test IEN
+8 ; DGMTYPT Type of Test 3=LTC COPAY
+9 ; DGMTROU Option Routine Return
+10 ; Output -- None
+11 ;NOTE: This routine was modified from DGMTSC for LTC Co-pay
+12 ;
EN ;Entry point for LTC co-pay test screen driver
+1 DO HOME^%ZIS
DO SETUP^EASECSCU
IF DGERR
DO MG
GOTO Q1
EN1 ;Entry point to edit LTC co-pay test if incomplete
+1 SET DGMTSCI=+$ORDER(DGMTSC(0))
GOTO @($$ROU^EASECSCU(DGMTSCI))
+2 ;
Q IF DGMTACT'="VEW"
if $GET(DGX)'="^"
DO EN^EASECSCC
IF DGERR
if $$EDT
GOTO EN1
Q1 ;
+1 KILL %,DGBL,DGDC,DGDEP,DGDR,DGFCOL,DGFL,DGMT0,DGMTA,DGMTINF,DGMTOUT,DGMTP,DGMTPAR,DGMTSC,DGMTSCI,DGREL,DGRNG,DGRPPR,DGSCOL,DGSEL,DGSELTY,DGVI,DGVINI,DGVIRI,DGVO,DGVPRI,DGX,DGY,DTOUT,DUOUT,Y,Z
+2 ;
+3 ;Update the TEST-DETERMINED STATUS field (#2.03) in the ANNUAL MEANS
+4 ;TEST file (408.31) when adding a means or copay test, completing a
+5 ;means test, or editing a means or copay test.
+6 ;I "ADDCOMEDT"[DGMTACT D SAVESTAT^DGMTU4(DGMTI,DGERR)
+7 KILL DGERR
+8 ;
+9 GOTO @(DGMTROU)
+10 ;
MG ;Print set-up error messages
+1 IF $DATA(DGVPRI)
IF DGVPRI'>0
WRITE !!?3,"Patient Relation cannot be setup for patient."
+2 IF $DATA(DGVINI)
IF DGVINI'>0
WRITE !!?3,"Individual Annual Income cannot be setup for patient."
+3 ;I $D(DGMTPAR),DGMTPAR']"",DGMTYPT=1 W !!?3,"Means Test Thresholds are not defined."
+4 WRITE !?3,*7,"Please contact your site manager."
+5 QUIT
+6 ;
EDT() ;Edit means/copay test if incomplete
+1 NEW DIR,Y
+2 SET DIR("A")="Do you wish to edit the LTC copay test"
+3 SET DIR("B")="YES"
SET DIR(0)="Y"
DO ^DIR
+4 QUIT +$GET(Y)
