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

MCARED.m

Go to the documentation of this file.
  1. MCARED ;WISC/MLH-ENTER/EDIT CARDIAC PROCEDURES-PROCESS A NEW PROCEDURE DATE ;8/3/92 15:52
  1. ;;2.3;Medicine;;09/13/1996
  1. ;
  1. S DIC=MCARDIC,DIC(0)="LZ",DIC("DR")=".01;1"
  1. S DIC("S")="D:Y>0&'$P(Y,U,3) CAUTION^MCARED(MCFILE,+Y) I $P(Y,U,3)=1"
  1. S (DLAYGO,MCFILE,DIDEL)=+$P(DIC,"(",2) D ^DIC K DIC,DLAYGO
  1. IF $P(Y,U,3)'=1 S:(X=U)!(X="") USEREND=1 ; record didn't file
  1. ELSE D
  1. . S (DJDN,MCARGDA)=$P(Y,U,1),DFN=$P(Y(0),U,2) S:MCARDIC[691.8 MCARGDA1=DJDN D ORDER^MCAREO
  1. . IF $D(DUOUT)!$D(DTOUT) S USEREND=1
  1. . ELSE D
  1. .. S DJSC=MCARDJSC
  1. .. D EN4^MCARATVE,ORDER1^MCAREO,QTASK^MCPARAM
  1. .. K DIDEL
  1. .. I $G(MCFILE)=691.8 D EN4^MCARATVE
  1. .. Q
  1. . ;END IF
  1. . ;
  1. . Q
  1. ;END IF
  1. ;
  1. QUIT
  1. ;
  1. CAUTION(X,Y) ;WARN USER ON POSSIBLE DUPE ENTRY
  1. N MCARPAT
  1. S MCARPAT=$P(^MCAR(X,Y,0),U,2),MCARPAT=$P(^DPT(MCARPAT,0),U)
  1. W !!,"CAUTION: POSSIBLE DUPLICATE!",*7
  1. W !,"A procedure with this date and time is already on file",*7
  1. W !," for ",MCARPAT,!
  1. Q