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 |