RAUTL7A ;HISC/CAH,FPT-Utility for RACCESS array ;9/10/01 15:13
Source file <RAUTL7A.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
LOCIMG1() | ;Determines if user has access to more than one loc of
|
|
ERROR | ; Display error message
|
|
IMGNUM() | ; Detrmines the number of selectable imaging types based on
; division parameters. Called fron SELIMG^RAUTL7 |
|
SETUP | ; Setup temp global to screen i-type by division
; Requires ^TMP($J,"RA D-TYPE",Division name), RACCESS "DIV-IMG" ; elements. Creates ^TMP($J,"DIV-IMG",Imaging Type IEN)="" ; Called fron SELIMG^RAUTL7 |
|
LOCNUM() | ;Detrmines the number of selectable imaging locations based on
; division parameters. Called fron SELLOC^RAUTL7 |
|
SETUPL | ; Setup temp global to screen img-loc, where
; img-loc must be within previously selected img-typ(s) ; Requires RACCESS(duz,"LOC") and ^TMP($J,"RA ITYPE") ; Creates ^TMP($J,"DIV-ITYP-ILOC",Img Loc ien) ; and eg. RACCESS(duz,"DIV-ITYP-ILOC","cgo(ws)","gen rad","x-ray") ; Called from SELLOC^RAUTL7 |
|
SETUPL1 | ||
VERIFY | ; verify old reports
; back door function to "administratively verify" old reports ; that were never verified |
|
DEVICE | ;
|
|
START | ;
|
|
KILL | ;
|
|
HEADER | ;
|
|
DISPLAY | ; back door function to display all reports not verified in file 74
; prints [captioned] dump of entire record |
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 |
---|---|
^RARPT - [#74] | Classic Fileman Calls |