©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
ORY44B ; SLC/PKS-KR Remove Terminated Users (get DD info) ; [11/8/99 1:45pm]
Source file <ORY44B.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETDD | ; Get file roots from DD
; ; FILE Current File # ; FIELD Current Field # ; DIC Current Global Root ; LOC Current Global Subscript Location (#;#) ; ARY( Temporay Storage Array (contains DD) ; ORA( Output Array ; |
|
| INFO(FILE,FIELD,ORA) | ;
; ; DIC Global Root for <FILE> ; LOC Global Subscript Location (#;#) for <FIELD> ; ; INFO(<file #>,<field #>,.ARRAY) ; ; Returns ; ; ARRAY("DIC",0)=Global Root ; ARRAY("DIC",1)=File Root ; ARRAY("DIC",2)=Subfile Root ; ARRAY("DIC",..)=Subfile Root ; ARRAY("FILE")=Target File/Subfile Number ; ARRAY("FIELD")=Target Field ; ARRAY("NAME")=Target Field Name ; ARRAY("LOC")=Subscript and Piece ; |
|
| TERM(X) | ; Terminated
; ; Returns: Status^Explanation - ; ; 2 = Terminated ; 1 = Future Termination ; 0 = Not Terminated ; -1 = Error^Error Text ; ; USR New Person ; NAM New Person Name ; NOW Today's Date ; % Fileman Date and Time ; %I( Fileman Date Array ; %H $H Date and Time ; X Today ; ORLPERR Error Array ; ORLPUSR New Person Holder |
|
| NEXTDD | ; Next DD Level (for subfiles)
; ; OLDFILE Previous File # ; OLDFIELD Previous Field # ; OLDDIC Previous Global Root ; OLDLOC Previous Global Subscript Location (#;#) ; FILE Current File # ; FIELD Current Field # ; DIC Current Global Root ; SNS Subfile Number and Subfile Specifier ; LOC Current Global Subscript Location (#;#) ; ARY( Temporay Storage Array (contains DD) ; ORA( Output Array ; SUB( Subscript Array ; SFS( Subfile Specifier Array ; SUBI Subscript Counter ; SS Subscript ; DA Internal Entry Number Array ; CT1 Miscellaneous Counter #1 ; CT2 Miscellaneous Counter #2 ; |
|
| CURRDD | ; Current DD
; ; FILE Current File # ; DIC Current Global Root ; SFS Subfile Specifier Array ; ARY( Temporary Storage Array (contains DD) ; |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | INFO+19, GETDD+9, GETDD+10, NEXTDD+24, NEXTDD+26 |
| ^VA(200 - [#200] | TERM+20, TERM+21, TERM+22 |
| Name | Line Occurrences |
|---|---|
| CURRDD | GETDD+13 |
| GETDD | INFO+21, NEXTDD+31 |
| NEXTDD | GETDD+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | TERM+19~ |
| %H | TERM+19~ |
| %I | TERM+19~ |
| ARY | GETDD+9~, NEXTDD+24~ |
| ARY( | GETDD+9*, GETDD+10*, GETDD+11, GETDD+12, GETDD+13, NEXTDD+23, NEXTDD+24*, NEXTDD+25, NEXTDD+26*, NEXTDD+27 , NEXTDD+29 |
| CT1 | NEXTDD+21~, NEXTDD+34* |
| CT2 | NEXTDD+21~, NEXTDD+35*, NEXTDD+36 |
| DA | NEXTDD+34~* |
| DIC | INFO+18~*, INFO+22, CURRDD+7*, NEXTDD+22~, NEXTDD+29*, NEXTDD+32, NEXTDD+33, NEXTDD+34*, NEXTDD+36* |
| DIC2 | NEXTDD+21~ |
| FIELD | INFO~, INFO+18*, INFO+19, INFO+20, GETDD+9, GETDD+11, GETDD+12, NEXTDD+22~, NEXTDD+25*, NEXTDD+26 , NEXTDD+27, NEXTDD+29 |
| FIELD2 | NEXTDD+21~, NEXTDD+22*, NEXTDD+24 |
| FILE | INFO~, INFO+18*, INFO+19, INFO+20, GETDD+9, GETDD+10, GETDD+11, GETDD+12, GETDD+13, CURRDD+7 , CURRDD+8, NEXTDD+22~, NEXTDD+23*, NEXTDD+24, NEXTDD+25, NEXTDD+26, NEXTDD+27, NEXTDD+29 |
| FILE2 | NEXTDD+21~, NEXTDD+22*, NEXTDD+23, NEXTDD+25 |
| LOC | INFO+18~*, INFO+24, GETDD+12*, NEXTDD+22, NEXTDD+32* |
| LOC2 | NEXTDD+21~, NEXTDD+22*, NEXTDD+32 |
| NAM | TERM+19~, TERM+22*, TERM+26, TERM+27, TERM+28, TERM+29 |
| NOW | TERM+19~, TERM+23*, TERM+28, TERM+29 |
| ORA | INFO~ |
| ORA("DIC" | INFO+22*, INFO+23*, NEXTDD+33*, NEXTDD+36* |
| ORA("FIELD" | INFO+20* |
| ORA("FILE" | INFO+20* |
| ORA("LOC" | INFO+24* |
| ORA("NAME" | GETDD+11* |
| ORLPERR | TERM+19~, TERM+25 |
| ORLPUSR | TERM+19~, TERM+24*, TERM+25 |
| SFS | INFO+18~, INFO+23, CURRDD+8* |
| SFS( | NEXTDD+30*, NEXTDD+36 |
| SNS | INFO+18~, NEXTDD+27*, NEXTDD+30 |
| SS | NEXTDD+34~, NEXTDD+36* |
| SUB | INFO+18~ |
| SUB( | NEXTDD+29*, NEXTDD+36 |
| SUB(" " | NEXTDD+28 |
| SUBI | INFO+18~, NEXTDD+28*, NEXTDD+29, NEXTDD+30, NEXTDD+34, NEXTDD+35 |
| USR | TERM+19~*, TERM+20, TERM+21, TERM+22, TERM+24 |
| USRITD | TERM+19~, TERM+25*, TERM+26, TERM+27, TERM+28, TERM+29 |
| X | TERM~, TERM+19, TERM+23 |