Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: START+1
Function Call: WRITE
  • Prompt: $C(7),"Invalid status for case #: ",RACN
  • Line Location: START+1
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: START+2
Function Call: WRITE
  • Prompt: $C(7),!,"Exam is already complete!!"
  • Line Location: START+2
Function Call: READ
  • Variable: X
  • Timeout: 3
  • 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
  • Variable: X
  • Timeout: 3
  • 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
  • Formatting: !
  • Prompt: "Do you wish to continue? YES// "
  • Variable: X1
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: 3
  • Line Location: ASK+49
Function Call: READ
  • Variable: X
  • Timeout: 3
  • 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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call