Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Radiology Nuclear Medicine 6 $$STUB^RAEDCN1  DISP^RART1  Q^RARTR  GETRPT^RARTVER  (RESTORE,SAVE)^RARTVER2  RASET^RAUTL2  
VA FileMan 2 ^DIE  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Radiology Nuclear Medicine 6 RART  RARTRPV  RARTRPV1  RARTVER  RARTVER1  RARTVER2  

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.

External References

Name Field # of Occurrence
^DIE RETURN+15
^DIR ADDLRPT+13, RETURN+11, LOCK+3
$$STUB^RAEDCN1 ADDLRPT+6
DISP^RART1 DISRPT+1
Q^RARTR PRTRPT+3
GETRPT^RARTVER LOCK+3
RESTORE^RARTVER2 PRTRPT+4
SAVE^RARTVER2 PRTRPT+1
RASET^RAUTL2 SETTMP+1, RASET+1
$$FMTE^XLFDT ERR+2

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
Routine Call
  • DIE
  • Line Location:
    • RETURN+15
Routine Call
  • DIR
  • Line Location:
    • ADDLRPT+13
    • RETURN+11
    • LOCK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RARPT - [#74] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] RASET+1
^RA(72 - [#72] EDTCHK+2
^RADPT - [#70] EDTCHK+1
^RAMIS(71 - [#71] RASET+1
^RARPT - [#74] ADDLRPT+3, ADDLRPT+5, LOCK+2
^TMP($J ADDLRPT+4, SETTMP+2*, CU+2!
^VA(200 - [#200] ERR+1, ERR+2
^XUSEC("RA MGR" EDTCHK+4

Label References

Name Line Occurrences
RASET DISRPT+1
SETTMP ADDLRPT+8, ADDLRPT+9, ADDLRPT+10, ADDLRPT+11, ADDLRPT+12

Naked Globals

Name Field # of Occurrence
^(0 ADDLRPT+3, RASET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CU+1!
%DT CU+1!
%W CU+1!
%Y1 CU+1!
D CU+3!
D0 CU+3!
D1 CU+3!
DA CU+1!, RETURN+13~, RETURN+14*
DDER CU+3!
DGO CU+1!
DI CU+1!
DIC CU+1!
DIE RETURN+13~, RETURN+14*
DIR ADDLRPT+13!, RETURN+3~, LOCK+3!
DIR("?" RETURN+5*, RETURN+6*, RETURN+7*, RETURN+8*, RETURN+9*
DIR("A" ADDLRPT+13*, RETURN+4*
DIR(0 ADDLRPT+13*, RETURN+10*, LOCK+3*
DIROUT ADDLRPT+13!, RETURN+3~, LOCK+3!
DIRUT ADDLRPT+13!, RETURN+3~, RETURN+12, LOCK+3!
DISYS CU+3!
DIWF CU+1!
DIWR CU+1!
DLAYGO CU+3!
DR RETURN+13~, RETURN+14*
DTOUT ADDLRPT+13!, RETURN+3~, LOCK+3!
DUOUT ADDLRPT+13!, RETURN+3~, LOCK+3!
DUZ EDTCHK+4
I CU+1!
ION PRTRPT+2*
>> IOP PRTRPT+2*
OREND CU+1!
POP CU+1!
RA CU+1!, ERR~, ERR+1, ERR+2
RACHOICE ADDLRPT+2, ADDLRPT+8, ADDLRPT+9, ADDLRPT+10, ADDLRPT+11, ADDLRPT+12, CU+1!
RACI CU+3!
RACN CU+1!, LOCK+2*, LOCK+3!
RACNI CU+1!, EDTCHK+1
RACS CU+1!
RACT CU+1!
RAD ADDLRPT+3, CU+1!
RADATE CU+1!
RADFN CU+1!, RASET+1, EDTCHK+1
RADIV CU+1!
RADTE CU+1!
RADTI CU+1!, EDTCHK+1
RADUP CU+1!
RADUZ CU+1!
RAERR CU+1!
RAFLG CU+1!
RAI SAVE+4~, SAVE+5*, RESTORE+1~, RESTORE+2*, RESTORE+3*
RAIMGTYI CU+1!
RAIMGTYJ CU+1!
RAJ1 CU+1!
>> RAMDV EDTCHK+5
>> RAMES PRTRPT+3*
>> RAMLC PRTRPT+2
RANM CU+2!
RANME CU+2!, RASET+1*
RANUM CU+2!
RAONLINE CU+2!
RAOR CU+2!
RAOUT CU+2!
RAPGM CU+2!
RAPRC CU+2!, RASET+1*
RAPRIT CU+2!
RARAD CU+2!
RARADHLD ADDLRPT+3, CU+2!
RARDX CU+2!, EDTCHK+7*
RARESFLG CU+2!
RARLTV CU+2!
RARLTVFL ADDLRPT+14*, CU+2!
RARPDT CU+2!
RARPT ADDLRPT+1*, ADDLRPT+3*, ADDLRPT+4, ADDLRPT+5, ADDLRPT+6, SETTMP+1, SETTMP+2, CU+2!, RETURN+14, RASET+1
LOCK+2
RARPTX CU+2!
RARTDT ADDLRPT+3*, ADDLRPT+4, SETTMP+2, CU+2!
RARTVER CU+2!, DISRPT+1*!
RARTVERF CU+2!
RASAVE RESTORE+4!
RASAVE( SAVE+5*, RESTORE+3
RASET CU+2!
RASIG CU+2!
RASN CU+2!
RASTAFF CU+2!
RASTATUS EDTCHK+1*, EDTCHK+2!, EDTCHK+3!
RASTI CU+2!
RATOT ADDLRPT+1*, ADDLRPT+13*, ADDLRPT+14, SETTMP+2*, CU+2!
RAVER CU+2!
RAVNB CU+2!
RAXX CU+2!
RPTX CU+2!
U ADDLRPT+8, ADDLRPT+9, ADDLRPT+10, ADDLRPT+11
X ADDLRPT+5*, ADDLRPT+7, ADDLRPT+8, ADDLRPT+9, ADDLRPT+10, ADDLRPT+11, CU+2!
X1 CU+3!
Y SETTMP+1*, CU+2!, RETURN+12, DISRPT+1, RASET+1*
Y(0 RASET+1*
ZTSK CU+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All