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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RAPSAPI

Package: Radiology Nuclear Medicine

Routine: RAPSAPI


Information

RAPSAPI ;HOIFO/SWM-calling Pharmacy APIs ;8/29/05 08:12

Source Information

Source file <RAPSAPI.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Pharmacy Data Management 2 (DATA,ZERO)^PSS50  ($$FNAME,DIC,DO)^PSSDI  
VA FileMan 2 $$ROOT^DILFD  ^DIR  
Kernel 1 HOME^%ZIS  
Radiology Nuclear Medicine 1 SETVACL^RAPSAPI2  

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

Package Total Caller Graph
Radiology Nuclear Medicine 10 RA PROCEDURE LIST  RADD3  RADOSTIK  RAMAIN2  RANMUSE2  RANMUTL1  RANPRO  RAPSAPI2  
RAPSAPI3  ^RAMIS(71.9  

Entry Points

Name Comments DBIA/ICR reference
EN1(RAX,RAN) ; call data^pss50 to get external values to some fields
; input RAX is ien to file 50
; input RAN is field number of file 50 to display
EN2(RADIC,RAUTIL) ; adapted from EN1^RASELCT
; called from selradio+11^RANMUTL1
1 ;
EXIT ;
K
SOME ; SG 4/12/07
HELP ;
SHOW
HLP
SHO
WRAP ;
PAUSE ;
EN5() ;display identifier from file 71.9, field 5 radiopharm
; ^(0) is ^RAMIS(71.9,-,0)

External References

Name Field # of Occurrence
HOME^%ZIS EN2+24
$$ROOT^DILFD EN2+19
^DIR PAUSE+1
DATA^PSS50 EN1+6
ZERO^PSS50 SOME+6
$$FNAME^PSSDI EN2+23
DIC^PSSDI 1+11, SOME+13
DO^PSSDI EN2+21
SETVACL^RAPSAPI2 1+10, SOME+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S(RANUM>1:"Another one (Select/De-Select): ",1:RADIC("A"))
  • Line Location: 1+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: SOME+2
Function Call: WRITE
  • Prompt: " ?? Enter at least 1 character before the ""*"".",$C(7)
  • Line Location: SOME+3
Function Call: WRITE
  • Prompt: !?5,"To deselect a ",RAFLD01," type a minus sign (-)",!?5,"in front of it, e.g., -",RAFLD01,"."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?5,"Use an asterisk (*) to do a wildcard selection, e.g.,"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?5,"enter ",RAFLD01,"* to select all entries that begin"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?5,"with the text '",RAFLD01,"'. Wildcard selection is"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !?5,"case sensitive."
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !!,"You have already selected:"
  • Line Location: SHOW+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !?3,RA
  • Line Location: SHO+0
Function Call: WRITE
  • Prompt: !
  • Line Location: WRAP+1
Function Call: WRITE
  • Prompt: !?5,$P(RA," ",1,Y)
  • Line Location: WRAP+1
Routine Call
  • %ZIS
  • Line Location:
    • EN2+24
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J EN1+5!, EN1+7, EN1+8!, EN2+24!, 1+14, 1+15, EXIT+1, SOME+8, SOME+10, SOME+17
, SOME+18*, SOME+20, SOME+22!, HELP+7, SHOW+1

Label References

Name Line Occurrences
$$EN1 EN5+2
1 1+3, 1+12, 1+16
EXIT EN2+17, EN2+19, EN2+22, 1+2
HELP 1+5
HLP HELP+7
K EN2+19
PAUSE SHO+1
SHO SHOW+1
SOME 1+3
WRAP HELP+1

Naked Globals

Name Field # of Occurrence
^( 1+14*, 1+15!, SOME+20!
^(0 EN5+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% K!
%X K!
%Y K!
%Z K!
C K!
D0 K!
DA K!
DIC EN2+18~, EN2+19*, K!
DIC(0 EN2+20*
DIK K!
DIR K!, PAUSE+1!
DIR(0 PAUSE+1*
DO EN2+23!, K!
DTIME 1+2
IOM WRAP+1
IOSL SHO+1
NAME SOME+1~, SOME+15*, SOME+17, SOME+18, SOME+20
PSSDIY EN2+18~, EN2+22
RA K!, HELP+1*, SHOW*, SHOW+1*, SHO, WRAP+1*
RA50I SOME+1~, SOME+9*, SOME+10*, SOME+13
RAALL K!
RACASE K!
RAD0 K!, SHOW+1*
RADIC EN2~, EN2+17, EN2+19*, EN2+21, 1+11, EXIT+1!, SOME+13
RADIC("A" 1+1
RADIC(0 EN2+17, EN2+20*, SOME+4*, SOME+21*
RADIC0 SOME+1~, SOME+4*, SOME+21
RADSEL 1+2*, 1+14, 1+15, K!, SOME+17
RAENTRY SOME+1~, SOME+5*, SOME+6
RAFLD01 EN2+23*, K!, HELP+1, HELP+2, HELP+4, HELP+5
RAFNAME EN2+23*, K+1!, HELP+1
RAFNUM K+1!
RAFSCR K+1!
RALINE K+1!, SHOW*, SHO+1*
RAN EN1~, EN1+7
RANUM EN2+24*, 1+1, 1+14*, 1+15*, K+1!, SOME+18*, SOME+20*
>> RAQUIT EN2+16*, EN2+17*, EN2+19*, EN2+22*, 1+2*, EXIT+1*, SHOW+1, HLP*, PAUSE+1*
RAUTIL EN2~, EN2+17, EN2+24, 1+14, 1+15, EXIT+1!, SOME+17, SOME+18, SOME+20, HELP+7
, SHOW+1
RAVACL 1+11, K+1!, SOME+13
RAVALUE K+1!
RAX EN1~, EN1+4*, EN1+6, EN1+7
RAXN SOME+1~, SOME+7*, SOME+8*, SOME+10
RAY EN1+3~, EN1+7*, EN1+9
SCR EN1+3~
U 1+14, 1+15, SOME+15, EN5+2
X EN1+3~, EN2+18~, 1+2*, 1+3, 1+5, 1+11, K+1!, SOME+2, SOME+3, SOME+5
, HELP+1~
Y EN2+18~, 1+12, 1+14, 1+15, K+1!, SOME+14, SOME+15, SOME+17, SOME+18, SOME+20
, WRAP+1*, PAUSE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All