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

TIU1012D.m

Go to the documentation of this file.
  1. TIU1012D ;IHS/MSC/MGH - Data for Post-Install for TIU*1*1012;30-Apr-2013 16:20;DU
  1. ;;1.0;Text Integration Utilities;**1012**;Jun 20, 1997;Build 45
  1. ;
  1. SETDATA ; Set more data for DDEFS (Basic data set in TIUEN1008)
  1. ; -- DDEF Number 1: REQUEST FOR CORRECTION/AMENDMENT OF PHI
  1. ; -- DDEF Number 2: APPROVED REQUEST FOR CORRECTION/AMENDMENT OF PHI
  1. ; -- DDEF Number 3: DENIED REQUEST FOR CORRECTION/AMENDMENT OF PHI
  1. ; -- Set Print Name, Owner, Status, Exterior Type,
  1. ; National, for call to FILE^DIE:
  1. N TIUI S TIUI=0
  1. F TIUI=1:1:3 D
  1. . S ^XTMP("TIU1012","FILEDATA",TIUI,.03)=^XTMP("TIU1012","BASICS",TIUI,"NAME")
  1. . S ^XTMP("TIU1012","FILEDATA",TIUI,.06)="CLINICAL COORDINATOR"
  1. . S ^XTMP("TIU1012","FILEDATA",TIUI,.07)=$S(TIUI<6:"ACTIVE",1:"TEST")
  1. . S ^XTMP("TIU1012","FILEDATA",TIUI,.04)=$S(TIUI=2:"TITLE",TIUI=3:"TITLE",1:"DOCUMENT CLASS")
  1. . S ^XTMP("TIU1012","FILEDATA",TIUI,.13)=$S(TIUI>5:"NO",1:"YES")
  1. ; -- Set Parent:
  1. ; -- Set PIEN node = IEN of parent if known, or if not,
  1. ; set PNUM node = DDEF# of parent
  1. ; Parent must exist by the time this DDEF is created:
  1. S ^XTMP("TIU1012","DATA",1,"PIEN")=3
  1. S ^XTMP("TIU1012","DATA",1,"MENUTXT")="Request for Correction/Amendment of PHI"
  1. S ^XTMP("TIU1012","DATA",2,"PNUM")=1
  1. S ^XTMP("TIU1012","DATA",2,"MENUTXT")="Approved Request for Correction/Amendment of PHI"
  1. S ^XTMP("TIU1012","DATA",3,"PNUM")=1
  1. S ^XTMP("TIU1012","DATA",3,"MENUTXT")="Denied Request for Correction/Amendment of PHI"
  1. Q