Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RAUTL7A

Package: Radiology Nuclear Medicine

Routine: RAUTL7A


Information

RAUTL7A ;HISC/CAH,FPT-Utility for RACCESS array ;9/10/01 15:13

Source Information

Source file <RAUTL7A.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"You do not have access to any Imaging Locations."
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !?5,"Contact your ADPAC for further assistance.",$C(7)
  • Line Location: ERROR+2
Function Call: WRITE
  • Prompt: !,"This subroutine prompts you for a date and places all unverified reports"
  • Line Location: VERIFY+3
Function Call: WRITE
  • Prompt: !,"through that date into a status of Verified.",!
  • Line Location: VERIFY+4
Function Call: WRITE
  • Prompt: !!,"NO UNVERFIED REPORTS CROSS REFERENCE"
  • Line Location: VERIFY+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !!,"Total: ",RACOUNT
  • Line Location: START+29
Function Call: WRITE
  • Prompt: "Verify Reports Prior to "_$E(RAENDATE,4,5)_"/"_$E(RAENDATE,6,7)_"/"_$E(RAENDATE,2,3)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"Run Date/Time: ",RATIME,?70,"Page: ",RAPAGE
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !!,"This subroutine loops through the unverified reports cross-reference of"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,"File 74 and displays the report entry including computed field values.",!!
  • Line Location: DISPLAY+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RARPT - [#74] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call