©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
%ZTFS1 ; cmi/flag/maw - Ed de Moel 11:53 ; [ 05/22/2002 2:54 PM ]
Source file <INHZTFS1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| END | ||
| ERR | ||
| GETPOS(FILE) | ;
; SET WHERE=$$GETPOS^%ZTFS1(FILE) ; Makes the named file the current device and returns the ; current file position as the function value. |
|
| OPENRAN(FILE,ACC,WHERE) | ;
; SET DEVICE=$$OPENRAN^%ZTFS1(FILE,ACCESS,WHERE) ; Opens the sequential file identified by FILE and ; returns the identifier to be used for the file as ; the function value. ; Default file access is 'read from beginning'. |
|
| READSEQ(FILE) | ;
; SET LINE=$$READSEQ(FILE) ; reads a line from the specified sequential file and ; returns the text of this line as the function value. ; The device identifier is preferably obtained through ; SET FILE=$$OPENSEQ(...) in this module. ; *** As a side effect, local variable EOF is ********** ; *** set to 0 when a line could be successfully ********** ; *** read, or to 1 when end of file is reached. ********** |
|
| PARSE(FILE,EXIST,SHOWMSG) | ; Parse a file spec.
|
|
| POSSEQ(FILE,WHERE) | ;
; DO POSSEQ(FILE,WHERE) ; Changes the file position of the named file to the spefified ; location. |
|
| OPENSEQ(FILE,ACC,XFILEDEF) | ;
; SET DEVICE=$$OPENSEQ^%ZTFS1(FILE,ACCESS) ; Opens the sequential file identified by FILE and ; returns the identifier to be used for the file as ; the function value. ; Default file access is 'read from beginning'. |
|
| CLOSESEQ(FILE,DISPOSE) | ;
; SET STATUS=$$CLOSESEQ^%ZTFS1(FILE[,DISPOSE]) ; Closes the sequential file identified by FILE and ; optionally performs a special close-disposition. ; The device identifier is preferably obtained through ; SET FILE=$$OPENSEQ(...) in this module. ; Possible close-dispositions are: ; "DELETE" ; "PRINT/QUEUE=queuename" ; "SUBMIT/QUEUE=queuename" |
| Name | Field # of Occurrence |
|---|---|
| $$UPCASE^%ZTF | OPENSEQ+22, OPENRAN+16 |
| Name | Line Occurrences |
|---|---|
| $$PARSE | OPENSEQ+30, OPENSEQ+32, OPENRAN+20, OPENRAN+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACC | OPENSEQ~, OPENSEQ+22*, OPENSEQ+23, OPENSEQ+24, OPENRAN~, OPENRAN+16*, OPENRAN+17, OPENRAN+18 |
| >> DELETE | CLOSESEQ+11 |
| DISPOSE | CLOSESEQ~, CLOSESEQ+11 |
| >> EOF | READSEQ+11*, END+1* |
| EXIST | PARSE~, PARSE+23 |
| FILE | OPENSEQ~, OPENSEQ+30, OPENSEQ+32, OPENSEQ+34, OPENSEQ+35, OPENSEQ+36, OPENSEQ+37, OPENSEQ+38, OPENSEQ+39, OPENRAN~ , OPENRAN+20, OPENRAN+21, OPENRAN+22, OPENRAN+23, OPENRAN+24, READSEQ~, READSEQ+11, CLOSESEQ~, CLOSESEQ+11, CLOSESEQ+12 , GETPOS~, GETPOS+5, POSSEQ~, POSSEQ+5, PARSE~, PARSE+24, PARSE+37, PARSE+39, PARSE+40 |
| SHOWMSG | PARSE~, PARSE+24 |
| WHERE | OPENRAN~, POSSEQ~ |
| X | READSEQ+10~, READSEQ+11* |
| XAP | OPENSEQ+21~, OPENSEQ+23*, OPENSEQ+26, OPENSEQ+27, OPENSEQ+37 |
| XBG | OPENSEQ+21~, OPENSEQ+23*, OPENSEQ+26, OPENSEQ+34, OPENSEQ+35, OPENSEQ+36 |
| XDEV | PARSE+22~, PARSE+30 |
| XDIR | PARSE+22~ |
| XEXIST | PARSE+22~, PARSE+23*, PARSE+38 |
| XF | PARSE+22~, PARSE+24* |
| XFILEDEF | OPENSEQ~ |
| XLDEV | PARSE+22~ |
| XMSG | PARSE+22~, PARSE+24, PARSE+25*, PARSE+30*, PARSE+34*, PARSE+36, PARSE+37*, PARSE+40*, PARSE+41 |
| XNAME | PARSE+22~, PARSE+36 |
| XRD | OPENSEQ+21~, OPENSEQ+23*, OPENSEQ+25, OPENSEQ+27, OPENSEQ+30, OPENSEQ+34, OPENRAN+15~, OPENRAN+17*, OPENRAN+19, OPENRAN+20 , OPENRAN+22 |
| XSHOW | PARSE+22~, PARSE+24*, PARSE+25, PARSE+30, PARSE+34, PARSE+37, PARSE+40 |
| XT | OPENSEQ+21~, OPENRAN+15~ |
| XTR | OPENSEQ+21~, OPENRAN+15~ |
| XTRN | PARSE+22~ |
| XWR | OPENSEQ+21~, OPENSEQ+23*, OPENSEQ+25, OPENSEQ+32, OPENSEQ+35, OPENSEQ+38, OPENRAN+15~, OPENRAN+17*, OPENRAN+19, OPENRAN+21 , OPENRAN+23 |