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

DVBAXML.m

Go to the documentation of this file.
  1. DVBAXML ;ALB/GAK - CAPRI Exam Complete Email Driver ; 8/29/13 10:39am
  1. ;;2.7;AMIE;**186**;Apr 10, 1995;Build 21
  1. ;
  1. ;
  1. FILEIN(MSG,EXAMIEN,DAS,XML) ;Entry point
  1. ;
  1. ;RPC: DVBA CAPRI EXAM XML
  1. ;
  1. ; Y Returns successful filing status or error message
  1. ; EXAMIEN is the IEN of the 2507 EXAM file entry #396.4
  1. ; DAS is the XML DAS Conformation message
  1. ; XML is the array list format of the template being stored
  1. ;
  1. S MSG=""
  1. I $G(EXAMIEN)="" S MSG="ERROR EXAM IEN IS MISSING" Q MSG
  1. I $G(DAS)="" S MSG="ERROR DAS Conformation IS MISSING" Q MSG
  1. I $D(XML)<10 S MSG="ERROR XML MESSAGE IS MISSING" Q MSG
  1. ;
  1. N WPERR,ERRMSG,DVBAFDA,DVBAERR,DATTIM,Y,X,%,%H
  1. ;
  1. S %H=$H
  1. D YX^%DTC
  1. S DATTIM=X_%
  1. ;
  1. S DAS=$E(DAS,1,250)
  1. ;
  1. ;
  1. D WP^DIE(396.4,EXAMIEN_",",72,"K","XML","WPERR")
  1. I $D(WPERR) D Q MSG
  1. . S ERRMSG=""
  1. . S ERRMSG=$G(WPERR("DIERR",1,"TEXT",1))
  1. . S MSG="ERROR XML MESSAGE DID NOT FILE "_ERRMSG
  1. S MSG="SUCCESSFUL"
  1. ;
  1. S DVBAFDA(396.4,EXAMIEN_",",73)=DAS
  1. S DVBAFDA(396.4,EXAMIEN_",",74)=DATTIM
  1. D FILE^DIE("","DVBAFDA","DVBAERR")
  1. ;
  1. ;
  1. Q MSG
  1. ;
  1. ; RPC: DVBA CAPRI EXAM LINK TIU
  1. ;
  1. ; RV - return value; returns 1 if the exam has been successfully
  1. ; linked to the TIU Document; otherwise return 0^error message
  1. ; EXAMIEN - the exam ien in CAPRI TEMPLATES #396.17
  1. ; TIUIEN - the tiu ien in TIU DOCUMENT #8925
  1. ;
  1. I +$G(EXAMIEN)=0 S RV="0"_U_"EXAM IEN IS REQUIRED" Q
  1. I +$G(TIUIEN)=0 S RV="0"_U_"TIU IEN IS REQUIRED" Q
  1. ;
  1. N FDAROOT,MSGROOT
  1. ;
  1. S FDAROOT(396.17,EXAMIEN_",",23)="`"_TIUIEN
  1. D FILE^DIE("E","FDAROOT","MSGROOT")
  1. ;
  1. I $D(MSGROOT)=0 S RV="1"
  1. E S RV="0"_U_"FAILED TO BUILD LINK FROM EXAM TO TIU"
  1. Q
  1. GETEXAM(RV,TIUIEN) ;Return TIU IEN
  1. ;
  1. ; RPC: DVBA CAPRI GET EXAM IEN
  1. ;
  1. ; RV - return value; returns a integer greater than zero if the exam
  1. ; can be found; otherwise return -1^error message
  1. ; TIUIEN - the tiu ien in TIU DOCUMENT #8925
  1. ;
  1. I +$G(TIUIEN)=0 S RV="-1"_U_"TIU IEN IS REQUIRED" Q
  1. ;
  1. S RV=$O(^DVB(396.17,"TIU",TIUIEN,0))
  1. I +RV<=0 S RV="-1"_U_"TIU DOCUMENT NOT CROSS REFERENCED"
  1. Q