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

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1DGMSTL ; ALB/SCK - MST Status entry ; 15-DEC-1998
2 ;;5.3;Registration;**195**;Aug 13, 1993
3 ;
4 Q
5EN ; -- main entry point for DGMST STATUS ENTRY
6 K XQORS,VALMEVL
7 N DGHDR,VALMCNT,MSTCNT,VALMI,VALMY,XQORNOD,VALMBCK,VALMHDR
8 D EN^VALM("DGMST STATUS ENTRY")
9 Q
10 ;
11HDR ; -- header code
12 S VALMHDR(1)="Military Sexual Trauma - Data Entry Screen"
13 S VALMHDR(2)=$S($G(DGHDR)]"":DGHDR,1:"")
14 Q
15 ;
16INIT ; -- init variables and list array
17 K ^TMP("DGMST",$J)
18 D CLEAN^VALM10
19 D NUL^DGMSTL2 ; Display null list message to force page number
20 Q
21 ;
22HELP ; -- help code
23 S X="?" D DISP^XQORM1 W !!
24 Q
25 ;
26EXIT ; -- exit code
27 D SENDMST^DGMSTL1
28 K ^TMP("DGMST",$J)
29 K ^TMP("DGMST RENUM",$J)
30 Q
31 ;
32EXPND ; -- expand code
33 Q:$$CHKNUL^DGMSTL2
34 N MSTDFN
35 D FULL^VALM1
36 D EN^VALM2(XQORNOD(0),"S") S VALMI=0
37 S VALMI=$O(VALMY(VALMI))
38 Q:'VALMI
39 S MSTDFN=0,MSTDFN=$O(^TMP("DGMST",$J,"DFN",VALMI,MSTDFN))
40 ;;
41 D EN^VALM("DGMST STATUS DISPLAY")
42 S VALMBCK="R"
43 Q
44 ;
45SET(X) ;
46 S VALMCNT=$G(VALMCNT)+1,MSTCNT=VALMCNT
47 S ^TMP("DGMST",$J,VALMCNT,0)=X
48 S ^TMP("DGMST",$J,"IDX",VALMCNT,MSTCNT)=""
49 S ^TMP("DGMST",$J,"INIT",VALMCNT,MSTCNT)=""
50 Q
Note: See TracBrowser for help on using the repository browser.