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

MCPARAM.m

Go to the documentation of this file.
  1. MCPARAM ;WISC/TJK-CHECK FOR MEDICINE PARAMETERS ;7/8/92 08:53
  1. ;;2.3;Medicine;;09/13/1996
  1. ORDER ;
  1. K MCOEON I $D(^MCAR(690.1,1,0)),$P(^(0),U,3)="Y" S MCOEON=""
  1. Q
  1. QTASK Q:$P($G(^MCAR(690.1,1,0)),U,2)'="Y" Q:'$D(MCARGDA)!'$D(MCFILE)
  1. S ZTRTN="^MCQH",ZTSAVE("MCFILE")="",ZTSAVE("MCARGDA")=""
  1. S ZTDTH=$H,ZTIO="",ZTDESC="MEDICINE-PCC UPDATE",ZTREQ="@" D ^%ZTLOAD
  1. Q