DGGECSA ;ALB/RMO - Auto Generate Code Sheets for MAS AMIS(s) ; 13 AUG 90 8:52 am
Source file <DGGECSA.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | ^%ZTLOAD |
Registration | 1 | (BLD,GEN,START)^DGGECS |
VA FileMan | 1 | YN^DICN |
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 |
---|---|---|
ASK | ;Prompt user to generate AMIS code sheets
; Input -- None Required ; Output -- %=1 user entered 'YES' ; %=2 user entered 'NO' ; %<0 user timeout or entered an '^' |
|
Q | ||
QUE | ;Queue generation of AMIS code sheet to default MAS code sheet printer
; Input -- DGSEG Segment Number ie, 334 ; DGDIV Medical Ctr Div File (#40.8) IFN ie, 1 ; DGMYR Month/Year in internal date format ie, 2900200 ; Output -- Task is Queued to Generate a Code Sheet |
|
START | ;Auto generation of AMIS code sheet
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | START+2 |
^DG(43 - [#43] | ASK+5, QUE+7 |
^DIC(4 - [#4] | START+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | ASK+5*, ASK+6*, ASK+7 |
DGAMS | START+6! |
DGAMS( | START+4* |
DGCODPRT | ASK+5*, ASK+7, Q! |
>> DGDIV | QUE+5, START+1, START+2 |
>> DGMYR | QUE+5, START+1 |
>> DGSEG | QUE+5 |
DGSTA | START+2*, START+6! |
DGSTR | START+2*, START+6! |
DGTTF | START+1, START+3, START+4, START+5, START+6! |
I | START+4*, START+6! |
IO | START+1 |
SDABORT | START+2*, START+3, START+6! |
ZTDESC | QUE+6*, QUE+8! |
ZTDTH | QUE+5*, QUE+8! |
ZTIO | QUE+7*, QUE+8! |
ZTRTN | QUE+5*, QUE+8! |
ZTSAVE | QUE+8! |
ZTSAVE("DGDIV" | QUE+5* |
ZTSAVE("DGMYR" | QUE+5* |
ZTSAVE("DGTTF" | QUE+5* |
ZTSK | QUE+8! |