Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGMSTL

DGMSTL.m

Go to the documentation of this file.
  1. DGMSTL ; ALB/SCK - MST Status entry ; 15-DEC-1998
  1. ;;5.3;Registration;**195**;Aug 13, 1993
  1. ;
  1. Q
  1. EN ; -- main entry point for DGMST STATUS ENTRY
  1. K XQORS,VALMEVL
  1. N DGHDR,VALMCNT,MSTCNT,VALMI,VALMY,XQORNOD,VALMBCK,VALMHDR
  1. D EN^VALM("DGMST STATUS ENTRY")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)="Military Sexual Trauma - Data Entry Screen"
  1. S VALMHDR(2)=$S($G(DGHDR)]"":DGHDR,1:"")
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. K ^TMP("DGMST",$J)
  1. D CLEAN^VALM10
  1. D NUL^DGMSTL2 ; Display null list message to force page number
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. D SENDMST^DGMSTL1
  1. K ^TMP("DGMST",$J)
  1. K ^TMP("DGMST RENUM",$J)
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q:$$CHKNUL^DGMSTL2
  1. N MSTDFN
  1. D FULL^VALM1
  1. D EN^VALM2(XQORNOD(0),"S") S VALMI=0
  1. S VALMI=$O(VALMY(VALMI))
  1. Q:'VALMI
  1. S MSTDFN=0,MSTDFN=$O(^TMP("DGMST",$J,"DFN",VALMI,MSTDFN))
  1. ;;
  1. D EN^VALM("DGMST STATUS DISPLAY")
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. SET(X) ;
  1. S VALMCNT=$G(VALMCNT)+1,MSTCNT=VALMCNT
  1. S ^TMP("DGMST",$J,VALMCNT,0)=X
  1. S ^TMP("DGMST",$J,"IDX",VALMCNT,MSTCNT)=""
  1. S ^TMP("DGMST",$J,"INIT",VALMCNT,MSTCNT)=""
  1. Q