| 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
|
---|