©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XUSNPIE1 ;FO-OAKLAND/JLI - NATIONAL PROVIDER IDENTIFIER DATA CAPTURE ;5/13/08 17:32
Source file <XUSNPIE1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETQUEUE(OPT,VALUE) | ;
|
|
| SIGNON | ; .ACT - run at user sign-on display message if NEEDS AN NPI
|
|
| CBOQUEUE | ;
|
|
| CLERXMPT | ;
|
|
| CHKDGT(XUSNPI,XUSDA,XUSQI) | ; INPUT TRANSFORM
|
|
| SET1(XUSIEN,XUSNPI) | ;
; set value for NPI field (#41.99) in file #4 |
|
| SET(XUSIEN,XUSNPI) | ;
; set value for NPI related fields (#41.97-41.99) in file #200 |
|
| POSTINIT | ;
|
|
| SETDATE() | ;
|
|
| CHKOLD1(IEN) | ;
|
| 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+13 |
| $$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 |
| ^TMP("XUSNPI CBO LOCK" | SIGNON+6 |
| ^VA(200 - [#200] | SET+3, POSTINIT+7 |
| Name | Line Occurrences |
|---|---|
| $$SETDATE | CBOQUEUE+4, CBOQUEUE+10 |
| CBOQUEUE | SIGNON+6, POSTINIT+11 |
| SETQUEUE | SIGNON+8, SIGNON+10, SIGNON+11 |
| >> | 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+15~*, CHKDGT+16, CHKDGT+17*, CHKDGT+18 |
| XUS2 | CHKDGT+16~*, CHKDGT+17, CHKDGT+18* |
| XUSDA | CHKDGT~, CHKDGT+6, CHKDGT+15, CHKDGT+17 |
| 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+18 |
| XUSQI | CHKDGT~, CHKDGT+6, CHKDGT+13 |
| XUSQIK | CHKDGT+3~*, CHKDGT+6 |
| XUSROOT | CHKDGT+13~*, CHKDGT+14*, CHKDGT+15, CHKDGT+17 |
| 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~ |