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 |