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

Package: Radiology Nuclear Medicine

Routine: RASTED


Information

RASTED ;HISC/CAH,FPT,GJC,SS AISC/TMP,TAC,RMO-Edits for status tracking ;12 Feb 2019 12:26 PM

Source Information

Source file <RASTED.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Radiology Nuclear Medicine 15 SEL^RACNLU  (A7007,U70033,X7005)^RADD3  EXM^RAHLRPC  (TRK70CMA,TRK70CMB)^RAMAINU  XCMINTEG^RAMAINU1  ($$CMPAFTR,SVBEFOR)^RAO7XX  ^RAORDC  $$ORVR^RAORDU  
PRCCPT^RAPROD  ^RASTREQ  EN^RAUTL0  (OERR,OERR3)^RAUTL1  ($$LOCK,UNLOCK)^RAUTL12  EN2^RAUTL20  $$PTSEX^RAUTL8  
VA FileMan 4 ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 $$LKUP^XPDKEY  ^XUVERIFY  

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

Package Total Caller Graph
Radiology Nuclear Medicine 3 RA STATUS CHANGE  RAEDCN  RASTEXT1  

Entry Points

Name Comments DBIA/ICR reference
OK1
OK0
OK2
NXT
USERQ
WHY2 ;explain why diags prompts are skipped
NEXT
START
BAD
WHYMSG
USER
KEY
ASK
WHYMSG2
WHY1 ;explain why prim/sec resid/staff, diagnoses prompts are skipped
CHANGE
WHY11

External References

Name Field # of Occurrence
^DIC NEXT
^DIE ASK+14
$$GET1^DIQ CHANGE+8
^DIR KEY, CHANGE+13
SEL^RACNLU RASTED+11
A7007^RADD3 ASK+42
U70033^RADD3 ASK+17
X7005^RADD3 ASK+41
EXM^RAHLRPC ASK+52, ASK+71
TRK70CMA^RAMAINU ASK+26
TRK70CMB^RAMAINU ASK+11
XCMINTEG^RAMAINU1 ASK+25
$$CMPAFTR^RAO7XX ASK+51, ASK+70
SVBEFOR^RAO7XX ASK+13
^RAORDC ASK+57
$$ORVR^RAORDU ASK+65, ASK+66
PRCCPT^RAPROD CHANGE+3
^RASTREQ ASK+17
EN^RAUTL0 ASK+57
OERR^RAUTL1 ASK+65
OERR3^RAUTL1 ASK+66
$$LOCK^RAUTL12 ASK+7
UNLOCK^RAUTL12 ASK+43
EN2^RAUTL20 ASK+3
$$PTSEX^RAUTL8 CHANGE+5
$$LKUP^XPDKEY NEXT+2
^XUVERIFY USER

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: 3
  • Variable: X
  • Line Location: START+1
Function Call: WRITE
  • Prompt: $C(7),"Invalid status for case #: ",RACN
  • Line Location: START+1
Function Call: READ
  • Timeout: 3
  • Variable: X
  • Line Location: START+2
Function Call: WRITE
  • Prompt: $C(7),!,"Exam is already complete!!"
  • Line Location: START+2
Function Call: READ
  • Timeout: 3
  • Variable: X
  • Line Location: NEXT+1
Function Call: WRITE
  • Prompt: $C(7),!,"Status has already been set to ",$P(RANEXT,"^")
  • Line Location: NEXT+1
Function Call: READ
  • Timeout: 3
  • Variable: X
  • Line Location: NEXT+2
Function Call: WRITE
  • Prompt: $C(7),!,"You are not authorized to change to this status"
  • Line Location: NEXT+2
Function Call: WRITE
  • Prompt: !!?15,$C(7),RALINE
  • Line Location: NEXT+6
Function Call: WRITE
  • Prompt: !!?15,$C(7),"Default Next Status (",$P(RANEXT,U),") is *NOT* active.",!?15,$C(7),RALINE,!
  • Line Location: NEXT+7
Function Call: WRITE
  • Prompt: !?15,$C(7),RALINE
  • Line Location: BAD+0
Function Call: WRITE
  • Prompt: !!?18,$C(7),"There is no valid higher status to advance to.",!?15,$C(7),RALINE
  • Line Location: BAD+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: KEY+0
Function Call: WRITE
  • Prompt: !?15,$C(7),RALINE,!!?18,"Next valid status is : ",$P(RANEXT,U),!?15,$C(7),RALINE
  • Line Location: OK1+0
Function Call: WRITE
  • Prompt: !!,"Name: ",RANME,?40,"Case # : ",RACN,!,"Division : ",$S($D(^DIC(4,+$P(RADT0,"^",3),0)):$P(^(0),"^"),1:"")
  • Line Location: CHANGE+0
Function Call: WRITE
  • Prompt: !,"Procedure: ",RAPRC
  • Line Location: CHANGE+2
Function Call: WRITE
  • Prompt: !," ***** Old Status: ",$P(RAST0,"^"),!," ***** New Status: ",$P(RANEXT,"^")
  • Line Location: CHANGE+12
Function Call: WRITE
  • Prompt: !!?5,$C(7),"This record is corrupted -- the procedure is missing,",!?5,"please contact your ADPAC or IRM",!
  • Line Location: CHANGE+13
Function Call: READ
  • Prompt: "Do you wish to continue? YES// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X1
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Answer 'Yes' or 'No'.",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"...Status ",$S($D(RAAFTER)&($G(RABEFORE)=$G(RAAFTER)):"unchanged",$G(RABEFORE)>$G(RAAFTER):"backed down",1:"successfully changed")," for case #: ",RACN
  • Line Location: ASK+46
Function Call: READ
  • Timeout: 3
  • Variable: X
  • Line Location: ASK+49
Function Call: READ
  • Timeout: 3
  • Variable: X
  • Line Location: ASK+69
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: USER+0
Function Call: WRITE
  • Prompt: !!?2,$P(^DD(70.03,RA3,0),"^")," :",?35
  • Line Location: WHY11+1
Function Call: WRITE
  • Prompt: $P(^RA(78.3,+$P(RA0,"^",RA3),0),"^")
  • Condition for execution: RA3=13
  • Line Location: WHY11+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WHY11+2
Function Call: WRITE
  • Prompt: !?4,$P(^DD(70.03,RA4,0),"^")," :"
  • Line Location: WHY11+4
Function Call: WRITE
  • Prompt: $P($G(^RA(78.3,+^(0),0)),"^")
  • Condition for execution: RA3=13
  • Line Location: WHY11+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WHY11+5
Routine Call
  • DIE
  • Line Location:
    • ASK+14
Routine Call
  • DIC
  • Line Location:
    • NEXT
Routine Call
  • DIR
  • Line Location:
    • KEY
    • CHANGE+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RADPT - [#70] Classic Fileman Calls
^RA(72 - [#72] Classic Fileman Calls
^RAO(75.1 - [#75.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(70.03 WHY11+1, WHY11+3, WHY11+4
^DIC(4 - [#4] CHANGE
^DIC(42 - [#42] ASK+57
^RA(72 - [#72] START+1, START+2, START+4, NEXT, NXT, NXT+1, NXT+3, NXT+4, OK0, ASK+60
^RA(78.3 - [#78.3] WHY11+2, WHY11+5
^RA(79.1 - [#79.1] CHANGE+1
^RADPT - [#70] OK2, CHANGE+7, ASK+58, WHY1+3, WHY11+3, WHY11+5
^SC - [#44] CHANGE+1
^VA(200 - [#200] WHY11+2, WHY11+5
^XUSEC( NEXT+2

Label References

Name Line Occurrences
ASK ASK+1
BAD NXT+2, NXT+3
KEY RASTED+11
NXT NXT+4
OK0 NXT+1, NXT+5
OK2 NEXT+4
START RASTED+11
USER ASK+2, USER
USERQ USER
WHY1 WHY2+1
WHY11 WHY1+4, WHY1+5, WHY1+6
WHYMSG WHY1+4

Naked Globals

Name Field # of Occurrence
^( START+4, NEXT, WHY11+5
^("ALERT" ASK+60
^("P" OK2
^(0 START+4, CHANGE, CHANGE+1, WHY11+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % USER*
>> %DUZ USER*
DA ASK+6*, ASK+17!, WHY1+1, WHY1+3, WHY11+3, WHY11+5
DA(1 WHY1+1, WHY1+3, WHY11+3, WHY11+5
DA(2 WHY1+1, WHY1+3, WHY11+3, WHY11+5
DE ASK+29!
DIC NEXT*!
DIC("A" NEXT*
DIC("S" NEXT*
DIC(0 NEXT*
>> DIE ASK+6*
>> DIE("NO^" ASK+5*, ASK+29!
DIR KEY!, KEY+1!, CHANGE+13!
DIR("A" KEY*, CHANGE+13*
DIR(0 KEY*, CHANGE+13*
DIROUT CHANGE+13!
DIRUT KEY+1!, CHANGE+13!
DQ ASK+29!
>> DR ASK+5*
DTIME ASK
DTOUT CHANGE+13!
DUOUT KEY+1!, CHANGE+13!
DUZ NEXT+2, ASK+2, ASK+41, ASK+42, USER
I2 RASTED+11*, RASTED+12!
I3 RASTED+12!, START*
RA0 WHY1+2~, WHY1+3*, WHY11, WHY11+2
RA1 WHY1+2~, WHY11+4*, WHY11+5*
RA2 WHY1+2~, WHY1+3*, WHYMSG, WHY11+1*
RA3 WHY1+2~, WHY1+4, WHY1+5*, WHY1+6*, WHYMSG, WHYMSG2, WHY11, WHY11+1, WHY11+2, WHY11+5
, WHY2+1~*
RA4 WHY1+2~, WHY1+5*, WHY1+6*, WHY11+3, WHY11+4, WHY2+1*
RA5 WHY1+2~, WHY11+3*, WHY11+5
RA70033 ASK+17*, ASK+41, ASK+44!
RAAFTER ASK+4~, ASK+46, ASK+49
RABEFORE ASK+4~, ASK+46, ASK+49
RACMDA ASK+24*, ASK+25, ASK+27!
RACMDA(1 ASK+24*
RACMDA(2 ASK+24*
RACN RASTED+12!, START+1, CHANGE, ASK+46
RACN0 RASTED+12!, OK2*, CHANGE+6, CHANGE+9, CHANGE+10, ASK+57
RACN0A ASK+45~, ASK+58*, ASK+60, ASK+63, ASK+64
>> RACNI OK2, CHANGE+7, ASK+11, ASK+13, ASK+17, ASK+24, ASK+26, ASK+41, ASK+42, ASK+58
>> RACNT RASTED+11
RACOMP RASTED+12!, ASK+14!
>> RACS OK2*, ASK+57
RADADA ASK+6*, ASK+7, ASK+43!
RADFN RASTED+12!, OK2, CHANGE+5, CHANGE+7, ASK+6, ASK+11, ASK+13, ASK+17, ASK+24, ASK+26
, ASK+41, ASK+42, ASK+58
RADIE ASK+6*, ASK+7, ASK+43!
RADIOPH ASK+30!
RADOSE ASK+30!
RADT0 RASTED+12!, OK2*, CHANGE, CHANGE+1
RADTE RASTED+12!
>> RADTI OK2, CHANGE+7, ASK+6, ASK+11, ASK+13, ASK+17, ASK+24, ASK+26, ASK+41, ASK+42
, ASK+58
RADUZ RASTED+12!, ASK+2*, ASK+41, ASK+42, ASK+44!, USERQ!
RAEND RASTED+12!
RAEXEDT ASK+51~*, ASK+52, ASK+70~*
RAFL RASTED+12!
RAFST RASTED+12!
RAHI ASK+30!
RAI RASTED+12!, ASK+30!
RAIEN702 ASK+30!
RAIX RASTED+12!
RAL RASTED+11*, RASTED+12!
RALINE NEXT+5~*, NEXT+6, NEXT+7, BAD, BAD+1, OK1
RALOW ASK+30!
>> RAMDV ASK+2, ASK+41
RAMEMARR ASK+3~
RAMIS ASK+30!
RANEXT RASTED+12!, START+4*, NEXT*, NEXT+1, NEXT+2, NEXT+4, NEXT+7, OK0*, OK1, CHANGE+12
, ASK+57
RANM702 ASK+30!
RANME RASTED+12!, CHANGE
RANXT72 RASTED+12!, START+4*, NEXT*, OK0*, ASK+17
RANXTIEN NEXT+5~*, NXT*, NXT+1, NXT+2, NXT+3, NXT+4, OK0
RAOPRC ASK+27!
RAORD0 CHANGE+6~*, CHANGE+8
RAORDIFN ASK+62~, ASK+64*
RAPCOMM CHANGE+6~, CHANGE+7*, CHANGE+10
RAPOP RASTED+12!, ASK+2*, USERQ*
RAPRC RASTED+12!, CHANGE+2, CHANGE+13
RAPRI RASTED+12!, ASK+30!
RAPRIT OK2*, ASK+62~, ASK+63*
RAPRTSET ASK+3~
RAPSDRUG ASK+30!
RAR1 ASK+30!
RAREM ASK+4~
RARPT RASTED+12!
RASK RASTED+12!, START+4*, NEXT*, ASK+2
RASSN RASTED+12!
RAST RASTED+12!, START+1, START+2
RAST0 RASTED+12!, START+2*, START+4, NEXT+1, NEXT+5, CHANGE+12
RATCXX ASK+42, ASK+44!
RATRKCMB ASK+11, ASK+26, ASK+29!
RAVW RASTED+11*, RASTED+12!
RAWHICH ASK+4~
>> RAXIT ASK+7*
RAZCM ASK+29!
U NEXT+4, NEXT+5, NEXT+7, NXT, NXT+1, NXT+4, OK1, CHANGE+6, CHANGE+9, CHANGE+10
, ASK+57
X RASTED+11*, RASTED+12!, START+1*, START+2*, NEXT+1*, NEXT+2*, ASK+17*, ASK+49*, ASK+69*
>> X1 START+3*, ASK*, ASK+1
>> Y START, NEXT
>> Y(0 NEXT
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