IB20P279 ;ISP/TDP - IB*2*279 PRE-INIT ROUTINE ;07/21/2004
Source file <IB20P279.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENV | ; environment check
|
|
PRE | ; set up check points for pre-init
|
|
PROVID | ;Search files 355.9 and 355.91 for invalid Care Unit pointers to file
|
|
35591 | ;Search file 355.91 for invalid Care Unit pointers to file 355.96.
|
|
3559 | ;Search file 355.9 for invalid Care Unit pointers to file 355.96.
|
|
TOTALS | ; Print cleanup totals.
|
|
OUTPUT | ; Failed conversion message.
|
|
FILE | ; Save change and display success message.
|
|
VALIDCU | ;Checks for valid Care Unit combination.
|
|
CUCHK | ;Checks for existing Care Unit combination.
|
|
MESSAGE | ;Send message to user if unable to change Care Unit pointer(s).
|
|
COMPLETE | ; display message that step has completed
|
|
END | ; display message that pre-init has completed successfully
|
FileNo | Call Tags |
---|---|
^IBA(355.9 - [#355.9] | Classic Fileman Calls |
^IBA(355.91 - [#355.91] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(36 - [#36] | 35591+16, 3559+18, FILE+6 |
^IBA(355.9 - [#355.9] | 3559+7, 3559+9, CUCHK+2 |
^IBA(355.91 - [#355.91] | 35591+6, 35591+8, CUCHK+1 |
^IBA(355.95 - [#355.95] | MESSAGE+54 |
^IBA(355.96 - [#355.96] | VALIDCU+3, VALIDCU+4, VALIDCU+5, VALIDCU+6, VALIDCU+7, MESSAGE+54 |
^IBE(355.97 - [#355.97] | 35591+17, 3559+19, FILE+7 |
^TMP($J | PROVID+3, 35591+18*, 3559+4!, 3559+22*, FILE+10*, MESSAGE+39, MESSAGE+43, MESSAGE+46, MESSAGE+50, MESSAGE+51 , MESSAGE+72! |
^XMB("NETNAME" | MESSAGE+14 |
^XMB(3.8 - [#3.8] | MESSAGE+9, MESSAGE+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | PRE+1~, PRE+2* |
DA | 35591+2~, 3559+2~, FILE+13*, FILE+15! |
DIE | 35591+2~, 35591+5*, 3559+2~, 3559+6*, TOTALS+2, OUTPUT+1, FILE+3, FILE+17, CUCHK+1, CUCHK+2 |
DR | 35591+2~, 3559+2~, FILE+14*, FILE+15! |
DUZ | MESSAGE+5~*, MESSAGE+6, MESSAGE+12, MESSAGE+67 |
IB3559 | 3559+2~, 3559+9*, 3559+10, 3559+11, 3559+12, 3559+13, 3559+14, 3559+15, 3559+22, FILE+10 , CUCHK+2 |
IB35591 | 35591+2~, 35591+8*, 35591+9, 35591+10, 35591+11, 35591+12, 35591+13, 35591+18, FILE+10, CUCHK+1 |
IBC | MESSAGE+1~, MESSAGE+16*, MESSAGE+17*, MESSAGE+18*, MESSAGE+19*, MESSAGE+20*, MESSAGE+21*, MESSAGE+22*, MESSAGE+23*, MESSAGE+24* , MESSAGE+25*, MESSAGE+26*, MESSAGE+27*, MESSAGE+28*, MESSAGE+29*, MESSAGE+30*, MESSAGE+31*, MESSAGE+32*, MESSAGE+33*, MESSAGE+34* , MESSAGE+35*, MESSAGE+36*, MESSAGE+40*, MESSAGE+41*, MESSAGE+44*, MESSAGE+56*, MESSAGE+59*, MESSAGE+60*, MESSAGE+61* |
IBCARE | 35591+2~, 35591+12*, 3559+2~, 3559+14*, VALIDCU+4, VALIDCU+6, CUCHK+1, CUCHK+2, MESSAGE+1~, MESSAGE+53* , MESSAGE+56 |
IBCIVAL | 35591+2~, 35591+14, 3559+2~, 3559+16, FILE+14, VALIDCU+3*, VALIDCU+4*, VALIDCU+5*, VALIDCU+6*, VALIDCU+7* , VALIDCU+8*, CUCHK+1, CUCHK+2 |
IBCNT | 35591+2~, 35591+4*, 3559+2~, 3559+5*, TOTALS+3, TOTALS+4, FILE+18*, MESSAGE+1~, MESSAGE+38*, MESSAGE+57* , MESSAGE+61 |
IBCU | 35591+2~, 35591+10*, 35591+14, 3559+2~, 3559+12*, 3559+16, VALIDCU+3, MESSAGE+1~, MESSAGE+54*, MESSAGE+56 |
IBCUCHK | 35591+2~, 35591+15*, 3559+2~, 3559+17*, CUCHK+1*, CUCHK+2* |
IBCUVAL | VALIDCU+2~, VALIDCU+3*, VALIDCU+4, VALIDCU+5, VALIDCU+6, VALIDCU+7 |
IBDATA | MESSAGE+1~, MESSAGE+51*, MESSAGE+52, MESSAGE+53, MESSAGE+54, MESSAGE+55 |
IBECNT | 35591+2~, 35591+4*, 35591+19*, 3559+2~, 3559+5*, 3559+23*, TOTALS+3, TOTALS+5, FILE+11* |
IBFILE | TOTALS+1~, TOTALS+2*, TOTALS+3, TOTALS+4, TOTALS+5 |
IBFORM | 35591+2~, 35591+11*, 3559+2~, 3559+13*, VALIDCU+4, VALIDCU+5, CUCHK+1, CUCHK+2, MESSAGE+1~, MESSAGE+52* , MESSAGE+56 |
IBGBL | 3559+2~, 3559+20*, 3559+21, FILE+8*, FILE+9 |
IBGROUP | MESSAGE+1~, MESSAGE+8*, MESSAGE+9, MESSAGE+11 |
IBGRP | MESSAGE+1~, MESSAGE+9*, MESSAGE+10 |
IBINS | 35591+3~, 35591+9*, 35591+16, 3559+3~, 3559+11*, 3559+18, FILE+6, VALIDCU+4, VALIDCU+5, VALIDCU+6 , VALIDCU+7, CUCHK+1, CUCHK+2, MESSAGE+1~, MESSAGE+38*, MESSAGE+39*, MESSAGE+41, MESSAGE+43, MESSAGE+46, MESSAGE+50 , MESSAGE+51 |
IBINSNM | 35591+3~, 35591+16*, 35591+18, 3559+3~, 3559+18*, 3559+22, FILE+6*, FILE+10 |
IBL | FILE+1~, FILE+2*, FILE+4*, FILE+5 |
IBLOCK | FILE+1~, FILE+3*, FILE+4, FILE+16 |
IBMSG | MESSAGE+1~, MESSAGE+70 |
IBMSG(1 | MESSAGE+63* |
IBMSG(2 | MESSAGE+64* |
IBMSG(3 | MESSAGE+65*, MESSAGE+67* |
IBMSG(4 | MESSAGE+66*, MESSAGE+68* |
IBMSG(5 | MESSAGE+69* |
IBNAME | 3559+3~, 3559+21*, 3559+22, FILE+9*, FILE+10, MESSAGE+1~, MESSAGE+45*, MESSAGE+46*, MESSAGE+47, MESSAGE+50 , MESSAGE+51 |
IBNCNT | MESSAGE+2~, MESSAGE+48*, MESSAGE+56, MESSAGE+58* |
IBNETNM | MESSAGE+2~, MESSAGE+14*, MESSAGE+15 |
IBNME | MESSAGE+2~, MESSAGE+47*, MESSAGE+56 |
IBNMSPC | MESSAGE+2~, MESSAGE+37*, MESSAGE+56 |
IBNUM | 35591+3~, 35591+4*, 35591+6*, 35591+7, 35591+8, 35591+18, 3559+3~, 3559+5*, 3559+7*, 3559+8 , 3559+9, 3559+22, OUTPUT+1, FILE+3, FILE+10, FILE+13, FILE+17, MESSAGE+2~, MESSAGE+49*, MESSAGE+50* , MESSAGE+51 |
IBPARAM | MESSAGE+2~, MESSAGE+62 |
IBPARAM("FROM" | MESSAGE+7* |
IBPROV | 3559+3~, 3559+10*, 3559+20, FILE+8, CUCHK+2 |
IBPRV | MESSAGE+2~, MESSAGE+42*, MESSAGE+43*, MESSAGE+44, MESSAGE+46, MESSAGE+50, MESSAGE+51 |
IBPRVID | 35591+3~, 35591+13*, 35591+17, 3559+3~, 3559+15*, 3559+19, FILE+7, VALIDCU+4, VALIDCU+5, VALIDCU+6 , VALIDCU+7, CUCHK+1, CUCHK+2, MESSAGE+2~, MESSAGE+55*, MESSAGE+56 |
IBPRVTYP | 35591+3~, 35591+17*, 35591+18, 3559+3~, 3559+19*, 3559+22, FILE+7*, FILE+10 |
IBTST | MESSAGE+2~, MESSAGE+13*, MESSAGE+15 |
IBTXT | MESSAGE+2~, MESSAGE+71 |
IBTXT( | MESSAGE+17*, MESSAGE+18*, MESSAGE+19*, MESSAGE+20*, MESSAGE+21*, MESSAGE+22*, MESSAGE+23*, MESSAGE+24*, MESSAGE+25*, MESSAGE+26* , MESSAGE+27*, MESSAGE+28*, MESSAGE+29*, MESSAGE+30*, MESSAGE+31*, MESSAGE+32*, MESSAGE+33*, MESSAGE+34*, MESSAGE+35*, MESSAGE+36* , MESSAGE+40*, MESSAGE+41*, MESSAGE+44*, MESSAGE+56*, MESSAGE+59*, MESSAGE+60*, MESSAGE+61* |
U | 35591+9, 35591+10, 35591+11, 35591+12, 35591+13, 35591+16, 35591+17, 3559+10, 3559+11, 3559+12 , 3559+13, 3559+14, 3559+15, 3559+18, 3559+19, FILE+6, FILE+7, VALIDCU+3, CUCHK+1, CUCHK+2 , MESSAGE+10, MESSAGE+52, MESSAGE+53, MESSAGE+54, MESSAGE+55 |
X | FILE+1~, FILE+4* |
XMDUZ | MESSAGE+3~, MESSAGE+6*, MESSAGE+62 |
XMERR | MESSAGE+3~, MESSAGE+65, MESSAGE+66, MESSAGE+67, MESSAGE+68, MESSAGE+71 |
XMSUB | MESSAGE+3~, MESSAGE+4*, MESSAGE+62 |
XMTEXT | MESSAGE+3~, MESSAGE+6*, MESSAGE+62 |
XMY | MESSAGE+3~, MESSAGE+62 |
XMY( | MESSAGE+12* |
XMY("G." | MESSAGE+11* |
XMY("G.IB EDI | SUPERVISOR" , MESSAGE+67, MESSAGE+68 |
XMY("PHELPS,TY@DOMAIN.EXT" | MESSAGE+15* |