IBY549PO ;ALB/VD - IB*2*549 POST-INSTALL ;21-APR-2015
Source file <IBY549PO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;Entry point
|
|
| RMSG | ; send site registration message to FSC
|
|
| IIVEC(IBXPD,XPDIDTOT) | ; Remove the IP address if it exists in the IIV EC HL7
; Logical Link. ; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps |
|
| MGROUP(IBXPD,XPDIDTOT) | ; Set the MESSAGES MAILGROUP in site parameters if wrong value
; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps |
|
| ADDMGRP | ; Create the IBCNE EIV MESSAGE mail group with no users
|
|
| FSWITCH | ; File 'YES' values for new realtime switches
|
|
| NEWPLTY(IBXPD,XPDIDTOT) | ; Add a new code to the TYPE OF PLAN TABLE (#355.1)
; for VA SPECIAL CLASS ; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps |
|
| NEWCVTY(IBXPD,XPDIDTOT) | ; Add a new code to the TYPE OF COVERAGE TABLE (#355.2)
; for VA SPECIAL CLASS ; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps |
|
| DELCONT(IBXPD,XPDIDTOT) | ; Remove the contact field value
; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps |
|
| POLCYUPD(IBXPD,XPDIDTOT) | ; Update Policy Expiration Dates for deceased patients
; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps |
|
| POLCUP2 | ;EP
; Called from Task Manager |
|
| UPDTEDT(DFN,IIEN,DOD) | ; Update the Expiration for the specified patient policy
; Input: DFN - IEN of the patient whose policy is being ; updated ; IIEN - IEN of the patient policy multiple being ; updated ; DOD - Internal Date of Death of the specified ; patient ; ^TMP($J,"ERRLIST") - Current array of Patient Policy update errors ; Output: ^TMP($J,"ERRLIST") - Updated array of Patient Policy update errors |
|
| POLERR | ; Called when an error occurs terminating active policies for deceased
; patients. Note: This usually occurs because of a known fileman error and a ; collision of a post-filing routine updating file 2.312 with a nightly KPAS ; extract doing inquiries into the 2.312 file at the same time. |
|
| DONE | ; Displays the 'Done' message and finishes the progress bar
; Input: IBXPD - Post-Installation step being performed |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.312 | GET1^DIQ |
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^HLCS(870 - [#870] | Classic Fileman Calls |
