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

DVBCLMU2.m

Go to the documentation of this file.
  1. DVBCLMU2 ;ALB/CMM TEXT FOR INITIAL/REEVALUATION ;12/30/93
  1. ;;2.7;AMIE;;Apr 10, 1995
  1. ;
  1. ;Display of initial and reevaluation exam descriptions
  1. ;
  1. WINIT ;
  1. ;initial exam description displayed using ^DIWP
  1. ;
  1. K ^UTILITY($J,"W")
  1. N JJ,DIWF,DIWL,X
  1. W !!
  1. S JJ=0,DIWF="WN",DIWL=5
  1. F Q:$O(^DVBP(396.91,3,"D",JJ))="" D
  1. .S JJ=$O(^DVBP(396.91,3,"D",JJ))
  1. .S X=$P(^DVBP(396.91,3,"D",JJ,0),"^")
  1. .D ^DIWP
  1. D ^DIWW
  1. Q
  1. WREE ;
  1. ;reevaluation exam description displayed using ^DIWP
  1. ;
  1. K ^UTILITY($J,"W")
  1. N JJ,DIWF,DIWL,X
  1. W !!
  1. S JJ=0,DIWF="WN",DIWL=5
  1. F Q:$O(^DVBP(396.91,4,"D",JJ))="" D
  1. .S JJ=$O(^DVBP(396.91,4,"D",JJ))
  1. .S X=$P(^DVBP(396.91,4,"D",JJ,0),"^")
  1. .D ^DIWP
  1. D ^DIWW
  1. Q