TIUPS109 ;SLC/RMO - Post-Install for TIU*1*109 ;11/7/00@10:04:20
Source file <TIUPS109.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENREG | ;Entry point to Register TIU RPCs that support Clinical Procedures
|
|
| INSERT(OPTION,RPC) | ; Call FM Updater with each RPC
; Input -- OPTION Option file (#19) Name field (#.01) ; RPC RPC sub-file (#19.05) RPC field (#.01) ; Output -- None |
|
| ENCP | ;Entry point to Create Clinical Procedures Class
; Input -- None ; Output -- None |
|
| ENCPQ | ||
| CHKCP() | ;Check for CLINICAL PROCEDURES entry in Document Definition file
; Input -- None ; Output -- Document Definition Data from the TIU Document Definition file (#8925.1) ; 1st Piece=IEN ; 2nd Piece=Type field (#.04) |
|
| CREATE(TIUFPRIV) | ;Create a record for the CLINICAL PROCEDURES Document Definition
; Input -- TIUFPRIV DD Privilege Flag ; Output -- TIU Document Defintion file (#8925.1) IEN |
|
| SET(TIUDA,TIUFPRIV) | ;Set the data in the new Document Definition record
; Input -- TIUDA TIU Document Definition file (#8925.1) IEN ; TIUFPRIV DD Privilege Flag ; Output -- None |
|
| CLPAC() | ;Get pointer to CLINICAL COORDINATOR User Class
; Input -- None ; Output -- USR Class file (#8930) IEN |
|
| INDEX(DA,TIUFPRIV) | ;Call IX^DIK to re-index the CLINICAL PROCEDURES entry
; Input -- DA TIU Document Defintion file (#8925.1) IEN ; TIUFPRIV DD Privilege Flag ; Output -- None |
|
| ATTACH(TIUDA,TIUFPRIV) | ;Attach CLINICAL PROCEDURES to appropriate parent
; Input -- TIUDA TIU Document Defintion file (#8925.1) IEN ; TIUFPRIV DD Privilege Flag ; Output -- None |
|
| ATTACHQ | ||
| DONE | ;Let the user know
; Input -- None ; Output -- None |
| FileNo | Call Tags |
|---|---|
| ^TIU(8925.1 - [#8925.1] | Classic Fileman Calls |
