IBY778PR ;AITC/CKB PRE-Installation for IB patch 778; MAR 18, 2024
Source file <IBY778PR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ; pre-install
|
|
| PREX | ;
|
|
| TQTIMING(IBXPD) | ; Update the entries in the TQ file #365.1 where the TRANSMISSION STATUS (#.04)
; is set to (2)'Transmitted' with the GROUP NUMBER from the Patient record (#2.312) |
|
| UPDTQ(IBXPD) | ; Update the entries in the TQ file #365.1 to include the GROUP NUMBER #1.03
; get the GROUP NUMBER from the corresponding Buffer #355.33 entry when possible |
|
| CHKPAT | ; Check the Patient Record for existence of a Group Number
|
|
| ADDGRP | ;Add GROUP NUMBER (#1.03) to the entry in the TQ file (#365.1)
|
| FileNo | Call Tags |
|---|---|
| 2.312 | GET1^DIQ |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| ^IBA(355.33 - [#355.33] | GET1^DIQ |
| ^IBCN(365 - [#365] | GET1^DIQ |
| ^IBCN(365.1 - [#365.1] | Classic Fileman Calls, GET1^DIQ |
