XUSNPIE1 ;FO-OAKLAND/JLI - NATIONAL PROVIDER IDENTIFIER DATA CAPTURE ;3/31/2021
Source file <XUSNPIE1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
SET(XUSIEN,XUSNPI) | ;
; set value for NPI related fields (#41.97-41.99) in file #200 |
|
SET1(XUSIEN,XUSNPI) | ;
; set value for NPI field (#41.99) in file #4 |
|
SIGNON | ; .ACT - run at user sign-on display message if NEEDS AN NPI
|
|
SETQUEUE(OPT,VALUE) | ;
|
|
POSTINIT | ;
|
|
CBOQUEUE | ;
|
|
SETDATE() | ;
|
|
CHKOLD1(IEN) | ;
|
|
CLERXMPT | ;
|
|
CHKDGT(XUSNPI,XUSDA,XUSQI) | ; INPUT TRANSFORM
|
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | SIGNON+6, CBOQUEUE+3, CBOQUEUE+9 |
FILE^DIE | SET+8, SETQUEUE+1, CBOQUEUE+6 |
UPDATE^DIE | CBOQUEUE+12 |
$$GET1^DIQ | SIGNON+7, SIGNON+9 |
$$FMTE^XLFDT | SIGNON+8 |
$$NOW^XLFDT | SIGNON+5, SETDATE+1 |
$$GET^XPAR | CHKDGT+14 |
$$ACTIVE^XUSER | POSTINIT+7 |
$$CHKDGT^XUSNPI | CHKDGT+1 |
$$QI^XUSNPI | CHKDGT+3 |
$$NPIUSED^XUSNPI1 | CHKDGT+6 |
CHKOLD1^XUSNPIE2 | CHKOLD1+1 |
CLERXMPT^XUSNPIE2 | CLERXMPT+1 |
$$CHEKNPI^XUSNPIED | SIGNON+2 |
$$CHKGLOB^XUSNPIED | POSTINIT+5 |
DOUSER^XUSNPIED | POSTINIT+7 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(19.2 - [#19.2] | SIGNON+8, SIGNON+9 |
^DIC(4 - [#4] | SET1+2, SET1+3!, SET1+4* |
^TMP("XUS NPI CBO LOCK" | SIGNON+6 |
^VA(200 - [#200] | SET+3, POSTINIT+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DATETIME | SIGNON+1~, SIGNON+7*, SIGNON+8 |
DT | SIGNON+4, SIGNON+8, SIGNON+11, SETDATE+1 |
DUZ | SIGNON+2 |
FDA | SETQUEUE+1~, CBOQUEUE+1~ |
FDA( | SETQUEUE+1*, CBOQUEUE+4*, CBOQUEUE+5*, CBOQUEUE+9*, CBOQUEUE+10*, CBOQUEUE+11* |
IEN | CHKOLD1~, CHKOLD1+1 |
NPIUSED | CHKDGT+5~, CHKDGT+6*, CHKDGT+8, CHKDGT+10 |
OLDNPI | SET1+2~*, SET1+3 |
OPT | SIGNON+1~, SIGNON+6*, SIGNON+7, SIGNON+8, SIGNON+9, SIGNON+10, SIGNON+11, SETQUEUE~, SETQUEUE+1 |
VALUE | SETQUEUE~, SETQUEUE+1 |
X | SET+2~, SET+3*, POSTINIT+1~ |
XIEN | POSTINIT+1~ |
XUGLOB | POSTINIT+1~, POSTINIT+5*, POSTINIT+7 |
XUS | CHKDGT+1~*, CHKDGT+2 |
XUS1 | CHKDGT+16~*, CHKDGT+17, CHKDGT+18*, CHKDGT+19 |
XUS2 | CHKDGT+17~*, CHKDGT+18, CHKDGT+19* |
XUSDA | CHKDGT~, CHKDGT+6, CHKDGT+11, CHKDGT+16, CHKDGT+18 |
XUSFDA | SET+2~ |
XUSFDA(200 | SET+5*, SET+6*, SET+7* |
XUSIEN | SET~, SET+3, SET+4, SET1~, SET1+2, SET1+3, SET1+4 |
XUSIENS | SET+2~, SET+4*, SET+5, SET+6, SET+7 |
XUSNPI | SET~, SET+5, SET1~, SET1+4, CHKDGT~, CHKDGT+1, CHKDGT+3, CHKDGT+6, CHKDGT+19 |
XUSQI | CHKDGT~, CHKDGT+6, CHKDGT+14 |
XUSQIK | CHKDGT+3~*, CHKDGT+6, CHKDGT+11 |
XUSROOT | CHKDGT+14~*, CHKDGT+15*, CHKDGT+16, CHKDGT+18 |
XUSRSLT | CHKDGT+5~, CHKDGT+6 |
XUSVAL | CBOQUEUE+1~, CBOQUEUE+3*, CBOQUEUE+4, CBOQUEUE+5, CBOQUEUE+9* |
XUUSER | POSTINIT+1~, POSTINIT+7* |
XVAL | SIGNON+1~, SIGNON+5* |
XVALTIME | SIGNON+1~, SIGNON+4*, SIGNON+5 |
ZTDESC | POSTINIT+1~ |
ZTDTH | POSTINIT+1~ |
ZTIO | POSTINIT+1~ |
ZTQUEUED | CBOQUEUE+6~*!, CBOQUEUE+12~*! |
ZTRTN | POSTINIT+1~ |