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