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: RARTVER2

Package: Radiology Nuclear Medicine

Routine: RARTVER2


Information

RARTVER2 ;HISC/FPT-On-line Verify Radiology Reports (cont.) ;11/19/97 13:47

Source Information

Source file <RARTVER2.m>

Entry Points

Name Comments DBIA/ICR reference
ADDLRPT ; add'l reports to be verified
SETTMP ;
CU ; clean-up variables
SAVE ; Save key variables. User can first print a report to a slave printer
; in which case the key variables are killed by the printing program.
; These variables are needed if the user then decides to CONTINUE
; editing the STATUS.
RESTORE ; Restore the variables that were saved above.
RETURN ; On-line verifier deletes resident pre-verification values. Report
; will reappear in the resident's list of choices for the resident
; pre-verification option
DISRPT ; Display the report
PRTRPT
RASET ; raset^rautl2 returns radfn,radti,racni's "P"-node
LOCK ; Display the warning message when a user is trying to edit a
; locked report
EDTCHK ; is user permitted to edit?
ERR(RA) ; Display inactive physician message.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!?5,RATOT_" additional exam"_$S(RATOT>1:"s are",1:" is")_" now ready for verification.",!!
  • Line Location: ADDLRPT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: RETURN+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Another user is editing this report",$S($G(RACN)]"":" (Case # "_RACN_")",1:""),". Please try again later."
  • Line Location: LOCK+3
Function Call: WRITE
  • Prompt: $C(7),!!,"The STATUS for this case is CANCELLED. You may not enter a report.",!!
  • Line Location: EDTCHK+6
Function Call: WRITE
  • Prompt: !!?3,"'"_$P($G(^VA(200,RA,0)),"^")_"' has an inactive provider "
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: "date of "_$$FMTE^XLFDT($P($G(^VA(200,RA,"PS")),"^",4))_".",$C(7)
  • Line Location: ERR+2

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