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

RMPR9CE.m

Go to the documentation of this file.
  1. RMPR9CE ;HOIFO/SPS - GUI 2319 TAB 2 CLINIC ENROLLEMNT ;9/19/02 11:29
  1. ;;3.0;PROSTHETICS;**59**;Feb 09, 1996
  1. A1(IEN) G A2
  1. EN(RESULTS,IEN) ;broker entry point
  1. A2 ;
  1. S DFN=$P($G(^RMPR(668,IEN,0)),U,2)
  1. I DFN="" S RESULTS(0)="NOTHING TO REPORT" G EXIT
  1. ;Clinic Enrollment segment
  1. D SDE^VADPT
  1. I '$D(^UTILITY("VAEN",$J)) G EXIT
  1. S CNT=0,RO=0 F S RO=$O(^UTILITY("VAEN",$J,RO)) Q:RO'>0 D
  1. . I CNT>0 S CNT=CNT+1
  1. . S RESULTS(CNT)=$P(^UTILITY("VAEN",$J,RO,"E"),U,1)_"^"_$P(^UTILITY("VAEN",$J,RO,"E"),U,2)_"^"_$P(^UTILITY("VAEN",$J,RO,"E"),U,3)
  1. . S CNT=CNT+1
  1. EXIT ;common exit point
  1. I '$D(RESULTS) S RESULTS(0)="NOTHING TO REPORT"
  1. K CNT,DFN,RO,^UTILITY("VAEN",$J)
  1. ;END