| [613] | 1 | DGENLUP ;ALB/CJM - Eligibilty Upload Audit - List Manager Screen;12 JUN 1997 10:00 am
|
|---|
| 2 | ;;5.3;Registration;**147**;08/13/93
|
|---|
| 3 | ;
|
|---|
| 4 | EN(DFN,DGAUDIT) ;Entry point for the DGENCD CATASTROPHIC DISABILTY List Template
|
|---|
| 5 | ; Input:
|
|---|
| 6 | ; DFN - Patient IEN
|
|---|
| 7 | ; DGAUDIT - ien of record in the Enrollment/Eligibilty Upload Audit file
|
|---|
| 8 | ; Output -- None
|
|---|
| 9 | ;
|
|---|
| 10 | Q:'$G(DFN)
|
|---|
| 11 | D WAIT^DICD
|
|---|
| 12 | D EN^VALM("DGENUP VIEW UPLOAD AUDIT")
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | INIT ;Init variables and list array
|
|---|
| 16 | D CLEAN^VALM10
|
|---|
| 17 | S VALMCNT=0
|
|---|
| 18 | S VALMAR="^DGENA(27.14,"_DGAUDIT_",1)"
|
|---|
| 19 | S VALMCNT=$P($G(^DGENA(27.14,DGAUDIT,1,0)),"^",3)
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | HELP ;Help code
|
|---|
| 23 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | EXIT ;Exit code
|
|---|
| 27 | S VALMAR="DGAUDIT"
|
|---|
| 28 | D CLEAN^VALM10
|
|---|
| 29 | D CLEAR^VALM1
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | EXPND ;Expand code
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | HDR ;Header code
|
|---|
| 36 | N DGPREFNM,X,VA,VAERR
|
|---|
| 37 | D PID^VADPT
|
|---|
| 38 | S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30)_" ("_VA("BID")_")"
|
|---|
| 39 | S X=$S('$D(^DPT(DFN,"TYPE")):"PATIENT TYPE UNKNOWN",$D(^DG(391,+^("TYPE"),0)):$P(^(0),U,1),1:"PATIENT TYPE UNKNOWN")
|
|---|
| 40 | S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80)
|
|---|
| 41 | S VALMHDR(2)="Message ID: "_$P($G(^DGENA(27.14,+$G(DGAUDIT),0)),"^")
|
|---|
| 42 | S VALMHDR(3)="Approx DT/TM UPLOAD: "_$P($G(^DGENA(27.14,+$G(DGAUDIT),0)),"^",2)
|
|---|
| 43 | Q
|
|---|
