IB20P669 ;/Albany - IB*2.0*669 POST INSTALL;03/10/20 2:10pm
Source file <IB20P669.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POSTINIT | ;Post Install for IB*2.0*669
|
|
QUEUEINT | ; Run the UC Visit DB initialization in the background.
|
|
INITUCDB | ||
DBCHK(IBDFN,IBVDT) | ; Check to see if the visit is already in the DB.
; |
|
CANCLUC | ; Initialize the new CAN CANCEL URGENT CARE field (.04) in the IB CHARGE REMOVE REASON file (#350.3).
; Also inactivate UC-ENTERED IN ERROR AND UC-CHANGE IN ELIGIBILITY ; Also define the type of UC Visit Tracking DB (351.82) update process to follow when using the cancellation |
|
IBDDAT | ; Cancellation reasons (350.3) to update
|
|
NEWCREAS | ; New Cancellation Reasons
|
|
REASDAT | ; Fee Service to inactivate
|
Name | Field # of Occurrence |
---|---|
C^%DTC | INITUCDB+27 |
^%ZTLOAD | QUEUEINT+9, INITUCDB+97 |
$$S^%ZTLOAD | INITUCDB+88 |
FILE^DICN | NEWCREAS+19 |
^DIE | INITUCDB+84, CANCLUC+22, NEWCREAS+24 |
UPDATE^DIE | INITUCDB+71 |
IX^DIK | NEWCREAS+26 |
SITE^IBAUTL | INITUCDB+21 |
$$GETELGP^IBECEA36 | INITUCDB+55 |
$$GETVST^IBECEA36 | INITUCDB+56 |
$$DT^XLFDT | INITUCDB+27 |
$$NOW^XLFDT | QUEUEINT+6, INITUCDB+94 |
BMES^XPDUTL | POSTINIT+1, POSTINIT+7, QUEUEINT+10 |
MES^XPDUTL | CANCLUC+7, CANCLUC+26, NEWCREAS+7 |
FileNo | Call Tags |
---|---|
^IBE(350.3 - [#350.3] | Classic Fileman Calls |
^IBUC(351.82 - [#351.82] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IB - [#350] | INITUCDB+38 |
^IB("AE" | INITUCDB+37 |
^IBE(350.1 - [#350.1] | INITUCDB+12, INITUCDB+13, INITUCDB+14 |
^IBE(350.3 - [#350.3] | INITUCDB+15, INITUCDB+16, INITUCDB+17, INITUCDB+18, INITUCDB+19, INITUCDB+20, CANCLUC+14, NEWCREAS+16 |
^IBUC(351.82 - [#351.82] | DBCHK+6, DBCHK+7 |
^XTMP("IB20P669" | INITUCDB+28*, INITUCDB+35, INITUCDB+87* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |