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

MCU.m

Go to the documentation of this file.
  1. MCU ;WISC/MLH-GENERAL UTILITY FOR MEDICINE ;6/21/96 13:31
  1. ;;2.3;Medicine;;09/13/1996
  1. GETVALUE(MCFILENO,DA,DR) ; get external value of single field number DR in record number DA of file number MCFILENO
  1. N MCRESULT K ^UTILITY("DIQ1",$J) S DIC=MCFILENO D EN^DIQ1 S MCRESULT=$G(^UTILITY("DIQ1",$J,MCFILENO,DA,DR)) K ^UTILITY("DIQ1",$J)
  1. Q MCRESULT
  1. INSERT(STRING,POST,CHAR) ; Insert a character in a string
  1. ; Mumps statement S $E(MHY,MHFL)=$C(MCHAR)
  1. N CHR,LEFT,RIGHT,LEN
  1. S LEN=$L(STRING)
  1. S CHR=$C(CHAR)
  1. S LEFT=$E(STRING,1,(POST-1))
  1. S RIGHT=$E(STRING,(POST+1),LEN)
  1. Q LEFT_CHR_RIGHT
  1. PARAM(DR) ; Edit the Medicine Package Parameters file (#690.1)
  1. I $G(DR)="" Q
  1. N DA,DD,DIC,DIE,DINUM,DLAYGO,DO
  1. S DA=+$O(^MCAR(690.1,0))
  1. I DA'=1 D
  1. . K DD,DIC,DINUM,DO
  1. . S DIC="^MCAR(690.1,",DIC(0)="L",DLAYGO=690.1,(DINUM,X)=1
  1. . D FILE^DICN S DA=+Y
  1. . Q
  1. I DA=1 S DIE="^MCAR(690.1," D ^DIE
  1. Q