DGENLUP ;ALB/CJM - Eligibilty Upload Audit - List Manager Screen;12 JUN 1997 10:00 am
;;5.3;Registration;**147**;08/13/93
;
EN(DFN,DGAUDIT) ;Entry point for the DGENCD CATASTROPHIC DISABILTY List Template
; Input:
; DFN - Patient IEN
; DGAUDIT - ien of record in the Enrollment/Eligibilty Upload Audit file
; Output -- None
;
Q:'$G(DFN)
D WAIT^DICD
D EN^VALM("DGENUP VIEW UPLOAD AUDIT")
Q
;
INIT ;Init variables and list array
D CLEAN^VALM10
S VALMCNT=0
S VALMAR="^DGENA(27.14,"_DGAUDIT_",1)"
S VALMCNT=$P($G(^DGENA(27.14,DGAUDIT,1,0)),"^",3)
Q
;
HELP ;Help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ;Exit code
S VALMAR="DGAUDIT"
D CLEAN^VALM10
D CLEAR^VALM1
Q
;
EXPND ;Expand code
Q
;
HDR ;Header code
N DGPREFNM,X,VA,VAERR
D PID^VADPT
S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30)_" ("_VA("BID")_")"
S X=$S('$D(^DPT(DFN,"TYPE")):"PATIENT TYPE UNKNOWN",$D(^DG(391,+^("TYPE"),0)):$P(^(0),U,1),1:"PATIENT TYPE UNKNOWN")
S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80)
S VALMHDR(2)="Message ID: "_$P($G(^DGENA(27.14,+$G(DGAUDIT),0)),"^")
S VALMHDR(3)="Approx DT/TM UPLOAD: "_$P($G(^DGENA(27.14,+$G(DGAUDIT),0)),"^",2)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGENLUP 1212 printed Nov 22, 2024@17:52:50 Page 2
DGENLUP ;ALB/CJM - Eligibilty Upload Audit - List Manager Screen;12 JUN 1997 10:00 am
+1 ;;5.3;Registration;**147**;08/13/93
+2 ;
EN(DFN,DGAUDIT) ;Entry point for the DGENCD CATASTROPHIC DISABILTY List Template
+1 ; Input:
+2 ; DFN - Patient IEN
+3 ; DGAUDIT - ien of record in the Enrollment/Eligibilty Upload Audit file
+4 ; Output -- None
+5 ;
+6 if '$GET(DFN)
QUIT
+7 DO WAIT^DICD
+8 DO EN^VALM("DGENUP VIEW UPLOAD AUDIT")
+9 QUIT
+10 ;
INIT ;Init variables and list array
+1 DO CLEAN^VALM10
+2 SET VALMCNT=0
+3 SET VALMAR="^DGENA(27.14,"_DGAUDIT_",1)"
+4 SET VALMCNT=$PIECE($GET(^DGENA(27.14,DGAUDIT,1,0)),"^",3)
+5 QUIT
+6 ;
HELP ;Help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ;Exit code
+1 SET VALMAR="DGAUDIT"
+2 DO CLEAN^VALM10
+3 DO CLEAR^VALM1
+4 QUIT
+5 ;
EXPND ;Expand code
+1 QUIT
+2 ;
HDR ;Header code
+1 NEW DGPREFNM,X,VA,VAERR
+2 DO PID^VADPT
+3 SET VALMHDR(1)=$EXTRACT("Patient: "_$PIECE($GET(^DPT(DFN,0)),U),1,30)_" ("_VA("BID")_")"
+4 SET X=$SELECT('$DATA(^DPT(DFN,"TYPE")):"PATIENT TYPE UNKNOWN",$DATA(^DG(391,+^("TYPE"),0)):$PIECE(^(0),U,1),1:"PATIENT TYPE UNKNOWN")
+5 SET VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80)
+6 SET VALMHDR(2)="Message ID: "_$PIECE($GET(^DGENA(27.14,+$GET(DGAUDIT),0)),"^")
+7 SET VALMHDR(3)="Approx DT/TM UPLOAD: "_$PIECE($GET(^DGENA(27.14,+$GET(DGAUDIT),0)),"^",2)
+8 QUIT
