- 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 Jan 18, 2025@03:45:07 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