©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
PXRMEXIU ;SLC/PKR/PJH - Utilities for installing repository entries. ;01/18/2013
Source file <PXRMEXIU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SFMVPI(FDA,NAMECHG,SFN) | ;Search a variable pointer list for items that do not
|
|
| VFIND1(VPTR,ALIST) | ;Given a variable pointer of the form ABBR.NAME
|
|
| GETACT(CHOICES,DIR) | ;Get the action
|
|
| REXISTS(NAME,DATEP) | ;See if this Exchange File entry already exists.
|
|
| GETUNAME(ATTR) | ;Get a unique name to use, ATTR holds the attributes.
|
|
| EXISTS(FILENUM,NAME,FLAG) | ;Check for existence of an entry with the
|
|
| GNEW | ||
| TIUOBJ(FDA) | ;Resolve the name of the health summary object.
|
|
| GETNAME(MIN,MAX) | ;Get a name to use.
|
|
| DEF(FDA,NAMECHG) | ;Check the reminder definition to make sure the related
|
|
| HF(FDA,NAMECHG) | ;Check the health factor to make sure a category does not
|
|
| VDLGFIND(ABBR,IEN,ALIST) | ;Determine if the finding item associated with a
|
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | EXISTS+41, GNEW+5, TIUOBJ+16 |
| ^DIC | DEF+19, DEF+38, SFMVPI+35 |
| $$FIND1^DIC | DEF+27, EXISTS+19, REXISTS+4 |
| FIND^DIC | EXISTS+23 |
| $$GET1^DID | EXISTS+37 |
| $$ROOT^DILFD | SFMVPI+28 |
| ^DIR | GETACT+17, GETNAME+4 |
| CEFD^PXRMDATE | DEF+51 |
| $$FILESCR^PXRMDLG6 | VDLGFIND+5 |
| $$EXISTS^PXRMEXCF | EXISTS+6 |
| $$EXISTS^PXRMEXIU | DEF+8 |
| $$GETACT^PXRMEXIU | SFMVPI+24 |
| $$GETIEN^PXRMEXU0 | EXISTS+44 |
| $$GETTAGV^PXRMEXU3 | DEF+50 |
| BLDALIST^PXRMVPTR | SFMVPI+7 |
| $$UP^XLFSTR | EXISTS+18 |
| BMES^XPDUTL | SFMVPI+23, TIUOBJ+17 |
| MES^XPDUTL | DEF+15, DEF+34 |
| FileNo | Call Tags |
|---|---|
| ^PXRMD(811.6 - [#811.6] | FIND1^DIC |
| ^PXD(811.8 - [#811.8] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("EOFF" | DEF+20, DEF+39, GETACT+18, SFMVPI+36 |
| ^%ZOSF("EON" | DEF+17, DEF+36, GETACT+16, SFMVPI+34 |
| ^GMT(142.5 - [#142.5] | TIUOBJ+8 |
| ^PXD(811.8 - [#811.8] | DEF+50 |
| ^PXRMD(801.41 - [#801.41] | DEF+45 |
| ^TMP("PXRMEXIA" | SFMVPI+45* |
| Name | Line Occurrences |
|---|---|
| $$EXISTS | GNEW+1, VFIND1+8 |
| $$GETNAME | GNEW |
| $$VFIND1 | SFMVPI+17 |
| GNEW | GNEW+2 |
| SFMVPI | DEF+49 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABBR | DEF+2~, SFMVPI+3~, SFMVPI+11*, SFMVPI+13, SFMVPI+15, SFMVPI+18, SFMVPI+42, VDLGFIND~, VDLGFIND+4, VFIND1+3~ , VFIND1+5*, VFIND1+7 |
| ACTION | SFMVPI+3~, SFMVPI+8*, SFMVPI+9, SFMVPI+24*, SFMVPI+25, SFMVPI+26 |
| ALIST | DEF+2~, SFMVPI+3~, SFMVPI+7, SFMVPI+17, VDLGFIND~, VFIND1~ |
| ALIST( | SFMVPI+13, VDLGFIND+4, VFIND1+7 |
| ATTR | GETUNAME~ |
| ATTR("FIELD L | ENGTH" , GNEW |
| ATTR("FILE NA | ME" , GNEW+3 |
| ATTR("FILE NU | MBER" , GNEW+1 |
| ATTR("MIN FIE | LD LENGTH" , GNEW |
| ATTR("NAME" | GNEW+6* |
| CHOICES | GETACT~, GETACT+2, GETACT+5, GETACT+6, GETACT+7, GETACT+8, GETACT+9, GETACT+10, GETACT+11, GETACT+12 , GETACT+13, GETACT+14 |
| DATEP | REXISTS~, REXISTS+3 |
| DIC | DEF+11~, DEF+18*, DEF+30~, DEF+37*, SFMVPI+21~, SFMVPI+27* |
| DIC("S" | SFMVPI+29* |
| DIC(0 | DEF+18*, DEF+37*, SFMVPI+30* |
| DIR | GETACT~, GETNAME+1~, SFMVPI+3~, SFMVPI+24 |
| DIR("A" | GETNAME+3* |
| DIR(0 | GETACT+4*, GETACT+5*, GETACT+6*, GETACT+7*, GETACT+8*, GETACT+9*, GETACT+10*, GETACT+11*, GETACT+12*, GETACT+13* , GETACT+14*, GETNAME+2* |
| DIROUT | GETACT+3~, GETACT+19, GETNAME+1~, GETNAME+5 |
| DIRUT | GETACT+3~, GETACT+19, GETNAME+1~, GETNAME+5 |
| DTOUT | GETACT+3~, GETACT+20, GETNAME+1~, GETNAME+6 |
| DUOUT | GETACT+3~, GETACT+20, GETNAME+1~, GETNAME+6, SFMVPI+21~, SFMVPI+37 |
| END | TIUOBJ+1~, TIUOBJ+6*, TIUOBJ+7 |
| FDA | DEF~, DEF+49, DEF+51, HF~, SFMVPI~, SFMVPI+25!, SFMVPI+39!, TIUOBJ~ |
| FDA( | DEF+4, DEF+6, DEF+7, DEF+21!, DEF+22*, DEF+25, DEF+26, DEF+40!, DEF+41*, DEF+44 , DEF+46!, HF+3, HF+5!, SFMVPI+9, SFMVPI+10, SFMVPI+16*, SFMVPI+18*, SFMVPI+26!, SFMVPI+40!, SFMVPI+43* , TIUOBJ+2, TIUOBJ+3, TIUOBJ+18*, TIUOBJ+19* |
| FILENAME | EXISTS+22~, EXISTS+37*, EXISTS+38 |
| FILENUM | DEF+2~, EXISTS~, EXISTS+6, EXISTS+11, EXISTS+18, EXISTS+19, EXISTS+23, EXISTS+37, SFMVPI+3~, SFMVPI+13* , SFMVPI+14, SFMVPI+15, SFMVPI+27, SFMVPI+28, VDLGFIND+3~, VDLGFIND+4*, VDLGFIND+5, VFIND1+3~, VFIND1+7*, VFIND1+8 |
| FINDING | DEF+2~, SFMVPI+3~, SFMVPI+10*, SFMVPI+11, SFMVPI+12, SFMVPI+15*, SFMVPI+16, SFMVPI+17, SFMVPI+22, SFMVPI+42* , SFMVPI+43, SFMVPI+45 |
| FLAG | EXISTS~, EXISTS+36 |
| FLAGS | EXISTS+7~, EXISTS+15*, EXISTS+16*, EXISTS+19, EXISTS+23 |
| HSOBJIEN | TIUOBJ+1~, TIUOBJ+8*, TIUOBJ+9, TIUOBJ+18 |
| HSUB | SFMVPI+3~, SFMVPI+5*, SFMVPI+45 |
| IEN | DEF+2~, DEF+8*, DEF+9, DEF+27*, DEF+28, DEF+45*, DEF+46, EXISTS+5~, EXISTS+6*, EXISTS+19* , EXISTS+20, EXISTS+44*, EXISTS+45, GETUNAME+1~, GNEW+1*, GNEW+2, REXISTS+1~, REXISTS+4*, REXISTS+5, SFMVPI+3~ , SFMVPI+17*, SFMVPI+18, SFMVPI+19, VDLGFIND~, VDLGFIND+5, VFIND1+3~, VFIND1+4*, VFIND1+8*, VFIND1+9 |
| IENS | DEF+2~, DEF+4*, DEF+6, DEF+7, DEF+21, DEF+22, DEF+25, DEF+26, DEF+40, DEF+41 , DEF+44, DEF+46, HF+2~, HF+3*, HF+4, HF+5, SFMVPI+3~, SFMVPI+8*, SFMVPI+9*, SFMVPI+10 , SFMVPI+16, SFMVPI+18, SFMVPI+26, SFMVPI+40, SFMVPI+43, SFMVPI+45, TIUOBJ+1~, TIUOBJ+2*, TIUOBJ+3, TIUOBJ+18 , TIUOBJ+19 |
| IND | EXISTS+22~, EXISTS+30*, EXISTS+31 |
| LIST | EXISTS+22~, EXISTS+44 |
| LIST("DILIST" | EXISTS+24, EXISTS+26, EXISTS+31, EXISTS+32, EXISTS+36 |
| LRD | DEF+2~, DEF+44*, DEF+45 |
| LUVALUE | REXISTS+1~, REXISTS+4 |
| LUVALUE(1 | REXISTS+2* |
| LUVALUE(2 | REXISTS+3* |
| MAX | GETNAME~, GETNAME+2 |
| MIN | GETNAME~, GETNAME+2 |
| MLIST | EXISTS+22~ |
| MLIST( | EXISTS+31* |
| MLIST(1 | EXISTS+32 |
| MSG | EXISTS+22~ |
| NAME | EXISTS~, EXISTS+3, EXISTS+6, EXISTS+8, EXISTS+14, EXISTS+18, EXISTS+23, EXISTS+31, EXISTS+38, REXISTS~ , REXISTS+2 |
| NAMECHG | DEF~, DEF+49, HF~, SFMVPI~ |
| NAMECHG( | SFMVPI+14, SFMVPI+15 |
| NEWPT01 | GETUNAME+1~, GNEW*, GNEW+1, GNEW+3, GNEW+6, GNEW+7 |
| NFOUND | EXISTS+22~, EXISTS+24*, EXISTS+25, EXISTS+26, EXISTS+30 |
| NMATCH | EXISTS+22~, EXISTS+29*, EXISTS+31*, EXISTS+32, EXISTS+33, EXISTS+36, EXISTS+38, EXISTS+44 |
| OFINDING | DEF+2~, SFMVPI+3~, SFMVPI+10*, SFMVPI+45 |
| PT01 | DEF+2~, SFMVPI+3~, SFMVPI+12*, SFMVPI+14, SFMVPI+15, VFIND1+3~, VFIND1+6*, VFIND1+8 |
| >> PXRMRIEN | DEF+50 |
| RESULT | EXISTS+7~, EXISTS+8*, EXISTS+14*, EXISTS+18*, EXISTS+19, VFIND1+3~ |
| ROOT | SFMVPI+21~, SFMVPI+28* |
| RRG | DEF+3~, DEF+7*, DEF+8, DEF+14 |
| SFN | SFMVPI~, SFMVPI+5, SFMVPI+6, SFMVPI+7, SFMVPI+9, SFMVPI+10, SFMVPI+16, SFMVPI+18, SFMVPI+26, SFMVPI+40 , SFMVPI+43 |
| SPONSOR | DEF+3~, DEF+26*, DEF+27, DEF+33 |
| START | TIUOBJ+1~, TIUOBJ+5*, TIUOBJ+7 |
| TEMP | TIUOBJ+1~, TIUOBJ+3*, TIUOBJ+4, TIUOBJ+5, TIUOBJ+6, TIUOBJ+7*, TIUOBJ+8, TIUOBJ+11 |
| TEXT | DEF+3~, DEF+15, DEF+34, EXISTS+22~, EXISTS+41, GETUNAME+1~, GNEW+5, SFMVPI+21~, SFMVPI+23, TIUOBJ+10~ , TIUOBJ+16, TIUOBJ+17 |
| TEXT(1 | DEF+12*, DEF+31*, EXISTS+38*, GNEW+3*, SFMVPI+22*, TIUOBJ+11* |
| TEXT(2 | DEF+13*, DEF+32*, EXISTS+39*, GNEW+4*, TIUOBJ+12* |
| TEXT(3 | DEF+14*, DEF+33*, EXISTS+40*, TIUOBJ+13* |
| TEXT(4 | TIUOBJ+14* |
| TEXT(5 | TIUOBJ+15* |
| TYPE | SFMVPI+3~, SFMVPI+6*, SFMVPI+22 |
| U | DEF+22, DEF+41, EXISTS+24, GETACT+4, GETNAME+2, SFMVPI+13, SFMVPI+28, SFMVPI+42, VDLGFIND+4, VFIND1+7 |
| VERSN | DEF+3~, DEF+50*, DEF+51 |
| VPTR | VFIND1~, VFIND1+5, VFIND1+6 |
| X | DEF+11~, DEF+30~, GETACT+3~, GETNAME+1~, SFMVPI+21~ |
| >> XPDNM | DEF+17, DEF+20, DEF+36, DEF+39, GETACT+16, GETACT+18, SFMVPI+34, SFMVPI+36, TIUOBJ+16, TIUOBJ+17 |
| Y | DEF+11~, DEF+21, DEF+22, DEF+30~, DEF+40, DEF+41, GETACT+3~, GETACT+19*, GETACT+20*, GETACT+21 , GETNAME+1~, GETNAME+7, SFMVPI+21~, SFMVPI+31*, SFMVPI+32, SFMVPI+38*, SFMVPI+40, SFMVPI+42 |
| YY | SFMVPI+21~ |