source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGENLUP.m@ 1306

Last change on this file since 1306 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1DGENLUP ;ALB/CJM - Eligibilty Upload Audit - List Manager Screen;12 JUN 1997 10:00 am
2 ;;5.3;Registration;**147**;08/13/93
3 ;
4EN(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 ;
15INIT ;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 ;
22HELP ;Help code
23 S X="?" D DISP^XQORM1 W !!
24 Q
25 ;
26EXIT ;Exit code
27 S VALMAR="DGAUDIT"
28 D CLEAN^VALM10
29 D CLEAR^VALM1
30 Q
31 ;
32EXPND ;Expand code
33 Q
34 ;
35HDR ;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
Note: See TracBrowser for help on using the repository browser.