RAMAORPT ;HISC/GJC Report on the studies overridden to 'Complete' P160 ; Aug 25, 2020@09:22:36
Source file <RAMAORPT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;entry point
|
|
ENRPT | ;report tag, not callable
|
|
OUTPUT | ;output the data
|
|
LAST() | ;find the last collated ^TMP("RA P160",$J)
; to decide report formatting (new page?) ; Ex: ^TMP("RA P160",$J,2980731.1925,"HHUYLYIHM,CRLY C", ; "H0956","073198-7716")="" |
|
QEOS() | ;check if the EOS should be called. if Q=1 we're
; on the last record; (don't refresh/call header) |
|
PAUSE() | ;pause if send to screen
|
|
BEGIN() | ;Prompt the user for the study registration starting date
|
|
END(RAX) | ;Prompt the user for the ending date report verified (no greater than a
|
|
HDR | ;header for reports
|
|
EXQUE | ;if queued set ZTREQ
|
|
EXIT | ;kill task in task log, clean up symbol table.
|
|
DEVSCR(Y) | ;device screen (either spool or home)
; input: Y = IEN of DEVICE record (#3.5) numeric |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GETS^DIQ |
^%ZIS(1 - [#3.5] | GETS^DIQ |
^RARPT - [#74] | GETS^DIQ |
^RAO(75.1 - [#75.1] | GETS^DIQ |