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 ; 06 Oct 2013 11:06 AM

Source Information

Source file <RASTED.m>

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

Caller Graph Total: 4

Package Total Caller Graph
Radiology Nuclear Medicine 4 RACTTK2  RACTTK8  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+13
^DIR KEY, CHANGE+18
SEL^RACNLU RASTED+11
A7007^RADD3 ASK+41
U70033^RADD3 ASK+16
X7005^RADD3 ASK+40
EXM^RAHLRPC ASK+51, ASK+70
TRK70CMA^RAMAINU ASK+25
TRK70CMB^RAMAINU ASK+11
XCMINTEG^RAMAINU1 ASK+24
$$CMPAFTR^RAO7XX ASK+50, ASK+69
SVBEFOR^RAO7XX ASK+13
^RAORDC ASK+56
$$ORVR^RAORDU ASK+64, ASK+65
PRCCPT^RAPROD CHANGE+3
^RASTREQ ASK+16
EN^RAUTL0 ASK+56
OERR^RAUTL1 ASK+64
OERR3^RAUTL1 ASK+65
$$LOCK^RAUTL12 ASK+7
UNLOCK^RAUTL12 ASK+42
EN2^RAUTL20 ASK+3
$$PTSEX^RAUTL8 CHANGE+9
$$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+17
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+18
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+45
Function Call: READ
  • Timeout: 3
  • Variable: X
  • Line Location: ASK+48
Function Call: READ
  • Timeout: 3
  • Variable: X
  • Line Location: ASK+68
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+18

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+56
^RA(72 - [#72] START+1, START+2, START+4, NEXT, NXT, NXT+1, NXT+3, NXT+4, OK0, ASK+59
^RA(78.3 - [#78.3] WHY11+2, WHY11+5
^RA(79.1 - [#79.1] CHANGE+1
^RADPT - [#70] OK2, CHANGE+12, ASK+57, 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+59
^("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+16!, 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+28!
DIC NEXT*!
DIC("A" NEXT*
DIC("S" NEXT*
DIC(0 NEXT*
>> DIE ASK+6*
>> DIE("NO^" ASK+5*, ASK+28!
DIR KEY!, KEY+1!, CHANGE+18!
DIR("A" KEY*, CHANGE+18*
DIR(0 KEY*, CHANGE+18*
DIROUT CHANGE+18!
DIRUT KEY+1!, CHANGE+18!
DQ ASK+28!
>> DR ASK+5*
DTIME ASK
DTOUT CHANGE+18!
DUOUT KEY+1!, CHANGE+18!
DUZ NEXT+2, ASK+2, ASK+40, ASK+41, 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+16*, ASK+40, ASK+43!
RAAFTER ASK+4~, ASK+45, ASK+48
RABEFORE ASK+4~, ASK+16, ASK+45, ASK+48
RACMDA ASK+23*, ASK+24, ASK+26!
RACMDA(1 ASK+23*
RACMDA(2 ASK+23*
RACN RASTED+12!, START+1, CHANGE, ASK+45
RACN0 RASTED+12!, OK2*, CHANGE+11, CHANGE+14, CHANGE+15, ASK+56
RACN0A ASK+44~, ASK+57*, ASK+59, ASK+62, ASK+63
>> RACNI OK2, CHANGE+12, ASK+11, ASK+13, ASK+16, ASK+23, ASK+25, ASK+40, ASK+41, ASK+57
>> RACNT RASTED+11
RACOMP RASTED+12!, ASK+14!
>> RACS OK2*, ASK+56
RADADA ASK+6*, ASK+7, ASK+42!
RADFN RASTED+12!, OK2, CHANGE+9, CHANGE+12, ASK+6, ASK+11, ASK+13, ASK+16, ASK+23, ASK+25
, ASK+40, ASK+41, ASK+57
RADIE ASK+6*, ASK+7, ASK+42!
RADIOPH ASK+29!
RADOSE ASK+29!
RADT0 RASTED+12!, OK2*, CHANGE, CHANGE+1
RADTE RASTED+12!
>> RADTI OK2, CHANGE+12, ASK+6, ASK+11, ASK+13, ASK+16, ASK+23, ASK+25, ASK+40, ASK+41
, ASK+57
RADUZ RASTED+12!, ASK+2*, ASK+40, ASK+41, ASK+43!, USERQ!
RAEND RASTED+12!
RAEXEDT ASK+50~*, ASK+51, ASK+69~*
RAFL RASTED+12!
RAFST RASTED+12!
RAHI ASK+29!
RAI RASTED+12!, ASK+29!
RAIEN702 ASK+29!
RAIX RASTED+12!
RAL RASTED+11*, RASTED+12!
RALINE NEXT+5~*, NEXT+6, NEXT+7, BAD, BAD+1, OK1
RALOW ASK+29!
>> RAMDV ASK+2, ASK+40
RAMEMARR ASK+3~
RAMIS ASK+29!
RANEXT RASTED+12!, START+4*, NEXT*, NEXT+1, NEXT+2, NEXT+4, NEXT+7, OK0*, OK1, CHANGE+17
, ASK+56
RANM702 ASK+29!
RANME RASTED+12!, CHANGE
RANXT72 RASTED+12!, START+4*, NEXT*, OK0*, ASK+16
RANXTIEN NEXT+5~*, NXT*, NXT+1, NXT+2, NXT+3, NXT+4, OK0
RAOPRC ASK+26!
RAORD0 CHANGE+11~*, CHANGE+13
RAORDIFN ASK+61~, ASK+63*
RAPCOMM CHANGE+11~, CHANGE+12*, CHANGE+15
RAPOP RASTED+12!, ASK+2*, USERQ*
RAPRC RASTED+12!, CHANGE+2, CHANGE+18
RAPRI RASTED+12!, ASK+29!
RAPRIT OK2*, ASK+61~, ASK+62*
RAPRTSET ASK+3~
RAPSDRUG ASK+29!
RAR1 ASK+29!
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+17
RATCXX ASK+41, ASK+43!
RATRKCMB ASK+11, ASK+25, ASK+28!
RAVW RASTED+11*, RASTED+12!
RAWHICH ASK+4~
>> RAXIT ASK+7*
RAZCM ASK+28!
U NEXT+4, NEXT+5, NEXT+7, NXT, NXT+1, NXT+4, OK1, CHANGE+11, CHANGE+14, CHANGE+15
, ASK+56
X RASTED+11*, RASTED+12!, START+1*, START+2*, NEXT+1*, NEXT+2*, ASK+16*, ASK+48*, ASK+68*
>> 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