DGMSTL ; ALB/SCK - MST Status entry ; 15-DEC-1998
;;5.3;Registration;**195**;Aug 13, 1993
;
Q
EN ; -- main entry point for DGMST STATUS ENTRY
K XQORS,VALMEVL
N DGHDR,VALMCNT,MSTCNT,VALMI,VALMY,XQORNOD,VALMBCK,VALMHDR
D EN^VALM("DGMST STATUS ENTRY")
Q
;
HDR ; -- header code
S VALMHDR(1)="Military Sexual Trauma - Data Entry Screen"
S VALMHDR(2)=$S($G(DGHDR)]"":DGHDR,1:"")
Q
;
INIT ; -- init variables and list array
K ^TMP("DGMST",$J)
D CLEAN^VALM10
D NUL^DGMSTL2 ; Display null list message to force page number
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
D SENDMST^DGMSTL1
K ^TMP("DGMST",$J)
K ^TMP("DGMST RENUM",$J)
Q
;
EXPND ; -- expand code
Q:$$CHKNUL^DGMSTL2
N MSTDFN
D FULL^VALM1
D EN^VALM2(XQORNOD(0),"S") S VALMI=0
S VALMI=$O(VALMY(VALMI))
Q:'VALMI
S MSTDFN=0,MSTDFN=$O(^TMP("DGMST",$J,"DFN",VALMI,MSTDFN))
;;
D EN^VALM("DGMST STATUS DISPLAY")
S VALMBCK="R"
Q
;
SET(X) ;
S VALMCNT=$G(VALMCNT)+1,MSTCNT=VALMCNT
S ^TMP("DGMST",$J,VALMCNT,0)=X
S ^TMP("DGMST",$J,"IDX",VALMCNT,MSTCNT)=""
S ^TMP("DGMST",$J,"INIT",VALMCNT,MSTCNT)=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMSTL 1163 printed Dec 13, 2024@02:44:26 Page 2
DGMSTL ; ALB/SCK - MST Status entry ; 15-DEC-1998
+1 ;;5.3;Registration;**195**;Aug 13, 1993
+2 ;
+3 QUIT
EN ; -- main entry point for DGMST STATUS ENTRY
+1 KILL XQORS,VALMEVL
+2 NEW DGHDR,VALMCNT,MSTCNT,VALMI,VALMY,XQORNOD,VALMBCK,VALMHDR
+3 DO EN^VALM("DGMST STATUS ENTRY")
+4 QUIT
+5 ;
HDR ; -- header code
+1 SET VALMHDR(1)="Military Sexual Trauma - Data Entry Screen"
+2 SET VALMHDR(2)=$SELECT($GET(DGHDR)]"":DGHDR,1:"")
+3 QUIT
+4 ;
INIT ; -- init variables and list array
+1 KILL ^TMP("DGMST",$JOB)
+2 DO CLEAN^VALM10
+3 ; Display null list message to force page number
DO NUL^DGMSTL2
+4 QUIT
+5 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 DO SENDMST^DGMSTL1
+2 KILL ^TMP("DGMST",$JOB)
+3 KILL ^TMP("DGMST RENUM",$JOB)
+4 QUIT
+5 ;
EXPND ; -- expand code
+1 if $$CHKNUL^DGMSTL2
QUIT
+2 NEW MSTDFN
+3 DO FULL^VALM1
+4 DO EN^VALM2(XQORNOD(0),"S")
SET VALMI=0
+5 SET VALMI=$ORDER(VALMY(VALMI))
+6 if 'VALMI
QUIT
+7 SET MSTDFN=0
SET MSTDFN=$ORDER(^TMP("DGMST",$JOB,"DFN",VALMI,MSTDFN))
+8 ;;
+9 DO EN^VALM("DGMST STATUS DISPLAY")
+10 SET VALMBCK="R"
+11 QUIT
+12 ;
SET(X) ;
+1 SET VALMCNT=$GET(VALMCNT)+1
SET MSTCNT=VALMCNT
+2 SET ^TMP("DGMST",$JOB,VALMCNT,0)=X
+3 SET ^TMP("DGMST",$JOB,"IDX",VALMCNT,MSTCNT)=""
+4 SET ^TMP("DGMST",$JOB,"INIT",VALMCNT,MSTCNT)=""
+5 QUIT
