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
Print Page as PDF
Routine: RAUTL11

Package: Radiology Nuclear Medicine

Routine: RAUTL11


Information

RAUTL11 ;HISC/CAH,FPT,GJC,SS-Utility File Maintenance ;4/21/97 11:59

Source Information

Source file <RAUTL11.m>

Entry Points

Name Comments DBIA/ICR reference
HEAD ; Header
ORDELSH ;Called by the 'List Exams with Inactive/Invalid Statuses' option.
2 ;
Q2
SVTCOM(RA11DFN,RA11DTI,RA11CNI) ;P18 used for API call
GETTCOM(RA11DFN,RA11DTI,RA11CNI) ;P18 returns most recent tech comment
PUTTCOM(RA18DFN,RA18DTI,RA18CNI,RA18HDR,RA18LFTM,RA18RGHM,RA18BOT,RANLHD,RAHDNL,RALINES,RAWRHDR) ;P18 outputs techcomm
CONTIN(RABTM) ;P18 screen check
TXTOUT(RA11TXT,RA11LM,RA11RM,RABT,RAHD,RALIN,RANLHD,RAHDNL,RA18ISHD) ;P18 outputs text
PUTTCOM2(RA18DFN,RA18DTI,RA18CN,RA18HDR,RA18LFTM,RA18RGHM,RA18BOT,RA18HDNL) ;P18 outputs techcomm using caseNo see PUTTCOM
VERONLY() ;outputs header with case info for Verify only menu option
PUTTCOM3(RA18DFN,RA18DTI,RA18CNI,RA18LOG,RA18HDR,RA18LFTM,RA18RGHM,RA18BOT,RANLHD,RAHDNL,RALINES,RAWRHDR) ;P18 outputs techcomm

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?62,"Page: ",RAPG,!?62,"Date: ",RADATE
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!?(IOM-$L(RAHDR)\2),RAHDR,!,RALINE,!
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDELSH+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDELSH+7
Function Call: WRITE
  • Prompt: !?5,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
  • Line Location: ORDELSH+10
Function Call: WRITE
  • Prompt: !,HD(1),C
  • Line Location: 2+11
Function Call: WRITE
  • Prompt: ?45,HD(2),$E($S(E]"":E,1:"Unknown"),1,20),!,LN(1),?45,LN(2),!
  • Line Location: 2+12
Function Call: WRITE
  • Prompt: !,HD(1),C,?45,HD(2),$E($S(E]"":E,1:"Unknown"),1,20)
  • Line Location: 2+31
Function Call: WRITE
  • Prompt: !,LN(1),?45,LN(2),!
  • Line Location: 2+32
Function Call: WRITE
  • Prompt: !,"Patient: ",$S(RAPAT]"":RAPAT,1:"Unknown")
  • Line Location: 2+34
Function Call: WRITE
  • Prompt: ?45,"SSN: ",$E(RASSN,1,3)_"-"_$E(RASSN,4,5)_"-"_$E(RASSN,6,9)
  • Line Location: 2+35
Function Call: WRITE
  • Prompt: !,"Exam Date: ",$S(RAEXDT]"":RAEXDT,1:"Unknown")
  • Line Location: 2+36
Function Call: WRITE
  • Prompt: ?45,"Case #: ",$S(RACASE]"":RACASE,1:" --- ")
  • Line Location: 2+37
Function Call: WRITE
  • Prompt: !,"Reported: Yes",?45,"Report Status: "
  • Line Location: 2+39
Function Call: WRITE
  • Prompt: $S(RARPT("STAT")]"":$E(RARPT("STAT"),1,19),1:"Unknown")
  • Line Location: 2+40
Function Call: WRITE
  • Prompt: !,"Procedure: ",$S(RAPROC]"":RAPROC,1:"Unknown"),!
  • Line Location: 2+42
Function Call: WRITE
  • Prompt: !?(IOM-$L(FT)\2),FT
  • Line Location: 2+48
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RANLHD
  • Line Location: PUTTCOM+3
Function Call: WRITE
  • Prompt: RA18HDR
  • Line Location: PUTTCOM+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RAHDNL
  • Line Location: PUTTCOM+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RANLHD
  • Line Location: PUTTCOM+5
Function Call: WRITE
  • Prompt: RA18HDR
  • Line Location: PUTTCOM+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RAHDNL
  • Line Location: PUTTCOM+5
Function Call: WRITE
  • Prompt: ?DIWL,X
  • Line Location: TXTOUT+12
Function Call: WRITE
  • Prompt: ?DIWL,X
  • Line Location: TXTOUT+14
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RANLHD
  • Line Location: TXTOUT+17
Function Call: WRITE
  • Prompt: RAHD
  • Line Location: TXTOUT+17
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RAHDNL
  • Line Location: TXTOUT+17
Function Call: WRITE
  • Prompt: !!?2,"Case #: ",RACN," for ",RANME
  • Line Location: VERONLY+3
Function Call: WRITE
  • Prompt: !?2,"Procedure: '",$E(RAPRC,1,45),"' has been deleted"
  • Line Location: VERONLY+4
Function Call: WRITE
  • Prompt: !?2,"by another user!",$C(7)
  • Line Location: VERONLY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: VERONLY+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RANLHD
  • Line Location: PUTTCOM3+3
Function Call: WRITE
  • Prompt: RA18HDR
  • Line Location: PUTTCOM3+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RAHDNL
  • Line Location: PUTTCOM3+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RANLHD
  • Line Location: PUTTCOM3+5
Function Call: WRITE
  • Prompt: RA18HDR
  • Line Location: PUTTCOM3+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RAHDNL
  • Line Location: PUTTCOM3+5
Info |  Source |  Entry Points |  Interaction Calls