IBY497PO ;ALB/TAZ/KML/YG - Post install routine for patch 497 ; 10 Feb 2013 14:44 PM
Source file <IBY497PO.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;Post Install Routine primary entry point
|
|
FIXDD | ; delete field 365.26/1.01 if it exists
; this doesn't do anything for normal install and only affects target account that has field 365.26/1.01 already created ; by test version of the build. |
|
RMSG | ; send site registration message to FSC
|
|
RMSGX | ;
|
|
NEWPARAM | ;
; set new IB site parameter to control length of eIV fields ; set IB site parameter DAILY MAILMAN MSG to YES ; set IB site parameter DAILY MSG TIME to 07:00 |
|
REINDEX | ; run triggers on new eIV fields
|
|
RMDEFSTC | ;Remove Default Service Type Codes except for Type 30
|
|
RMSSSTC | ;Remove Default Service Type Codes except for Type 30
|
|
UPDATE | ;Call option to update Insurance Type File
; Schedule through TaskMan to run at night? |
|
UPDATE1 | ||
PROC365 | ;Process entries in the IIV RESPONSE file (365)
; Tag FLDLST documents the specific fields that need to be converted |
|
PROC2 | ; process entries in the ELIGIBILITY/BENEFIT multiple of the INSURANCE TYPE subfile (2.322)
; Tag FLDLST documents the specific fields that need to be converted |
|
PROCFLDS(FILE,IEN,SIEN,DFN) | ; go through each of the affected flds and convert data
|
|
8(IEN,RSUPDT) | ; converts PT. RELATIONSHIP - HIPAA data at 365,8.01
; ^IBCN(365,D0,8)= (#8.01) PT. RELATIONSHIP - HIPAA [1P:365.037] ^ |
|
12(FILE,IEN,SIEN,DFN,IENS,RSUPDT) | ; procedure will convert AUTHORIZATION/CERTIFICATION and IN PLAN data at 365.02,.12, 365.02,.13, 2.322,.12, and 2.322,.13
; ^IBCN(365,D0,2,D1,0)= ^^^^^^^^^^^(#.12) AUTHORIZATION/CERTIFICATION [12P:365.033] ^ (#.13) IN PLAN [13P:365.033] ^ ; ^DPT(D0,.312,D1,6,D2,0)= ^^^^^^^^^^^(#.12) AUTHORIZATION/CERTIFICATION [12P:365.033] ^ (#.13) IN PLAN [13P:365.033] ^ |
|
101(FILE,IEN,SIEN,DFN,IENS,RSUPDT) | ; procedure will convert PROCEDURE CODING METHOD data at 365.02, 1.01 and 2.322,1.01
; ^IBCN(365,D0,2,D1,1)= (#1.01) PROCEDURE CODING METHOD [1P:365.035] ^ ; ^DPT(D0,.312,D1,6,D2,1)= (#1.01) PROCEDURE CODING METHOD [1P:365.035] ^ |
|
302(FILE,IEN,SIEN,DFN,IENS,RSUPDT) | ; procedure will convert ENTITY TYPE data at 365.02,3.02 and 2.322,3.02
; ^IBCN(365,D0,2,D1,3)= ^ (#3.02) ENTITY TYPE [2P:365.043] ; ^DPT(D0,.312,D1,6,D2,3)= ^ (#3.02) ENTITY TYPE [2P:365.043] |
|
408(FILE,IEN,SIEN,DFN,IENS,RSUPDT) | ; procedure will convert LOCATION QUALIFIER data at 365.02,4.08 and 2.322,4.08
; ^IBCN(365,D0,2,D1,4)= ^^^^^^^(#4.08) LOCATION QUALIFIER [8P:365.034] ; ^DPT(D0,.312,D1,6,D2,4)= ^^^^^^^(#4.08) LOCATION QUALIFIER [8P:365.034] |
|
503(FILE,IEN,SIEN,DFN,IENS,RSUPDT) | ; procedure will convert REFERENCE ID QUALIFIER data at 365.02,5.03 and 2.322,5.03
; ^IBCN(365,D0,2,D1,5)= ^^ (#5.03) REFERENCE ID QUALIFIER [3P:365.028] ; ^DPT(D0,.312,D1,6,D2,5)= ^^ (#5.03) REFERENCE ID QUALIFIER [3P:365.028] |
|
705(FILE,IEN,SIEN,DFN,IENS,RSUPDT) | ; procedure will convert UNITS OF MEASUREMENT and DELIVERY PATTERN data at 365.27,.05 and .09, 2.3227,.05, and .09
; ^IBCN(365,D0,2,D1,7,D2,0)= ^^^^(#.05) UNITS OF MEASUREMENT [5P:365.029]^^^^ (#.09) DELIVERY PATTERN [9P:365.036] ^ ; ^DPT(D0,.312,D1,6,D2,7,D3,0)= ^^^^(#.05) UNITS OF MEASUREMENT [5P:365.029]^^^^ (#.09) DELIVERY PATTERN [9P:365.036] ^ |
|
MORE705 | ;
|
|
804(FILE,IEN,SIEN,DFN,IENS,RSUPDT) | ; procedure will convert DATE FORMAT data at 365.28,.04 and 2.3228,.04
; ^IBCN(365,D0,2,D1,8,D2,0)= ^^^ (#.04) DATE FORMAT [4P:365.032] ; ^DPT(D0,.312,D1,6,D2,8,D3,0)= ^^^ (#.04) DATE FORMAT [4P:365.032] |
|
MORE804 | ;
|
|
904(FILE,IEN,SIEN,DFN,IENS,RSUPDT) | ; procedure will convert QUALIFIER data at 365.29,.04 and 2.3229,.04
; ^IBCN(365,D0,2,D1,9,D2,0)= ^^^(#.04) QUALIFIER [4P:365.044] ; ^DPT(D0,.312,D1,6,D2,9,D3,0)= ^^^(#.04) QUALIFIER [4P:365.044] |
|
MORE904 | ;
|
|
FLDLST | ; these are the DD fields that were modified from a set of codes to a Pointer to a file
|
Name | Field # of Occurrence |
---|---|
^DIE | NEWPARAM+7, RMDEFSTC+12, RMDEFSTC+17, RMSSSTC+11 |
FILE^DIE | PROC365+13, PROC2+11 |
^DIK | FIXDD+4 |
ENALL^DIK | REINDEX+6, REINDEX+11, REINDEX+16, REINDEX+22, REINDEX+23, REINDEX+28, REINDEX+34, REINDEX+35, REINDEX+38, REINDEX+39 |
$$GET1^DIQ | RMDEFSTC+14, RMSSSTC+8 |
^IBCNEHLM | RMSG+3 |
$$TASK^IBCNUPD | UPDATE1 |
$$FMADD^XLFDT | PROC365+8, PROC2+7 |
$$FMTE^XLFDT | PROC365+4, PROC2+4 |
$$NOW^XLFDT | PROC365+4, PROC2+4 |
$$INSTALDT^XPDUTL | EN+2 |
$$NEWCP^XPDUTL | EN+5 |
BMES^XPDUTL | EN+2, EN+6, UPDATE1+3, PROC365+3, PROC365+4, PROC365+17, PROC365+18, PROC2+3, PROC2+4, PROC2+15 , PROC2+16 |
MES^XPDUTL | RMSG+1, RMSG+2, NEWPARAM+4, REINDEX+1, REINDEX+2, RMDEFSTC+7, RMSSSTC+5, UPDATE+3, UPDATE1+1 |
$$PROD^XUPROD | RMSG+2 |
FileNo | Call Tags |
---|---|
^IBE(350.9 - [#350.9] | GET1^DIQ |
^IBA(355.3 - [#355.3] | Classic Fileman Calls |
^IBA(355.33 - [#355.33] | Classic Fileman Calls |
^IBCN(365 - [#365] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | REINDEX+20, REINDEX+24, REINDEX+25, PROC2+9, PROC2+10, 12+5, 101+4, 302+4, 408+4, 503+4 , 705+4, 804+4, 904+4 |
^IBCN(365 - [#365] | REINDEX+8, REINDEX+13, PROC365+10, PROC365+12, 8+2, 12+4, 101+3, 302+3, 408+3, 503+3 , 705+3, 804+3, 904+3 |
^IBE( | MORE705+1 |
^IBE(350.9 - [#350.9] | RMDEFSTC+10, RMSSSTC+7 |
^IBE(365.013 - [#365.013] | RMDEFSTC+8 |
^IBE(365.028 - [#365.028] | 503+5 |
^IBE(365.032 - [#365.032] | MORE804+1 |
^IBE(365.033 - [#365.033] | 12+6 |
^IBE(365.034 - [#365.034] | 408+5 |
^IBE(365.035 - [#365.035] | 101+5 |
^IBE(365.037 - [#365.037] | 8+3 |
^IBE(365.043 - [#365.043] | 302+5 |
^IBE(365.044 - [#365.044] | MORE904+1 |
^XTMP("IBY497PO" | PROC365+8*, PROC365+9, PROC365+16*, PROC2+7*, PROC2+8, PROC2+14* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | PROC365+5~, PROC365+6*, PROC365+15*, PROC365+17, PROC365+18, PROC2+5~, PROC2+6*, PROC2+13*, PROC2+15, PROC2+16 |
DA | FIXDD+3~, FIXDD+4*, NEWPARAM+5~, NEWPARAM+6*, REINDEX+3~, RMDEFSTC+5~, RMDEFSTC+6*, RMDEFSTC+10*, RMDEFSTC+14, RMSSSTC+3~ , RMSSSTC+4*, RMSSSTC+7*, RMSSSTC+8 |
DA(1 | FIXDD+4*, REINDEX+10*, REINDEX+15*, REINDEX+21*, REINDEX+27* |
DA(2 | REINDEX+15*, REINDEX+27* |
DA(3 | REINDEX+27* |
DFN | PROC2+5~, PROC2+8*, PROC2+9*, PROC2+10, PROC2+14, PROCFLDS~, PROCFLDS+11, PROCFLDS+13, PROCFLDS+14, PROCFLDS+15 , PROCFLDS+16, PROCFLDS+17, PROCFLDS+18, PROCFLDS+19, PROCFLDS+20, 12~, 12+5, 101~, 101+4, 302~ , 302+4, 408~, 408+4, 503~, 503+4, 705~, 705+4, 804~, 804+4, 904~ , 904+4 |
DIE | NEWPARAM+5~, NEWPARAM+6*, RMDEFSTC+5~, RMDEFSTC+6*, RMSSSTC+3~, RMSSSTC+4* |
DIK | FIXDD+3~, FIXDD+4*, REINDEX+3~, REINDEX+5*, REINDEX+10*, REINDEX+15*, REINDEX+21*, REINDEX+27*, REINDEX+33*, REINDEX+37* |
DIK(1 | REINDEX+6*, REINDEX+11*, REINDEX+16*, REINDEX+22*, REINDEX+23*, REINDEX+28*, REINDEX+34*, REINDEX+35*, REINDEX+38*, REINDEX+39* |
DR | NEWPARAM+5~, NEWPARAM+6*, RMDEFSTC+5~, RMDEFSTC+12*, RMDEFSTC+16*, RMSSSTC+3~, RMSSSTC+10* |
DT | PROC365+8, PROC2+7 |
FIELD | RMDEFSTC+5~, RMDEFSTC+12*, RMDEFSTC+14*, RMDEFSTC+16, RMSSSTC+3~, RMSSSTC+8*, RMSSSTC+10 |
FILE | PROC365+5~, PROC2+5~, PROCFLDS~, PROCFLDS+12*, PROCFLDS+13, PROCFLDS+14, PROCFLDS+15, PROCFLDS+16, PROCFLDS+17, PROCFLDS+18 , PROCFLDS+19, PROCFLDS+20, 12~, 12+4, 12+6, 101~, 101+3, 101+5, 302~, 302+3 , 302+5, 408~, 408+3, 408+5, 503~, 503+3, 503+5, 705~, 705+3, 705+4 , 804~, 804+3, 804+4, 904~, 904+3, 904+4 |
FLD | REINDEX+3~, REINDEX+6*, REINDEX+11*, REINDEX+38*, PROC365+5~, PROC2+5~, 12+3*, 12+4, 12+5, 12+6 , 705+3*, 705+4*, MORE705+1 |
IBY | EN+3~, EN+4*, EN+5, EN+6 |
IEN | REINDEX+3~, REINDEX+8*, REINDEX+10, REINDEX+13, REINDEX+15, REINDEX+20*, REINDEX+21, REINDEX+24, REINDEX+25, REINDEX+27 , PROC365+5~, PROC365+9*, PROC365+10*, PROC365+11, PROC365+12, PROC365+16, PROC2+5~, PROC2+10*, PROCFLDS~, PROCFLDS+11 , PROCFLDS+13, PROCFLDS+14, PROCFLDS+15, PROCFLDS+16, PROCFLDS+17, PROCFLDS+18, PROCFLDS+19, PROCFLDS+20, 8~, 8+2 , 8+3, 12~, 12+4, 12+5, 101~, 101+3, 101+4, 302~, 302+3, 302+4 , 408~, 408+3, 408+4, 503~, 503+3, 503+4, 705~, 705+3, 705+4, 804~ , 804+3, 804+4, 904~, 904+3, 904+4 |
IEN1 | REINDEX+3~, REINDEX+13*, REINDEX+15, REINDEX+24*, REINDEX+25, REINDEX+27 |
IEN2 | REINDEX+3~, REINDEX+25*, REINDEX+27 |
IEN30 | RMDEFSTC+5~, RMDEFSTC+8* |
IENS | PROC365+5~, PROC2+5~, PROCFLDS+11*, PROCFLDS+13, PROCFLDS+14, PROCFLDS+15, PROCFLDS+16, PROCFLDS+17, PROCFLDS+18, PROCFLDS+19 , PROCFLDS+20, 12~, 12+6, 101~, 101+5, 302~, 302+5, 408~, 408+5, 503~ , 503+5, 705~, MORE705+1, 804~, MORE804+1, 904~, MORE904+1 |
IO | UPDATE1+2 |
IO(0 | UPDATE+4 |
MSG | UPDATE+2~, UPDATE1*, UPDATE1+1*, UPDATE1+3 |
RSUPDT | PROC365+5~, PROC365+11, PROC365+14!, PROC2+5~, PROC2+12!, PROCFLDS+13, PROCFLDS+14, PROCFLDS+15, PROCFLDS+16, PROCFLDS+17 , PROCFLDS+18, PROCFLDS+19, PROCFLDS+20, 8~, 12~, 101~, 302~, 408~, 503~, 705~ , 804~, 904~ |
RSUPDT( | 12+6*, 101+5*, 302+5*, 408+5*, 503+5*, MORE705+1*, MORE804+1*, MORE904+1* |
RSUPDT(365 | 8+3* |
SFILE | PROC365+5~, PROC2+5~, 705+3*, 705+4*, MORE705+1, 804+3*, 804+4*, MORE804+1, 904+3*, 904+4* , MORE904+1 |
SIEN | PROC365+5~, PROC365+12*, PROC2+5~, PROC2+10*, PROCFLDS~, PROCFLDS+11, PROCFLDS+13, PROCFLDS+14, PROCFLDS+15, PROCFLDS+16 , PROCFLDS+17, PROCFLDS+18, PROCFLDS+19, PROCFLDS+20, 12~, 12+4, 12+5, 101~, 101+3, 101+4 , 302~, 302+3, 302+4, 408~, 408+3, 408+4, 503~, 503+3, 503+4, 705~ , 705+3, 705+4, 804~, 804+3, 804+4, 904~, 904+3, 904+4 |
SSIEN | PROC365+5~, PROC2+5~, 705+3*, 705+4*, MORE705+1, 804+3*, 804+4*, MORE804+1, 904+3*, 904+4* , MORE904+1 |
STC | RMDEFSTC+5~, RMDEFSTC+14*, RMDEFSTC+15, RMSSSTC+3~, RMSSSTC+8*, RMSSSTC+9 |
U | 8+2, 12+4, 12+5, 101+3, 101+4, 302+3, 302+4, 408+3, 408+4, 503+3 , 503+4, 705+3, 705+4, 804+3, 804+4, 904+3, 904+4 |
VALUE | PROC365+5~, PROC2+5~, 8+2*, 8+3, 12+4*, 12+5*, 12+6, 101+3*, 101+4*, 101+5 , 302+3*, 302+4*, 302+5, 408+3*, 408+4*, 408+5, 503+3*, 503+4*, 503+5, 705+3* , 705+4*, MORE705+1, 804+3*, 804+4*, MORE804+1, 904+3*, 904+4*, MORE904+1 |
X | NEWPARAM+5~ |
Y | EN+3~, EN+5*, EN+6, NEWPARAM+5~ |
>> ZTQUEUED | UPDATE1 |