PXRMUTIL ;SLC/PKR/PJH - Utility routines for use by PXRM. ;02/05/2013
Source file <PXRMUTIL.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 9 | ($$FIND1,FIND)^DIC ($$GET1,FIELD)^DID (,FILE,UPDATE)^DIE ^DIK ($$CREF,$$OREF)^DILF EN1^DIP $$GET1^DIQ ^DIR EN^DIWE |
| Kernel | 6 | (,HOME)^%ZIS ^%ZISC ($$DEL,$$FTG,$$PWD)^%ZISH ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT ($$OPTDE,$$PRODE,BMES,MES)^XPDUTL |
| Clinical Reminders | 3 | $$CTFMD^PXRMDATE MKWSDEV^PXRMHOST (APRINT,AWRITE)^PXRMUTIL |
| Registration | 1 | FULL^VALM1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SFRES(SDIR,NRES,FIEVAL) | ;Save the finding result.
|
|
| UPEHIST(FILENUM,IEN,TEXT,MSG) | ;Update the edit history.
|
|
| OPTION(ACT) | ;Disable/enable options.
|
|
| PROTOCOL(ACT) | ;Disable/enable protocols.
|
|
| RMEHIST(FILENUM,IEN) | ;Remove the edit history for a reminder file.
|
|
| ACOPY(REF,OUTPUT) | ;Copy all the descendants of the array reference into a linear
|
|
| RENAME(FILENUM,OLDNAME,NEWNAME) | ;Rename entry OLDNAME to NEWNAME in
|
|
| FNFR(ROOT) | ;Given the root of a file return the file number.
|
|
| ATTVALUE(STRING,ATTR,SEP,AVSEP) | ;STRING contains a list of attribute value
|
|
| VEDIT(ROOT,IEN) | ;This is used as a DIC("S") screen to select which entries
|
|
| DELTLFE(FILENUM,NAME) | ;Delete top level entries from a file.
|
|
| SSPAR(FIND0,NOCC,BDT,EDT) | ;Set the finding search parameters.
|
|
| SEHIST(FILENUM,ROOT,IEN) | ;Set the edit date and edit by and prompt the
|
|
| AWRITE(REF) | ;Write all the descendants of the array reference, including the
|
|
| STRREP(STRING,TS,RS) | ;Replace every occurrence of the target string (TS)
|
|
| SETPVER(VERSION) | ;Set the package version
|
|
| BORP(DEFAULT) | ;Ask the user if they want to browse or print.
|
|
| APRINT(REF) | ;Write all the descendants of the array reference.
|
|
| GPRINTQ | ;Queued general printing.
|
|
| GPRINT(REF) | ;General printing.
|
|
| DIP(VAR,IEN,PXRMROOT,FLDS) | ;Do general inquiry for IEN return formatted
|
|
| NTOAN(NUMBER) | ;Given an integer N return an alphabetic string that can be
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | GPRINT+3 |
| HOME^%ZIS | GPRINT+16 |
| ^%ZISC | GPRINT+24, GPRINTQ+3 |
| $$DEL^%ZISH | DIP+46 |
| $$FTG^%ZISH | DIP+27 |
| $$PWD^%ZISH | DIP+12 |
| ^%ZTLOAD | GPRINT+14 |
| $$FIND1^DIC | DELTLFE+2, RENAME+3, RENAME+6 |
| FIND^DIC | OPTION+5, OPTION+11, OPTION+26 |
| $$GET1^DID | RMEHIST+3, UPEHIST+5 |
| FIELD^DID | SEHIST+4, UPEHIST+2 |
| ^DIE | RENAME+9, SETPVER+3 |
| FILE^DIE | DELTLFE+6 |
| UPDATE^DIE | SEHIST+27, UPEHIST+15 |
| ^DIK | RMEHIST+9 |
| $$CREF^DILF | GPRINT+9 |
| $$OREF^DILF | GPRINT+11 |
| EN1^DIP | DIP+22 |
| $$GET1^DIQ | SEHIST+13 |
| ^DIR | BORP+5, GPRINT+25, SEHIST+22 |
| EN^DIWE | SEHIST+24 |
| $$CTFMD^PXRMDATE | SSPAR+4, SSPAR+6 |
| MKWSDEV^PXRMHOST | DIP+10 |
| APRINT^PXRMUTIL | GPRINT+23, GPRINTQ+2 |
| AWRITE^PXRMUTIL | SEHIST+28 |
| FULL^VALM1 | GPRINT+20 |
| $$FMTE^XLFDT | SEHIST+12 |
| $$NOW^XLFDT | DIP+13, SEHIST+12, UPEHIST+12 |
| $$OPTDE^XPDUTL | OPTION+7, OPTION+14, OPTION+18, OPTION+22, OPTION+29 |
| $$PRODE^XPDUTL | PROTOCOL+6, PROTOCOL+10, PROTOCOL+14 |
| BMES^XPDUTL | OPTION+3, PROTOCOL+3 |
| MES^XPDUTL | APRINT+20, AWRITE+20, OPTION+8, OPTION+15, OPTION+19, OPTION+23, PROTOCOL+7, PROTOCOL+11, PROTOCOL+15 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(19 - [#19] | FIND^DIC |
| ^VA(200 - [#200] | GET1^DIQ |
| ^PXRM(800 - [#800] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("PXRMDDOC" | SSPAR+10* |
| ^TMP("PXRMUTIL" | DIP+26!, DIP+35, DIP+36, DIP+37, DIP+40, DIP+41, DIP+43! |
| ^TMP("PXRMWP" | SEHIST+3!, SEHIST+25!, SEHIST+26, SEHIST+29! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | DIP+6~, GPRINT+2* |
| %ZIS("HFSMODE" | DIP+19* |
| %ZIS("HFSNAME" | DIP+20* |
| ACT | OPTION~, OPTION+2, OPTION+3, OPTION+8, OPTION+15, OPTION+19, OPTION+23, PROTOCOL~, PROTOCOL+2, PROTOCOL+3 , PROTOCOL+7, PROTOCOL+11, PROTOCOL+15 |
| ACTION | OPTION+1~, OPTION+2*, OPTION+7, OPTION+14, OPTION+18, OPTION+22, OPTION+29, OPTION+30, PROTOCOL+1~, PROTOCOL+2* , PROTOCOL+6, PROTOCOL+10, PROTOCOL+14 |
| ALPH | NTOAN+3~ |
| ALPH( | NTOAN+18 |
| ALPH(0 | NTOAN+4* |
| ALPH(1 | NTOAN+4* |
| ALPH(10 | NTOAN+6* |
| ALPH(11 | NTOAN+6* |
| ALPH(12 | NTOAN+6* |
| ALPH(13 | NTOAN+6* |
| ALPH(14 | NTOAN+6* |
| ALPH(15 | NTOAN+7* |
| ALPH(16 | NTOAN+7* |
| ALPH(17 | NTOAN+7* |
| ALPH(18 | NTOAN+7* |
| ALPH(19 | NTOAN+7* |
| ALPH(2 | NTOAN+4* |
| ALPH(20 | NTOAN+8* |
| ALPH(21 | NTOAN+8* |
| ALPH(22 | NTOAN+8* |
| ALPH(23 | NTOAN+8* |
| ALPH(24 | NTOAN+8* |
| ALPH(25 | NTOAN+9* |
| ALPH(3 | NTOAN+4* |
| ALPH(4 | NTOAN+4* |
| ALPH(5 | NTOAN+5* |
| ALPH(6 | NTOAN+5* |
| ALPH(7 | NTOAN+5* |
| ALPH(8 | NTOAN+5* |
| ALPH(9 | NTOAN+5* |
| ANUM | NTOAN+11~, NTOAN+12*, NTOAN+18*, NTOAN+20 |
| ARRAY | DIP+6~ |
| ARRAY( | DIP+42! |
| ATTR | ATTVALUE~, ATTVALUE+8 |
| AVPAIR | ATTVALUE+3~, ATTVALUE+7*, ATTVALUE+8 |
| AVSEP | ATTVALUE~, ATTVALUE+8 |
| BDT | SSPAR~, SSPAR+1*, SSPAR+4*, SSPAR+10 |
| BY | DIP+6~, DIP+8* |
| CLASS | VEDIT+2~, VEDIT+4*, VEDIT+5 |
| DA | RENAME+2~, RENAME+3*, RENAME+4, RMEHIST+2~, RMEHIST+8*, RMEHIST+9*, SETPVER+1~, SETPVER+2* |
| DA(1 | RMEHIST+5* |
| DATE | SFRES+2~, SFRES+6*, SFRES+8, SFRES+9 |
| DC | DIP+6~ |
| DEFAULT | BORP~, BORP+4 |
| DHD | DIP+6~, DIP+8* |
| DIC | DIP+6~, DIP+21*, SEHIST+2~, SEHIST+15* |
| DIE | RENAME+2~, RENAME+7*, SETPVER+1~, SETPVER+2* |
| DIGIT | NTOAN+11~, NTOAN+17*, NTOAN+18, NTOAN+19 |
| DIK | RMEHIST+2~, RMEHIST+6* |
| DIR | BORP+1~, GPRINT+1~, SEHIST+2~ |
| DIR("A" | BORP+3*, GPRINT+25*, SEHIST+20* |
| DIR("B" | BORP+4*, SEHIST+21* |
| DIR(0 | BORP+2*, GPRINT+25*, SEHIST+19* |
| >> DIROUT | BORP+6 |
| DONE | ACOPY+5~, ACOPY+15*, ACOPY+16, ACOPY+24*, APRINT+3~, APRINT+12*, APRINT+13, APRINT+19*, AWRITE+3~, AWRITE+12* , AWRITE+13, AWRITE+19*, DIP+6~, DIP+34*, DIP+35, DIP+36*, DIP+39*, DIP+40, DIP+42* |
| DR | RENAME+2~, RENAME+8*, SETPVER+1~, SETPVER+2* |
| >> DTOUT | BORP+6*, BORP+7 |
| >> DUOUT | BORP+7 |
| DUZ | SEHIST+13, UPEHIST+13 |
| DUZ(0 | VEDIT+6 |
| DWLW | SEHIST+2~, SEHIST+16* |
| DWPK | SEHIST+2~, SEHIST+17* |
| EDT | SSPAR~, SSPAR+1*, SSPAR+5*, SSPAR+6*, SSPAR+8*, SSPAR+10 |
| ENTRY | SEHIST+2~, SEHIST+7*, SEHIST+8, VEDIT+2~, VEDIT+3*, VEDIT+4 |
| FDA | DELTLFE+1~, SEHIST+2~, UPEHIST+1~ |
| FDA( | DELTLFE+5*, SEHIST+12*, SEHIST+13*, SEHIST+26*, UPEHIST+12*, UPEHIST+13*, UPEHIST+14* |
| FDAIEN | SEHIST+2~ |
| FDAIEN( | SEHIST+11* |
| FF | DIP+6~, DIP+29*, DIP+36, DIP+42 |
| FIEVAL | SFRES~, SFRES+1*, SFRES+10* |
| FIEVAL( | SFRES+3, SFRES+12* |
| FILENAME | DIP+6~, DIP+16*, DIP+17, DIP+27, DIP+45 |
| FILENUM | DELTLFE~, DELTLFE+2, DELTLFE+5, RENAME~, RENAME+3, RENAME+6, RENAME+7, RMEHIST~, RMEHIST+1, RMEHIST+3 , SEHIST~, SEHIST+4, UPEHIST~, UPEHIST+2, UPEHIST+5 |
| FILESPEC | DIP+6~, DIP+46 |
| FILESPEC( | DIP+45* |
| FIND0 | SSPAR~, SSPAR+1, SSPAR+10 |
| FLDS | DIP~ |
| FR | DIP+6~, DIP+8* |
| GBL | DIP+6~, DIP+24*, DIP+25*, DIP+27, UPEHIST+1~, UPEHIST+5*, UPEHIST+6 |
| GLOBAL | RMEHIST+2~, RMEHIST+3*, RMEHIST+6, RMEHIST+7 |
| HFNAME | DIP+6~, DIP+17*, DIP+20 |
| IEN | DIP~, DIP+8, RMEHIST~, RMEHIST+5, RMEHIST+6, RMEHIST+7, SEHIST~, SEHIST+7, SEHIST+10, SEHIST+11 , UPEHIST~, UPEHIST+5, UPEHIST+11, VEDIT~, VEDIT+3 |
| IENS | DELTLFE+1~, DELTLFE+2*, DELTLFE+3, DELTLFE+4*, DELTLFE+5, SEHIST+2~, SEHIST+10*, SEHIST+12, SEHIST+13, SEHIST+26 , UPEHIST+1~, UPEHIST+11*, UPEHIST+12, UPEHIST+13, UPEHIST+14 |
| IND | ATTVALUE+3~, ATTVALUE+6*, ATTVALUE+7, ACOPY+5~, ACOPY+19*, ACOPY+22, APRINT+3~, APRINT+16*, AWRITE+3~, AWRITE+16* , AWRITE+17, DIP+7~, DIP+34*, DIP+35*, DIP+36, DIP+37, DIP+39*, DIP+40*, DIP+41, DIP+42 , OPTION+1~, OPTION+6*, OPTION+12*, OPTION+13, OPTION+27*, OPTION+28, SEHIST+2~, SEHIST+8*, SEHIST+9*, SEHIST+10 , SFRES+2~, SFRES+3*, SFRES+9*, SFRES+12, STRREP+7~, STRREP+13*, UPEHIST+1~, UPEHIST+7*, UPEHIST+8*, UPEHIST+10 |
| IO | GPRINT+21, GPRINTQ+1 |
| IO("Q" | GPRINT+5, GPRINT+17! |
| IOP | DIP+7~, DIP+18* |
| >> IOT | GPRINT+22 |
| IOTP | GPRINT+1~, GPRINT+22*, GPRINT+25 |
| L | DIP+7~, DIP+21* |
| LEN | ACOPY+5~, ACOPY+18*, ACOPY+19, APRINT+3~, APRINT+15*, APRINT+16, AWRITE+3~, AWRITE+15*, AWRITE+16 |
| LIST | OPTION+1~, OPTION+10!, OPTION+25! |
| LIST("DILIST" | OPTION+6, OPTION+12, OPTION+13, OPTION+27, OPTION+28 |
| LN | APRINT+3~, APRINT+5*, APRINT+17*, AWRITE+3~, AWRITE+5*, AWRITE+17*, UPEHIST+1~, UPEHIST+7*, UPEHIST+9*, UPEHIST+10 |
| MSG | DELTLFE+1~, SEHIST+2~, SEHIST+28, UPEHIST~ |
| NAME | DELTLFE~, DELTLFE+2 |
| NEWNAME | RENAME~, RENAME+6 |
| NEXT | UPEHIST+1~, UPEHIST+6*, UPEHIST+11 |
| NIEN | RENAME+2~, RENAME+6* |
| NL | ACOPY+5~, ACOPY+7*, ACOPY+20*, ACOPY+21 |
| NOCC | SSPAR~, SSPAR+1*, SSPAR+2* |
| NOW | DIP+7~, DIP+13*, DIP+14*, DIP+15 |
| NPCS | STRREP+7~, STRREP+10*, STRREP+13, STRREP+14 |
| NRES | SFRES~, SFRES+1, SFRES+3 |
| NUM | NTOAN+11~, NTOAN+12*, NTOAN+17, NTOAN+19* |
| NUMAVP | ATTVALUE+3~, ATTVALUE+4*, ATTVALUE+6 |
| NUMBER | NTOAN~, NTOAN+12, NTOAN+14 |
| OA | SFRES+2~ |
| OA( | SFRES+3*, SFRES+8, SFRES+9 |
| OA("" | SFRES+6 |
| OLDNAME | RENAME~, RENAME+3 |
| OPT | OPTION+1~, OPTION+6*, OPTION+7, OPTION+8, OPTION+13*, OPTION+14, OPTION+15, OPTION+17*, OPTION+18, OPTION+19 , OPTION+21*, OPTION+22, OPTION+23, OPTION+28*, OPTION+29, OPTION+30 |
| OROOT | ACOPY+5~, ACOPY+8*, ACOPY+21 |
| OUT | ACOPY+5~, ACOPY+21*, ACOPY+22 |
| OUTPUT | ACOPY~, ACOPY+8 |
| P26 | NTOAN+11~ |
| P26( | NTOAN+13*, NTOAN+14*, NTOAN+17, NTOAN+19 |
| PATH | DIP+7~, DIP+12*, DIP+17, DIP+27, DIP+46 |
| PC | NTOAN+11~, NTOAN+16*, NTOAN+17, NTOAN+19 |
| POP | BORP+1~, GPRINT+1~, GPRINT+4 |
| PROOT | ACOPY+5~, ACOPY+9*, ACOPY+22, APRINT+3~, APRINT+6*, AWRITE+3~, AWRITE+6*, AWRITE+17 |
| PROT | PROTOCOL+1~, PROTOCOL+5*, PROTOCOL+6, PROTOCOL+7, PROTOCOL+9*, PROTOCOL+10, PROTOCOL+11, PROTOCOL+13*, PROTOCOL+14, PROTOCOL+15 |
| PWR | NTOAN+11~, NTOAN+12*, NTOAN+13, NTOAN+14*, NTOAN+15*, NTOAN+16 |
| >> PXRMDDOC | SSPAR+9 |
| PXRMINST | RENAME+2~, RENAME+5*, VEDIT+6 |
| PXRMROOT | DIP~, DIP+21 |
| REF | ACOPY~, ACOPY+6, ACOPY+9, ACOPY+11, ACOPY+13*, ACOPY+14, ACOPY+16, ACOPY+17, ACOPY+18, ACOPY+19 , ACOPY+22, ACOPY+23*, ACOPY+24, APRINT~, APRINT+4, APRINT+6, APRINT+8, APRINT+10*, APRINT+11, APRINT+13 , APRINT+14, APRINT+15, APRINT+16, APRINT+17, APRINT+18*, APRINT+19, AWRITE~, AWRITE+4, AWRITE+6, AWRITE+8 , AWRITE+10*, AWRITE+11, AWRITE+13, AWRITE+14, AWRITE+15, AWRITE+16, AWRITE+17, AWRITE+18*, AWRITE+19, GPRINT~ , GPRINT+9, GPRINT+23, GPRINTQ+2 |
| RESULT | OPTION+1~, OPTION+7*, OPTION+8, OPTION+14*, OPTION+15, OPTION+18*, OPTION+19, OPTION+22*, OPTION+23, OPTION+29* , OPTION+30, PROTOCOL+1~, PROTOCOL+6*, PROTOCOL+7, PROTOCOL+10*, PROTOCOL+11, PROTOCOL+14*, PROTOCOL+15 |
| ROOT | ACOPY+5~, ACOPY+12*, ACOPY+14, ACOPY+17, ACOPY+24, APRINT+3~, APRINT+9*, APRINT+11, APRINT+14, APRINT+19 , AWRITE+3~, AWRITE+9*, AWRITE+11, AWRITE+14, AWRITE+19, FNFR~, FNFR+1, RMEHIST+2~, RMEHIST+7*, RMEHIST+9 , SEHIST~, SEHIST+7, VEDIT~, VEDIT+3 |
| RS | STRREP~, STRREP+13 |
| SDIR | SFRES~, SFRES+6 |
| SEP | ATTVALUE~, ATTVALUE+4, ATTVALUE+7 |
| SFN | SEHIST+2~, SEHIST+5*, SEHIST+6, SEHIST+12, SEHIST+13, SEHIST+26 |
| START | ACOPY+5~, ACOPY+17*, ACOPY+19, APRINT+3~, APRINT+14*, APRINT+16, AWRITE+3~, AWRITE+14*, AWRITE+16 |
| STR | STRREP+7~, STRREP+12*, STRREP+13*, STRREP+14*, STRREP+15 |
| STRING | ATTVALUE~, ATTVALUE+4, ATTVALUE+7, STRREP~, STRREP+8, STRREP+10, STRREP+13, STRREP+14 |
| SUB | SFRES+2~, SFRES+11*, SFRES+12* |
| SUBFN | UPEHIST+1~, UPEHIST+3*, UPEHIST+4, UPEHIST+12, UPEHIST+13, UPEHIST+14 |
| SUCCESS | DIP+7~, DIP+27*, DIP+46* |
| TARGET | SEHIST+2~, UPEHIST+1~ |
| TARGET("SPECIFIER" | SEHIST+5, UPEHIST+3 |
| TEMP | ACOPY+5~, ACOPY+11*, ACOPY+12, APRINT+3~, APRINT+8*, APRINT+9, AWRITE+3~, AWRITE+8*, AWRITE+9 |
| TEXT | APRINT+3~, APRINT+20, AWRITE+3~, AWRITE+20, UPEHIST~ |
| TEXT( | APRINT+17*, AWRITE+17*, UPEHIST+8, UPEHIST+10 |
| TF | SFRES+2~, SFRES+8*, SFRES+9, SFRES+10 |
| TO | DIP+7~, DIP+8* |
| TS | STRREP~, STRREP+8, STRREP+10, STRREP+13, STRREP+14 |
| U | BORP+2, DIP+8, FNFR+1, SEHIST+19, SSPAR+1, SSPAR+10, VEDIT+4 |
| UNIQN | DIP+7~, DIP+15*, DIP+16 |
| VALID | VEDIT+2~, VEDIT+6*, VEDIT+7*, VEDIT+8*, VEDIT+9 |
| >> VALMBCK | GPRINT+26* |
| >> VALMDDF | GPRINT+20, GPRINT+26 |
| VALUE | ATTVALUE+3~, ATTVALUE+5*, ATTVALUE+6, ATTVALUE+8*, ATTVALUE+9 |
| VAR | DIP~, DIP+30, DIP+31*, DIP+32*, DIP+33*, DIP+37 |
| VAR( | DIP+41*, DIP+42 |
| VERSION | SETPVER~, SETPVER+2 |
| WPTMP | UPEHIST+1~ |
| WPTMP(1 | UPEHIST+10* |
| X | BORP+1~, SEHIST+2~ |
| Y | BORP+1~, BORP+8, SEHIST+2~, SEHIST+23 |
| ZTDESC | GPRINT+6~, GPRINT+13* |
| >> ZTREQ | GPRINTQ+4* |
| ZTRTN | GPRINT+6~, GPRINT+12* |
| ZTSAVE | GPRINT+6~ |
| ZTSAVE( | GPRINT+11* |
| ZTSAVE("IO" | GPRINT+7* |
| ZTSAVE("REF" | GPRINT+9*, GPRINT+11 |
| >> ZTSK | GPRINT+15 |