IBCEP82 ;ALB/CLT - Special cross references and data entry for fields in file 355.93 ;18 Apr 2008 3:46 PM
Source file <IBCEP82.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(IBNPRV) | ;Routine primary entry point
|
|
EN1 | ;
|
|
EN2(IBNPRV,INDENT) | ; entry point from input templates IB SCREEN82 and IB SCREEN8H
|
|
EN21 | ;
|
|
PROC(IBNPI,IBOLDNPI,IBIEN) | ; process new NPI
|
|
ACTI | ;CREATE AN ACTIVATED ENTRY IN MULTIPLE NPISTATUS FIELD
|
|
DEL | ;NPI HAS BEEN DELETED
|
|
COMP | ;COMPLETELY DELETE THE NPI
|
|
DELNPI(IEN,OIEN) | ;DELETE-INVALID removes NPI from file.
|
|
INACT | ;INACTIVATE AN ENTRY
|
|
ROLLBACK | ;Rollback or delete NPI
|
|
XIT | ;CLEAN AND EXIT
|
|
XR | ;Set the primary taxonomy code cross reference for field 42
|
|
KXR | ;Kill primary taxonomy code cross reference for field 42
|
|
WARNR(IBIEN,IBOLDNPI,IBKEY) | ;Warn user that the old NPI that was replaced is currently used by an entry in the New Person file (#200)
|
|
WARND(IBIEN,IBOLDNPI,IBKEY) | ;Warn user that the old NPI that was deleted is currently used by an entry in the New Person file (#200)
|
|
MAILR(IBIEN,IBKEY,IBIEN200,IBOLDNPI) | ;Send mailman message for replacement of NPI
|
|
MAILD(IBIEN,IBKEY,IBIEN200,IBOLDNPI) | ;Send mailman message for deletion of an NPI
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^IBA(355.93 - [#355.93] | Classic Fileman Calls, GET1^DIQ |