PXRMEXIU ;SLC/PKR/PJH - Utilities for installing repository entries. ;03/30/2018
Source file <PXRMEXIU.m>
| Package | Total | Call Graph |
|---|---|---|
| Clinical Reminders | 8 | CEFD^PXRMDATE $$FILESCR^PXRMDLG6 $$EXISTS^PXRMEXCF ($$EXISTS,$$GETACT)^PXRMEXIU $$GETIEN^PXRMEXU0 $$GETTAGV^PXRMEXU3 AWRITE^PXRMUTIL BLDALIST^PXRMVPTR |
| VA FileMan | 5 | EN^DDIOL (,$$FIND1,FIND)^DIC $$GET1^DID $$ROOT^DILFD ^DIR |
| Kernel | 2 | $$UP^XLFSTR (BMES,MES)^XPDUTL |
| National Drug File | 1 | ZERO^PSN50P6 |
| 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 |
|---|---|---|
| DEF(FDA,NAMECHG) | ;Check the reminder definition to make sure the related
|
|
| DELFIND(SFN,IENS,FDA) | ;Delete a finding from the FDA.
|
|
| EDU(FDA,EDULIST) | ;Education Topics special handling. Add national education
|
|
| EXAM(FDA) | ;Check the health factor to make sure a category does not
|
|
| EXISTS(FILENUM,NAME,FLAG) | ;Check for existence of an entry with the
|
|
| GETACT(CHOICES,DIR) | ;Get the action
|
|
| GETNAME(MIN,MAX) | ;Get a name to use.
|
|
| GETUNAME(ATTR) | ;Get a unique name to use, ATTR holds the attributes.
|
|
| GNEW | ||
| HF(FDA) | ;Health factor special handling.
|
|
| REXISTS(NAME,DATEP) | ;See if this Exchange File entry already exists.
|
|
| SFMVPI(FDA,NAMECHG,SFN) | ;Search a variable pointer list for items that do not
|
|
| TIUOBJ(FDA) | ;Resolve the name of the health summary object.
|
|
| VAGENSCR(IEN) | ;Screen for VA Generic, file #50.6, return true only for
|
|
| VDLGFIND(ABBR,IEN,ALIST) | ;Determine if the finding item associated with a
|
|
| VFIND1(VPTR,ALIST) | ;Given a variable pointer of the form ABBR.NAME
|
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | EXISTS+33, EXISTS+55, GNEW+5, TIUOBJ+16 |
| ^DIC | DEF+19, DEF+38, SFMVPI+39 |
| $$FIND1^DIC | DEF+27, EXISTS+20, REXISTS+4 |
| FIND^DIC | EXISTS+25 |
| $$GET1^DID | EDU+10, EXAM+8, EXISTS+49, HF+9 |
| $$ROOT^DILFD | SFMVPI+32 |
| ^DIR | GETACT+17, GETNAME+4 |
| ZERO^PSN50P6 | VAGENSCR+4 |
| CEFD^PXRMDATE | DEF+53 |
| $$FILESCR^PXRMDLG6 | VDLGFIND+5 |
| $$EXISTS^PXRMEXCF | EXISTS+6 |
| $$EXISTS^PXRMEXIU | DEF+8 |
| $$GETACT^PXRMEXIU | SFMVPI+28 |
| $$GETIEN^PXRMEXU0 | EXISTS+58 |
| $$GETTAGV^PXRMEXU3 | DEF+52 |
| AWRITE^PXRMUTIL | EXISTS+34 |
| BLDALIST^PXRMVPTR | SFMVPI+8 |
| $$UP^XLFSTR | EXISTS+18 |
| BMES^XPDUTL | SFMVPI+27, 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 |
| ^AUTTEDT - [#9999999.09] | GET1^DID |
| ^AUTTEXAM - [#9999999.15] | GET1^DID |
| ^AUTTHF - [#9999999.64] | GET1^DID |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("EOFF" | DEF+20, DEF+39, GETACT+18, SFMVPI+40 |
| ^%ZOSF("EON" | DEF+17, DEF+36, GETACT+16, SFMVPI+38 |
| ^GMT(142.5 - [#142.5] | TIUOBJ+8 |
| ^PXD(811.8 - [#811.8] | DEF+52 |
| ^PXRMD(801.41 - [#801.41] | DEF+47 |
| ^TMP("PXRMEXDL" | DEF+46* |
| ^TMP("PXRMEXIA" | SFMVPI+50* |
| ^TMP($J | SFMVPI+21, SFMVPI+48*, VAGENSCR+6, VAGENSCR+7! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABBR | DEF+2~, SFMVPI+3~, SFMVPI+12*, SFMVPI+14, SFMVPI+16, SFMVPI+19, SFMVPI+46, VDLGFIND~, VDLGFIND+4, VFIND1+3~ , VFIND1+5*, VFIND1+7 |
| ACTION | SFMVPI+3~, SFMVPI+9*, SFMVPI+10, SFMVPI+28*, SFMVPI+29, SFMVPI+30 |
| ALIST | DEF+2~, SFMVPI+3~, SFMVPI+8, SFMVPI+18, VDLGFIND~, VFIND1~ |
| ALIST( | SFMVPI+14, 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* |
| CDEF | EDU+2~, EDU+10*, EDU+11, EXAM+2~, EXAM+8*, EXAM+9, HF+1~, HF+9*, HF+10 |
| CHOICES | GETACT~, GETACT+2, GETACT+5, GETACT+6, GETACT+7, GETACT+8, GETACT+9, GETACT+10, GETACT+11, GETACT+12 , GETACT+13, GETACT+14 |
| COWN | TIUOBJ+1~, TIUOBJ+20*, TIUOBJ+21, TIUOBJ+22 |
| DATEP | REXISTS~, REXISTS+3 |
| DIC | DEF+11~, DEF+18*, DEF+30~, DEF+37*, SFMVPI+25~, SFMVPI+31* |
| DIC("S" | SFMVPI+33* |
| DIC(0 | DEF+18*, DEF+37*, SFMVPI+34* |
| DIR | GETACT~, GETNAME+1~, SFMVPI+3~, SFMVPI+28 |
| 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+25~, SFMVPI+41 |
| DUZ | TIUOBJ+21 |
| EDULIST | EDU~ |
| EDULIST( | EDU+5*, EDU+9*, EDU+13* |
| END | TIUOBJ+1~, TIUOBJ+6*, TIUOBJ+7 |
| FDA | DEF~, DEF+51, DEF+53, DELFIND~, EDU~, EXAM~, HF~, SFMVPI~, SFMVPI+29!, SFMVPI+30 , SFMVPI+43!, TIUOBJ~ |
| FDA( | DEF+4, DEF+6, DEF+7, DEF+21!, DEF+22*, DEF+25, DEF+26, DEF+40!, DEF+41*, DEF+44 , DEF+45, DEF+48!, DELFIND+3, DELFIND+5!, DELFIND+6!, EDU+3, EDU+5, EDU+8, EDU+9, EDU+12* , EDU+13, EXAM+3, EXAM+7, EXAM+10*, HF+2, HF+5!, HF+8, HF+11*, SFMVPI+10, SFMVPI+11 , SFMVPI+17*, SFMVPI+19*, SFMVPI+22*, SFMVPI+44!, SFMVPI+47*, TIUOBJ+2, TIUOBJ+3, TIUOBJ+21*, TIUOBJ+22*, TIUOBJ+23* , TIUOBJ+24* |
| FILENAME | EXISTS+23~, EXISTS+49*, EXISTS+52 |
| FILENUM | DEF+2~, EXISTS~, EXISTS+6, EXISTS+11, EXISTS+18, EXISTS+19, EXISTS+20, EXISTS+25, EXISTS+30, EXISTS+49 , SFMVPI+3~, SFMVPI+14*, SFMVPI+15, SFMVPI+16, SFMVPI+31, SFMVPI+32, VDLGFIND+3~, VDLGFIND+4*, VDLGFIND+5, VFIND1+3~ , VFIND1+7*, VFIND1+8 |
| FINDING | DEF+2~, SFMVPI+3~, SFMVPI+11*, SFMVPI+12, SFMVPI+13, SFMVPI+16*, SFMVPI+17, SFMVPI+18, SFMVPI+21, SFMVPI+22* , SFMVPI+26, SFMVPI+48, SFMVPI+50 |
| FLAG | EXISTS~, EXISTS+48 |
| FLAGS | EXISTS+7~, EXISTS+15*, EXISTS+16*, EXISTS+20, EXISTS+25 |
| HSOBJIEN | TIUOBJ+1~, TIUOBJ+8*, TIUOBJ+9, TIUOBJ+23 |
| HSUB | SFMVPI+3~, SFMVPI+6*, SFMVPI+50 |
| IEN | DEF+2~, DEF+8*, DEF+9, DEF+27*, DEF+28, DEF+47*, DEF+48, EXISTS+5~, EXISTS+6*, EXISTS+20* , EXISTS+21, EXISTS+58*, EXISTS+59, GETUNAME+1~, GNEW+1*, GNEW+2, REXISTS+1~, REXISTS+4*, REXISTS+5, SFMVPI+3~ , SFMVPI+18*, SFMVPI+19, SFMVPI+21, SFMVPI+23, VAGENSCR~, VAGENSCR+4, VAGENSCR+6, 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+45, DEF+48, DELFIND~, DELFIND+5, DELFIND+6, EDU+2~, EDU+3*, EDU+4, EDU+5 , EDU+8, EDU+9, EDU+12, EDU+13, EXAM+2~, EXAM+3*, EXAM+4, EXAM+7, EXAM+10, HF+1~ , HF+2*, HF+3, HF+5, HF+8, HF+11, SFMVPI+3~, SFMVPI+9*, SFMVPI+10*, SFMVPI+11, SFMVPI+17 , SFMVPI+19, SFMVPI+22, SFMVPI+30, SFMVPI+44, SFMVPI+47, SFMVPI+50, TIUOBJ+1~, TIUOBJ+2*, TIUOBJ+3, TIUOBJ+21 , TIUOBJ+22, TIUOBJ+23, TIUOBJ+24 |
| IENSD | DELFIND+1~, DELFIND+4*, DELFIND+5* |
| IND | EXISTS+23~, EXISTS+42*, EXISTS+43 |
| LIST | EXISTS+23~, EXISTS+58 |
| LIST("DILIST" | EXISTS+36, EXISTS+38, EXISTS+43, EXISTS+44, EXISTS+48 |
| LRD | DEF+2~, DEF+44*, DEF+46, DEF+47 |
| LUVALUE | REXISTS+1~, REXISTS+4 |
| LUVALUE(1 | REXISTS+2* |
| LUVALUE(2 | REXISTS+3* |
| MAX | GETNAME~, GETNAME+2 |
| MIN | GETNAME~, GETNAME+2 |
| MLIST | EXISTS+23~ |
| MLIST( | EXISTS+43* |
| MLIST(1 | EXISTS+44 |
| MSG | EDU+2~, EXAM+2~, EXISTS+5~, EXISTS+24!, EXISTS+26, HF+1~ |
| NAME | EXISTS~, EXISTS+3, EXISTS+6, EXISTS+8, EXISTS+14, EXISTS+18, EXISTS+25, EXISTS+29, EXISTS+43, EXISTS+52 , REXISTS~, REXISTS+2 |
| NAMECHG | DEF~, DEF+51, SFMVPI~ |
| NAMECHG( | SFMVPI+15, SFMVPI+16 |
| NEWPT01 | GETUNAME+1~, GNEW*, GNEW+1, GNEW+3, GNEW+6, GNEW+7 |
| NFOUND | EXISTS+23~, EXISTS+36*, EXISTS+37, EXISTS+38, EXISTS+42 |
| NMATCH | EXISTS+23~, EXISTS+41*, EXISTS+43*, EXISTS+44, EXISTS+45, EXISTS+48, EXISTS+52, EXISTS+58 |
| OFINDING | DEF+2~, SFMVPI+3~, SFMVPI+11*, SFMVPI+50 |
| OK | VAGENSCR+2~, VAGENSCR+6*, VAGENSCR+8 |
| PT01 | DEF+2~, SFMVPI+3~, SFMVPI+13*, SFMVPI+15, SFMVPI+16, VFIND1+3~, VFIND1+6*, VFIND1+8 |
| >> PXRMNAT | EDU+12, EXAM+10, HF+11 |
| >> PXRMRIEN | DEF+52 |
| REPFI | SFMVPI+4~, SFMVPI+19*, SFMVPI+21*, SFMVPI+22, SFMVPI+23, SFMVPI+46*, SFMVPI+47, SFMVPI+48 |
| RESULT | EXISTS+7~, EXISTS+8*, EXISTS+14*, EXISTS+18*, EXISTS+20, VFIND1+3~ |
| RNAME | DEF+3~, DEF+45*, DEF+46 |
| ROOT | SFMVPI+25~, SFMVPI+32* |
| RRG | DEF+3~, DEF+7*, DEF+8, DEF+14 |
| SCREEN | EXISTS+7~, EXISTS+19*, EXISTS+20, EXISTS+25 |
| SFN | DELFIND~, DELFIND+6, SFMVPI~, SFMVPI+6, SFMVPI+7, SFMVPI+8, SFMVPI+10, SFMVPI+11, SFMVPI+17, SFMVPI+19 , SFMVPI+22, SFMVPI+30, SFMVPI+44, SFMVPI+47 |
| SFND | DELFIND+1~, DELFIND+2*, DELFIND+3*, DELFIND+5 |
| 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+23~, EXISTS+27!, EXISTS+33, EXISTS+50!, EXISTS+55, GETUNAME+1~, GNEW+5 , SFMVPI+25~, SFMVPI+27, TIUOBJ+10~, TIUOBJ+16, TIUOBJ+17 |
| TEXT(1 | DEF+12*, DEF+31*, EXISTS+28*, EXISTS+51*, GNEW+3*, SFMVPI+26*, TIUOBJ+11* |
| TEXT(2 | DEF+13*, DEF+32*, EXISTS+29*, EXISTS+52*, GNEW+4*, TIUOBJ+12* |
| TEXT(3 | DEF+14*, DEF+33*, EXISTS+30*, EXISTS+53*, TIUOBJ+13* |
| TEXT(4 | EXISTS+31*, EXISTS+54*, TIUOBJ+14* |
| TEXT(5 | EXISTS+32*, TIUOBJ+15* |
| >> TOPFNUM | EDU+5, EDU+9, EDU+13 |
| TYPE | SFMVPI+4~, SFMVPI+7*, SFMVPI+26 |
| U | DEF+22, DEF+41, EXISTS+36, GETACT+4, GETNAME+2, SFMVPI+14, SFMVPI+32, SFMVPI+46, VDLGFIND+4, VFIND1+7 |
| VERSN | DEF+3~, DEF+52*, DEF+53 |
| VPTR | VFIND1~, VFIND1+5, VFIND1+6 |
| X | DEF+11~, DEF+30~, GETACT+3~, GETNAME+1~, SFMVPI+25~ |
| >> XPDNM | DEF+17, DEF+20, DEF+36, DEF+39, GETACT+16, GETACT+18, SFMVPI+38, SFMVPI+40, 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+25~, SFMVPI+35*, SFMVPI+36, SFMVPI+42*, SFMVPI+44, SFMVPI+46 |
| YY | SFMVPI+25~ |
