| [613] | 1 | DGMSTL ; ALB/SCK - MST Status entry ; 15-DEC-1998
|
|---|
| 2 | ;;5.3;Registration;**195**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | EN ; -- 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 | ;
|
|---|
| 11 | HDR ; -- header code
|
|---|
| 12 | S VALMHDR(1)="Military Sexual Trauma - Data Entry Screen"
|
|---|
| 13 | S VALMHDR(2)=$S($G(DGHDR)]"":DGHDR,1:"")
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | INIT ; -- 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 | ;
|
|---|
| 22 | HELP ; -- help code
|
|---|
| 23 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | EXIT ; -- exit code
|
|---|
| 27 | D SENDMST^DGMSTL1
|
|---|
| 28 | K ^TMP("DGMST",$J)
|
|---|
| 29 | K ^TMP("DGMST RENUM",$J)
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | EXPND ; -- 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 | ;
|
|---|
| 45 | SET(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
|
|---|
