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

Package: Radiology Nuclear Medicine

Routine: RABTCH1


Information

RABTCH1 ;HISC/CAH,FPT AISC/MJK,RMO-Batch Report Menu ;9/28/94 10:49

Source Information

Source file <RABTCH1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Radiology Nuclear Medicine 7 ($$SSANVAL,$$USESSAN)^RAHLRU1  SET^RAPSET1  31^RART  ^RASIGU  D^RAUTL  UPSTATM^RAUTL0  RASET^RAUTL2  
VA FileMan 2 ^DIC  ^DIK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RA BTCHVERIFY  

Entry Points

Name Comments DBIA/ICR reference
Q1
NXT
ASKVER
VERIFY ;Verify Batch
CHK
Q
ASKBAT

External References

Name Field # of Occurrence
^DIC VERIFY+2
^DIK ASKBAT+1
$$SSANVAL^RAHLRU1 CHK
$$USESSAN^RAHLRU1 CHK+2, CHK+3, CHK+4, CHK+5
SET^RAPSET1 VERIFY+1
31^RART CHK+3, CHK+5
^RASIGU ASKVER+2
D^RAUTL VERIFY+3, VERIFY+4
UPSTATM^RAUTL0 Q1
RASET^RAUTL2 ASKVER+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: !!,"Batch: ",$P(Y(0),"^"),?30,"Date Created: "
  • Line Location: VERIFY+3
Function Call: WRITE
  • Prompt: Y,?65,$S($D(^VA(200,+$P(Y(0),"^",3),0)):$E($P(^(0),"^"),1,14),1:"")
  • Line Location: VERIFY+3
Function Call: WRITE
  • Prompt: !?30,"Last Printed: ",Y
  • Line Location: VERIFY+4
Function Call: READ
  • Prompt: "Is this the batch you want to verify? No// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKVER+0
Function Call: WRITE
  • Prompt: !!,?3,"Enter 'YES' to verify this batch, or 'NO' not to."
  • Line Location: ASKVER+0
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: ASKVER+6
Function Call: READ
  • Prompt: "Can this batch now be deleted? No// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKBAT+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to delete this batch, or 'NO' not to."
  • Line Location: ASKBAT+0
Function Call: WRITE
  • Prompt: !?3,"...deletion complete."
  • Line Location: ASKBAT+1
Function Call: WRITE
  • Prompt: !?3,"...report for case no. ",RACNDSP," is already verified"
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !,"Report for case no. ",RACNDSP," for ",$S($D(^DPT(RADFN,0)):$P(^(0),"^"),1:"UNKNOWN")
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !?3,"...report for case no. ",RACN," is already verified"
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !,"Report for case no. ",RACN," for ",$S($D(^DPT(RADFN,0)):$P(^(0),"^"),1:"UNKNOWN")
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: NXT+1
Routine Call
  • DIC
  • Line Location:
    • VERIFY+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RABTCH(74.2 - [#74.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CHK+3, CHK+5
^RABTCH(74.2 - [#74.2] ASKVER+6
^RARPT - [#74] CHK+2, CHK+4
^TMP($J Q1, Q!, NXT+1*
^VA(200 - [#200] VERIFY+3, ASKVER+3

Label References

Name Line Occurrences
ASKBAT ASKBAT
ASKVER ASKVER
CHK ASKVER+6
Q VERIFY+2, ASKVER, ASKVER+2
Q1 ASKVER+7, ASKBAT

Naked Globals

Name Field # of Occurrence
^( ASKVER+6
^(0 VERIFY+3, ASKVER+6, CHK+3, CHK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASKVER+2, Q!
%W Q+1!
%X Q!, Q+1!
%Y1 Q+1!
C Q+1!
D Q!
D0 Q!
D1 Q!
DA ASKBAT+1*, Q!
DDH Q+2!
DIC VERIFY+2*!, Q!
DIC("A" VERIFY+2*
DIC("S" VERIFY+2*
DIC(0 VERIFY+2*
DIE Q!
DIK ASKBAT+1*, Q!
DISYS Q+2!
DR Q!
DTIME ASKVER, ASKBAT
LINE VERIFY+2*, ASKVER+6, Q!, CHK+2, CHK+4, NXT+1
POP Q+2!
RA Q!
RA0 Q!
RAAB NXT!, NXT+1, NXT+2!
RABTCH VERIFY+2*, ASKVER+6, ASKBAT+1, Q!
RACN Q!, CHK+1, CHK+4, CHK+5
RACNDSP CHK~, CHK+1*, CHK+2, CHK+3
RACNI Q!, CHK
RACT ASKVER+6, ASKVER+7, Q!, CHK+2*, CHK+4*, NXT, NXT+1
RADATE Q!
RADFN Q!, CHK, CHK+3, CHK+5
RADTE Q!, NXT+1
RADTI Q!, CHK
RAI ASKVER+6*, Q!
RAONLINE ASKVER+4*, Q+3!
RAOR Q!
RAPGM VERIFY+2*, Q!
RARPT ASKVER+6*, Q!, CHK+2, CHK+4, NXT+1
RASIG Q+3!
RASIG("PER" ASKVER+3
RASN Q!
RASSAN CHK~*, CHK+1
RASTI Q!
RAUP ASKVER+6, Q1, Q!
RAVER ASKVER+3*, Q!, Q+3!
U ASKVER+3
X ASKVER*, ASKBAT*, Q+1!
XQUIT VERIFY+1!
Y VERIFY+2, VERIFY+3*, VERIFY+4*, ASKVER+6*, Q+1!
Y(0 VERIFY+3, VERIFY+4
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