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

DVBACREM.m

Go to the documentation of this file.
  1. DVBACREM ;ALB/RTW - REMARKS SENT TO CONTRACTORS;05/27/2015
  1. ;;2.7;AMIE;**192**;Apr 10, 1995;Build 15
  1. ; At WPGET This routine gets remarks sent to contractors,(from global 396.4),for a 2507 Exam Reqiest
  1. ; At WPSET This routine sets remarks sent to contractors,(from global 396.4),for a 2507 Exam Request
  1. Q ;no direct entry
  1. ;
  1. WPGET(DVBADATA,DVBEIEN) ;
  1. ;RPC: DVBA CAPRI GETCONTREMARKS
  1. N DVBCR
  1. K ^TMP("DVBA",$J)
  1. S X=0
  1. S DVBCR=0 F S DVBCR=$O(^DVB(396.4,DVBEIEN,6,DVBCR)) Q:'DVBCR D
  1. . S DVBARMKS=$G(^DVB(396.4,DVBEIEN,6,DVBCR,0))
  1. . S ^TMP("DVBA",$J,DVBCR)=DVBARMKS
  1. S DVBCNT=0,DVBCNA=0 F S DVBCNA=$O(^TMP("DVBA",$J,DVBCNA)) Q:DVBCNA="" D
  1. . S DVBAREM=$G(^TMP("DVBA",$J,DVBCNA))
  1. . S DVBADATA(DVBCNT)=DVBAREM
  1. . S DVBCNT=DVBCNT+1
  1. K DVBCA,DVBCNT,DVBAREM,DVBARMKS,X
  1. S RESULT=$NA(^TMP("DVBA",$J))
  1. Q
  1. ;
  1. WPSET(RESULT,DVBRIEN,DVBEIEN,DVBDATA) ;RPC: DVBA CAPRI SETCONTREMARKS
  1. ;DVBEIEN exam ien(s) example ** DVBEIEN="12736^12737^12738"
  1. ;DVBPEIN is the individual IENs pieced out.
  1. K ^TMP("DVBA",$J)
  1. S DVBPIEN=0 F DVBI=1:1 S DVBPIEN=$P(DVBEIEN,U,DVBI) Q:'DVBPIEN D
  1. . D WPDATA
  1. K DVBI,DVBRIEN,DVBPIEN,DVBCNT,DVBCNA
  1. Q
  1. WPDATA ;
  1. S DVBLINE="",DVBCNT=1 F S DVBLINE=$O(DVBDATA(DVBLINE)) Q:DVBLINE="" D
  1. .S ^TMP("DVBA",$J,"WP",DVBCNT)=$G(DVBDATA(DVBLINE))
  1. .S DVBCNT=DVBCNT+1
  1. S D0=DVBPIEN
  1. D WP^DIE(396.4,DVBPIEN,103,"K","^TMP(""DVBA"",$J,""WP"")")
  1. S RESULT=$NA(^TMP("DVB",$J))
  1. K D0,DVBLINE,DVBCNT
  1. Q