SDECFUNC ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
Source file <SDECFUNC.m>
| 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 |
|---|---|---|
| FNDPATRN(STR,PAT) | ;PEP - Find pattern in string. Return beginning position.
|
|
| GETPATRN(STR,PAT) | ;PEP - Retrieve pattern from string.
|
|
| INTSET(FILE,FIELD,EXTVAL) | ;PEP - Get Intnl Field Value Given Extnl Field Value
; For a set of codes type field |
|
| EXTSET(FILE,FIELD,INTVAL) | ;PEP - Get Extnl Field Value Given Intnl Field Value
; For a set of codes type field |
|
| DECFRAC(X) | ;PEP - Convert Decimal to Fraction (X contains Decimal number).
|
|
| C(X,Y) | ;PEP - Center X in field length Y/IOM/80.
|
|
| GDT(JDT) | ;PEP - Return Gregorian Date, given Julian Date.
|
|
| JDT(XBDT) | ;PEP - Return Julian Date, given FM date.
|
|
| USR() | ;PEP - Return name of current user for ^VA(200.
|
|
| LOC() | ;PEP - Return location name from file 4 based on DUZ(2).
|
|
| CV(X) | ;PEP - Given a Namespace, return current version.
|
|
| FNAME(N) | ;PEP - Given File number, return File Name.
|
|
| FGLOB(N) | ;PEP - Given File number, return File Global.
|
|
| ZEROTH(A,B,C,D,E,F,G,H,I,J,K) | ;PEP - Return dd 0th node. A is file #, rest fields.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | INTSET+7, INTSET+9, INTSET+11, EXTSET+7, EXTSET+8, EXTSET+10, FNAME+2, ZEROTH+3, ZEROTH+5, ZEROTH+6 |
| ^DIC - [#1] | FGLOB+2 |
| ^DIC(4 - [#4] | LOC+1 |
| ^DIC(9.4 - [#9.4] | CV+3, CV+5 |
| ^VA(200 - [#200] | USR+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | USR+1, LOC+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | INTSET+10~, INTSET+11*, EXTSET+9~, EXTSET+10*, ZEROTH+3* |
| %A | INTSET+10~, INTSET+11*, INTSET+12, EXTSET+9~, EXTSET+10*, EXTSET+11 |
| %B | INTSET+10~, INTSET+11*, INTSET+12 |
| A | ZEROTH~, ZEROTH+1, ZEROTH+3*, ZEROTH+4, ZEROTH+5, ZEROTH+6 |
| B | ZEROTH~, ZEROTH+2, ZEROTH+3*, ZEROTH+4, ZEROTH+5, ZEROTH+6 |
| C | ZEROTH~ |
| D | DECFRAC+6~, DECFRAC+9*, DECFRAC+10*, DECFRAC+11*, DECFRAC+12, ZEROTH~ |
| DT | GDT+2*, GDT+3, JDT+3*, JDT+4 |
| DUZ | USR+1 |
| DUZ(2 | LOC+1 |
| E | ZEROTH~ |
| EXTVAL | INTSET~, INTSET+6, INTSET+8*, INTSET+9, INTSET+11 |
| F | ZEROTH~ |
| FIELD | INTSET~, INTSET+5, INTSET+7, INTSET+9, INTSET+11, EXTSET~, EXTSET+5, EXTSET+7, EXTSET+8, EXTSET+10 |
| FILE | INTSET~, INTSET+5, INTSET+7, INTSET+9, INTSET+11, EXTSET~, EXTSET+5, EXTSET+7, EXTSET+8, EXTSET+10 |
| G | ZEROTH~ |
| H | ZEROTH~ |
| I | FNDPATRN+6~, FNDPATRN+8*, GETPATRN+5~, GETPATRN+6*, GETPATRN+7, GETPATRN+8, GETPATRN+9*, ZEROTH~ |
| INTVAL | EXTSET~, EXTSET+6, EXTSET+8, EXTSET+10 |
| IOM | C+1 |
| J | FNDPATRN+6~, FNDPATRN+7*, FNDPATRN+8*, FNDPATRN+9, ZEROTH~ |
| JDT | GDT~, GDT+1, GDT+3 |
| K | ZEROTH~ |
| N | DECFRAC+6~, DECFRAC+7*, DECFRAC+8, DECFRAC+10*, DECFRAC+11*, DECFRAC+12, FNAME~, FNAME+1, FNAME+2*, FNAME+3 , FNAME+4, FGLOB~, FGLOB+1, FGLOB+2 |
| PAT | FNDPATRN~, FNDPATRN+4, FNDPATRN+5, FNDPATRN+8, GETPATRN~, GETPATRN+4, GETPATRN+6, GETPATRN+9 |
| S | GETPATRN+5~, GETPATRN+8*, GETPATRN+9*, GETPATRN+10 |
| STR | FNDPATRN~, FNDPATRN+4, FNDPATRN+5, FNDPATRN+8, GETPATRN~, GETPATRN+4, GETPATRN+6, GETPATRN+8 |
| U | USR+1, LOC+1, ZEROTH+3, ZEROTH+6 |
| X | DECFRAC~, DECFRAC+4, DECFRAC+5, DECFRAC+7, DECFRAC+9, C~, C+1, CV~, CV+1, CV+2 , CV+3*, CV+4, CV+5 |
| XBDT | JDT~, JDT+1, JDT+2, JDT+4 |
| Y | C~, C+1 |
