SDAMU ;ALB/MJK - AM Utilities ; 12/1/91
Source file <SDAMU.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | EN^XQOR |
List Manager | 1 | PAUSE^VALM1 |
Scheduling | 1 | $$STATUS^SDAM1 |
VA FileMan | 1 | NOW^%DTC |
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 |
---|---|---|
SWITCH() | ; -- date of ci switch over
|
|
NOW() | ; -- return current date and time (NOW)
|
|
BARC(TTYPE,ON,OFF) | ; -- barcode on/off
|
|
CURRENT | ; -- computed field (2.98,100)
|
|
CLINIC(SDCL) | ; -- generic screen for hos. loc. entries
; input: SDCL := ifn of HOSPITAL LOCATION file ; returned := [ 0 | do not use entry ; 1 | use entry ] |
|
DIV(SDCL,VAUTD,SDNAME,SDLEN) | ; -- find division for clinic
; input: SDCL := clinic ifn ; VAUTD := array defined by VAUTOMA ; SDLEN := length of name to pass back [optional] ; output: SDNAME := name of division ; return: := division ifn |
|
RT(SDRTOPT) | ; -- rt call for newing and return to LM
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZIS(2 - [#3.2] | BARC+1 |
^DG(40.8 - [#40.8] | DIV+9, DIV+10 |
^DG(43 - [#43] | DIV+9 |
^DIC(19 - [#19] | RT+2 |
^DIC(195.4 - [#195.4] | RT+3 |
^DPT - [#2] | CURRENT+1 |
^SC - [#44] | CLINIC+5, DIV+9 |
Name | Field # of Occurrence |
---|---|
^("BAR0" | BARC+1 |
^("BAR1" | BARC+1 |
^("OOS" | CLINIC+5 |
^(0 | CURRENT+1, DIV+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | NOW+2 |
>> D0 | CURRENT+1 |
>> D1 | CURRENT+1 |
DFN | RT+1~ |
OFF | BARC~, BARC+1*, BARC+2 |
ON | BARC~, BARC+1*, BARC+2 |
R | RT+1~ |
RTDIV | RT+1~ |
RTE | RT+1~ |
RTJR | RT+1~ |
RTPGM | RT+1~ |
RTY | RT+1~ |
SDCL | CLINIC~, CLINIC+5, DIV~, DIV+9 |
SDLEN | DIV~, DIV+8~*, DIV+10 |
SDNAME | DIV~, DIV+10* |
SDRTOPT | RT~, RT+2 |
TTYPE | BARC~, BARC+1 |
U | DIV+9, DIV+10, RT+6 |
VAUTD | DIV~, DIV+11 |
VAUTD( | DIV+11 |
X | CURRENT+1*, CLINIC+5~*, CLINIC+6, DIV+7~, DIV+9*, DIV+10, DIV+11, RT+1~, RT+2*, RT+3 , RT+4* |
X("OOS" | CLINIC+5*, CLINIC+6 |
>> XQORNOD(0 | RT+6 |
Y | RT+1~ |