©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
XUGOT ; DBA/CJS - COMPARE LOCAL/NATIONAL CHECKSUMS REPORT ;10/20/2006
Source file <XUGOT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOAD | ; -- use MFS to get ROUTINE file from FORUM (background job)
|
|
| NPL2(IEN) | ; get Package name from Patch multiple
|
|
| SL(SL) | ; get Prefix_Package from the second line
|
|
| RT(RTN) | ; get Package and Version base on routine name
|
|
| CLN(RTNIEN) | ; clean all entries in sub-file #9.818
|
|
| LSLPN(SL) | ; return package name from the second line (piece 3rd of the second line)
|
|
| GETSL(RTN) | ;
|
|
| CLEAN | ; clean all entries in subfile 9.818 if $G(^DIC(9.8,RTNIEN,6))=2 (national tracking)
|
|
| XUN4(XUS) | ;
|
|
| INPUT | ; input routines' information in Routine file
|
|
| SETFLD6(NAME) | ;
|
|
| PACK(RTN,SL) | ; get package name
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("LOAD" | GETSL+3 |
| ^%ZOSF("UPPERCASE" | SL+3 |
| ^DIC(9.4 - [#9.4] | NPL2+5, SL+3, SL+4, RT+3, RT+4, RT+6 |
| ^DIC(9.8 - [#9.8] | CLEAN+2, CLEAN+3, CLEAN+5*, CLN+1, SETFLD6+4*, NPL2+1, NPL2+3, NPL2+4 |
| ^TMP("XUMF ARRAY" | INPUT+3, INPUT+4, INPUT+26! |
| ^TMP($J | GETSL+2!, GETSL+4 |
| Name | Line Occurrences |
|---|---|
| $$LSLPN | SL+2 |
| $$RT | PACK+2 |
| $$SL | PACK+4 |
| CLEAN | LOAD+2 |
| CLN | CLEAN+5 |
| INPUT | LOAD+4 |
| SETFLD6 | INPUT+24 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AAA | INPUT+1~, INPUT+12*, INPUT+21 |
| BBB | INPUT+1~, INPUT+13*, INPUT+22 |
| CCC | INPUT+1~, INPUT+14*, INPUT+20 |
| DA | CLN+2~* |
| DA(1 | CLN+2* |
| DIF | GETSL+2~, GETSL+3* |
| DIK | CLN+2~* |
| ERROR | INPUT+1~ |
| FDA | INPUT+1~ |
| FDA(1 | INPUT+15*, INPUT+16*, INPUT+18*, INPUT+19*, INPUT+20*, INPUT+21*, INPUT+22* |
| HFLS | INPUT+1~ |
| HLFS | INPUT+1~, INPUT+2*, INPUT+5, INPUT+7, INPUT+9, INPUT+10, INPUT+12, INPUT+13, INPUT+14 |
| IDX98 | INPUT+1~, INPUT+2*, INPUT+3*, INPUT+4 |
| IEN | NPL2~, NPL2+1, NPL2+3, NPL2+4 |
| NAME | INPUT+1~, INPUT+5*, INPUT+6, INPUT+15, INPUT+24, SETFLD6~, SETFLD6+2 |
| NODE | INPUT+1~, INPUT+4*, INPUT+5, INPUT+7, INPUT+9, INPUT+10, INPUT+12, INPUT+13, INPUT+14 |
| PCK | SL+1~, SL+2*, SL+4*, SL+5, RT+2~*, RT+6*, RT+7 |
| PCKNAME | RT+2~*, RT+6*, RT+7 |
| RTN | PACK~, PACK+2, RT~, RT+1, RT+3, RT+4, GETSL~ |
| RTNIEN | CLEAN+1~*, CLEAN+2*, CLEAN+3, CLEAN+5, CLN~, CLN+1, CLN+2 |
| SL | PACK~, PACK+4, LSLPN~, LSLPN+1, SL~, SL+2 |
| VERSION | RT+2~*, RT+6*, RT+7 |
| X | INPUT+1~, SL+1~, SL+3* |
| XCNP | GETSL+2~, GETSL+3* |
| XI | CLN+1~*, CLN+2 |
| XUA | XUN4+1~, XUN4+5*, XUN4+6, NPL2+4* |
| XUB | XUN4+1~, XUN4+6* |
| XUC | XUN4+1~ |
| XUI | RT+2~, RT+3*, RT+4 |
| XUIEN | SETFLD6+1~*, SETFLD6+2*, SETFLD6+3, SETFLD6+4, NPL2+2~*, NPL2+3*, NPL2+4, SL+1~, SL+2*, SL+3* , SL+4, RT+2~*, RT+3, RT+4*, RT+5*, RT+6, RT+7 |
| XUN4 | XUN4+1~, XUN4+3*, XUN4+4, XUN4+6*, XUN4+7 |
| XUPK | NPL2+2~*, NPL2+4*, NPL2+5 |
| XUPK1 | NPL2+2~*, NPL2+5*, NPL2+6 |
| XUPK2 | NPL2+2~*, NPL2+4*, NPL2+5 |
| XUQUIT | RT+2~ |
| XUS | PACK+1~*, PACK+2*, PACK+3, PACK+5, XUN4~, XUN4+2, XUN4+3, XUN4+5, XUN4+6 |
| XUS1 | PACK+1~*, PACK+4* |
| XUS2 | PACK+1~*, PACK+3*, PACK+4*, PACK+5 |
| XUSIEN | INPUT+1~ |
| XUSL | GETSL+1~ |
| XUST | SL+1~, SL+2*, SL+3, RT+2~*, RT+6* |
| XUTR | CLEAN+1~, CLEAN+3*, CLEAN+4*, CLEAN+5 |
| XXX | INPUT+1~, INPUT+7*, INPUT+8 |
| Y | SL+1~, SL+3 |
| YYY | INPUT+1~, INPUT+9*, INPUT+18 |
| ZZZ | INPUT+1~, INPUT+10*, INPUT+11, INPUT+19 |