DGMSTD ; ALB/SCK - MST Status Display LM Interface ; 17-DEC-1998
;;5.3;Registration;**195,379**;Aug 13, 1993
Q
;
EN ; -- main entry point for DGMST STATUS DISPLAY
D EN^VALM("DGMST STATUS DISPLAY")
Q
;
HDR ; -- header code
N DFN,VA,VADM
S DFN=$G(MSTDFN)
D DEM^VADPT
S VALMHDR(1)="MST Status Information for Patient: "_$$LOWER^VALM1(VADM(1))_" ("_$P(VADM(2),U,2)_")"
S VALMHDR(2)=" "
D KVAR^VADPT
Q
;
INIT ; -- init variables and list array
K ^TMP("DGMST DISP",$J)
N MSTIEN,MSTDT,DGX,VALMCNT,MST1,MSG,DGMST
S VALMCNT=0
;
; Display message if no MST status history exists for patient
I '$D(^DGMS(29.11,"C",MSTDFN)) D Q
. D SET("")
. S MSG="No MST status history is available for this patient"
. S DGX="",DGX=$$SETSTR^VALM1(MSG,DGX,5,70)
. D SET(DGX),SET("")
;
; Retrieve MST status history for patient
S MSTDT="",DGX=""
F S MSTDT=$O(^DGMS(29.11,"APDT",MSTDFN,MSTDT),-1) Q:'MSTDT D
. S MSTIEN="" F S MSTIEN=$O(^DGMS(29.11,"APDT",MSTDFN,MSTDT,MSTIEN),-1) Q:'MSTIEN D
.. S DGMST=$G(^DGMS(29.11,MSTIEN,0))
.. S DGX=$$SETFLD^VALM1($$FMTE^XLFDT($P(DGMST,U)),"","DATE")
.. S DGX=$$SETFLD^VALM1($P(DGMST,U,3),DGX,"STATUS")
.. S MST1=$$NAME^DGMSTAPI(+$P(DGMST,U,4))
.. S DGX=$$SETFLD^VALM1($S(MST1]"":MST1,1:""),DGX,"PROVIDER")
.. S MST1=$$NAME^DGMSTAPI(+$P(DGMST,U,5))
.. S DGX=$$SETFLD^VALM1($S(MST1]"":MST1,1:""),DGX,"USER")
.. S MST1=$$GET1^DIQ(4,(+$P(DGMST,U,6))_",",99)
.. S DGX=$$SETFLD^VALM1($S(MST1]"":MST1,1:""),DGX,"SITE")
.. D SET(DGX)
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
;S VALMBCK="R"
K ^TMP("DGMST DISP",$J)
Q
;
EXPND ; -- expand code
Q
;
SET(X) ;
S VALMCNT=VALMCNT+1,^TMP("DGMST DISP",$J,VALMCNT,0)=X
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMSTD 1764 printed Oct 16, 2024@18:45:03 Page 2
DGMSTD ; ALB/SCK - MST Status Display LM Interface ; 17-DEC-1998
+1 ;;5.3;Registration;**195,379**;Aug 13, 1993
+2 QUIT
+3 ;
EN ; -- main entry point for DGMST STATUS DISPLAY
+1 DO EN^VALM("DGMST STATUS DISPLAY")
+2 QUIT
+3 ;
HDR ; -- header code
+1 NEW DFN,VA,VADM
+2 SET DFN=$GET(MSTDFN)
+3 DO DEM^VADPT
+4 SET VALMHDR(1)="MST Status Information for Patient: "_$$LOWER^VALM1(VADM(1))_" ("_$PIECE(VADM(2),U,2)_")"
+5 SET VALMHDR(2)=" "
+6 DO KVAR^VADPT
+7 QUIT
+8 ;
INIT ; -- init variables and list array
+1 KILL ^TMP("DGMST DISP",$JOB)
+2 NEW MSTIEN,MSTDT,DGX,VALMCNT,MST1,MSG,DGMST
+3 SET VALMCNT=0
+4 ;
+5 ; Display message if no MST status history exists for patient
+6 IF '$DATA(^DGMS(29.11,"C",MSTDFN))
Begin DoDot:1
+7 DO SET("")
+8 SET MSG="No MST status history is available for this patient"
+9 SET DGX=""
SET DGX=$$SETSTR^VALM1(MSG,DGX,5,70)
+10 DO SET(DGX)
DO SET("")
End DoDot:1
QUIT
+11 ;
+12 ; Retrieve MST status history for patient
+13 SET MSTDT=""
SET DGX=""
+14 FOR
SET MSTDT=$ORDER(^DGMS(29.11,"APDT",MSTDFN,MSTDT),-1)
if 'MSTDT
QUIT
Begin DoDot:1
+15 SET MSTIEN=""
FOR
SET MSTIEN=$ORDER(^DGMS(29.11,"APDT",MSTDFN,MSTDT,MSTIEN),-1)
if 'MSTIEN
QUIT
Begin DoDot:2
+16 SET DGMST=$GET(^DGMS(29.11,MSTIEN,0))
+17 SET DGX=$$SETFLD^VALM1($$FMTE^XLFDT($PIECE(DGMST,U)),"","DATE")
+18 SET DGX=$$SETFLD^VALM1($PIECE(DGMST,U,3),DGX,"STATUS")
+19 SET MST1=$$NAME^DGMSTAPI(+$PIECE(DGMST,U,4))
+20 SET DGX=$$SETFLD^VALM1($SELECT(MST1]"":MST1,1:""),DGX,"PROVIDER")
+21 SET MST1=$$NAME^DGMSTAPI(+$PIECE(DGMST,U,5))
+22 SET DGX=$$SETFLD^VALM1($SELECT(MST1]"":MST1,1:""),DGX,"USER")
+23 SET MST1=$$GET1^DIQ(4,(+$PIECE(DGMST,U,6))_",",99)
+24 SET DGX=$$SETFLD^VALM1($SELECT(MST1]"":MST1,1:""),DGX,"SITE")
+25 DO SET(DGX)
End DoDot:2
End DoDot:1
+26 QUIT
+27 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 ;S VALMBCK="R"
+2 KILL ^TMP("DGMST DISP",$JOB)
+3 QUIT
+4 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
SET(X) ;
+1 SET VALMCNT=VALMCNT+1
SET ^TMP("DGMST DISP",$JOB,VALMCNT,0)=X
+2 QUIT
