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

Package: Radiology Nuclear Medicine

Routine: RAUTL5


Information

RAUTL5 ;HISC/CAH,FPT,GJC-Utility Routine ;3/12/98 13:27

Source Information

Source file <RAUTL5.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 6 YN^DICN  Y^DIQ  ^DIR  EN^DIWE  ^DIWP  ^DIWW  
Kernel 2 $$FMADD^XLFDT  $$UP^XLFSTR  
Order Entry Results Reporting 1 READ^ORUTL  
Registration 1 IN5^VADPT  
Scheduling 1 $$OUTPTPR^SDUTL3  

Caller Graph

Caller Graph Total: 75

Package Total Caller Graph
Radiology Nuclear Medicine 75 RABAR1  RABTCH2  RABTCH3  RABUL  RABUL1  RABUL2  RABUL3  RACDR1  
RACMP  RACMP1  RACMP2  RACTOE  RACTVR  RACTVR4  RADD3  RADLQ1  
RADLQ2  RADLQ3  RADLY  RADLY1  RADOSTIK  RAERRPT  RAESR1  RAESR2  
RAESR3  RAFLM2  RAFLM3  RALIST1  RALWKL1  RALWKL2  RALWKL4  RAMAIN1  
RAMIS1  RANMUSE2  RANMUSE3  RAORD1  RAORD2  RAORD3  RAORD6  RAORDP  
RAPINFO  RAPRC1  RAPROD  RAPROD1  RAPROD2  RART1  RART3  RARTE2  
RARTR  RARTR0  RARTR3  RARTUVR1  RARTUVR2  RARTUVR3  RASTRPT1  ^RABTCH(74.3  
RASTRPT  RASYS  RASYS1  RATRAN  RAUTL1  RAUTL11  RAUTL12  RAUTL19  
RAUTL19A  RAUTL19B  RAUTL19C  RAWFR2  RAWFR3  RAWFR4  RAWKL2  RAWKLU1  
RAWKLU3  RAWRVUP  RAXSTAT  

Entry Points

Name Comments DBIA/ICR reference
PRIM(RADFN,DATE) ;Returns the external form of the PRIMARY PHYSICIAN
DIWP(DIWL,DIWR,X) ; work ^DIWP & ^DIWW FM call "WRITE" mode P75
CH ; Populate the 'CLINICAL HISTORY' field (#400); file 75.1 (^RAO(75.1))
; Called from 'CREATE1^RAORD1'.
XTERNAL(Y,C) ; Change internal format to external format
; 'Y' is the internal form of the data
; 'C' defines the data type of the variable 'Y'
MIDNGHT(X) ; Check if the date passed in is midnight. If it is, add one
; minute to the date/time. Fixes infinite loop problem in FM when
; midnight.
; Input: X-Current system date/time (derived from $$NOW^XLFDT)
CH1 ;ask/re-ask 'CLINICAL HISTORY'
STYREA(RAOUT,RAREAST) ;ask for the 'Reason for Study' P75 (required)
PROCMSG(RAPRI) ; Print the appropriate procedure messages. Called from
; DESDT^RAUTL12. This code works under the assumption that the
; user has entered through OE/RR.
ATND(RADFN,DATE) ;Returns the external form of the ATTENDING PHYSICIAN
VALWP(RAROOT) ; Validate word processing field.
; Pass back '1' if data is valid, '0' if not valid.
; at least 2 alphanumeric char's required
XIT ;kill variable(s), exit CH subroutine
RDQ(D0) ; Used by input transform on ^DD(74.31,2
; Checks for unprinted reports associated with REPORT
; DISTRIBUTION QUEUE of internal entry number of D0.
EOS() ; 'End Of Screen' prompt for terminals only, check user response.
PURGECH ;Delete the invalid 'CLINICAL HISTORY'; inform the user
WPLEN ;Is clin hist too long to go into a local array for OE/RR HL7 msg?

External References

Name Field # of Occurrence
YN^DICN RDQ+13
Y^DIQ XTERNAL+3
^DIR CH1+3, CH1+16, WPLEN+11, EOS+4, STYREA+3
EN^DIWE CH1+6
^DIWP PROCMSG+23, DIWP+5
^DIWW PROCMSG+26, DIWP+5
READ^ORUTL PROCMSG+12, PROCMSG+22, PROCMSG+25
$$OUTPTPR^SDUTL3 PRIM+11
IN5^VADPT ATND+4, PRIM+4
$$FMADD^XLFDT MIDNGHT+5
$$UP^XLFSTR PROCMSG+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,$C(7),^("HIS"),!
  • Line Location: CH1+3
Function Call: WRITE
  • Prompt: !,"CLINICAL HISTORY FOR EXAM"
  • Line Location: CH1+6
Function Call: WRITE
  • Prompt: !!,"*** UNPRINTED REPORTS IN THE QUEUE ! ***"
  • Line Location: RDQ+9
Function Call: WRITE
  • Prompt: !,"If this queue is inactivated before printing, these reports will be",!,"removed from the queue."
  • Line Location: RDQ+10
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to remove these reports"
  • Line Location: RDQ+12
Function Call: WRITE
  • Prompt: !!?5,"Please answer Y(es) or N(o)."
  • Line Location: RDQ+14
Function Call: WRITE
  • Prompt: !,"Inactivation date deleted"
  • Line Location: RDQ+16
Function Call: WRITE
  • Prompt: !!?5,"NOTE: The following special requirements apply to this "
  • Line Location: PROCMSG+7
Function Call: WRITE
  • Prompt: "procedure:",$C(7),!
  • Line Location: PROCMSG+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROCMSG+12
Function Call: WRITE
  • Prompt: !?3,X
  • Line Location: PROCMSG+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROCMSG+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROCMSG+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCMSG+27
Function Call: WRITE
  • Prompt: !,"Invalid CLINICAL HISTORY deleted..."
  • Line Location: PURGECH+2
Routine Call
  • DIR
  • Line Location:
    • CH1+3
    • CH1+16
    • WPLEN+11
    • EOS+4
    • STYREA+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" PRIM+10
^RA(79 - [#79] CH1+3
^RABTCH(74.4 - [#74.4] RDQ+5, RDQ+6
^RADPT - [#70] CH1+1
^RAMIS(71 - [#71] PROCMSG+5, PROCMSG+9, PROCMSG+10, PROCMSG+17, PROCMSG+18, PROCMSG+21, PROCMSG+23
^RAMIS(71.4 - [#71.4] PROCMSG+11, PROCMSG+13
^TMP($J CH+6!, CH1+1*, CH1+7, WPLEN+2, PURGECH+2!
^UTILITY($J PROCMSG+20!, DIWP+5!, DIWP+6!

Label References

Name Line Occurrences
$$VALWP CH1+9
CH1 CH1+10, WPLEN+3
PURGECH CH1+10, WPLEN+3
STYREA CH+5
XIT CH+5, CH1+4, CH1+7, CH1+22

Naked Globals

Name Field # of Occurrence
^("H" CH1+1
^("HIS" CH1+3
^(0 CH1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RDQ+3~, RDQ+11, RDQ+13*, RDQ+14, RDQ+16, DIWP+4~
%Y RDQ+3~
C XTERNAL~
CHAR VALWP+4~, VALWP+11*, VALWP+12
CNT VALWP+4~, VALWP+7*, VALWP+11*, VALWP+12*
D0 RDQ~, RDQ+5
DA STYREA+3~
DATE ATND~, ATND+3, ATND+4, PRIM~, PRIM+3, PRIM+4
>> DFN ATND+3*, PRIM+3*
DIC CH1+5*, CH1+6!, CH1+8!*
DIR CH1+3!, CH1+12!, CH1+20!, WPLEN+5!, WPLEN+15!, EOS+4!, STYREA+3~
DIR("?" CH1+14*, CH1+15*, CH1+16*, WPLEN+8*, WPLEN+9*, WPLEN+10*, WPLEN+11*
DIR("A" CH1+13*, WPLEN+7*
DIR("B" CH1+12*, WPLEN+6*
DIR(0 CH1+3*, CH1+12*, WPLEN+6*, EOS+4*, STYREA+3*
DIROUT CH1+12!, CH1+20!, WPLEN+5!, WPLEN+15!, EOS+4!, STYREA+3~
DIRUT CH1+4, CH1+12!, CH1+18, CH1+20!, WPLEN+5!, WPLEN+13, WPLEN+15!, EOS+4!, STYREA+3~, STYREA+4
DIW PROCMSG+19~, DIWP+4~
DIWESUB CH1+5*, CH1+6!
DIWF PROCMSG+19~, PROCMSG+20*, DIWP+4~, DIWP+5*
DIWL PROCMSG+19~, PROCMSG+20*, DIWP~
DIWR PROCMSG+19~, PROCMSG+20*, DIWP~
DIWT DIWP+4~
DN DIWP+4~
DPT ATND+2~, PRIM+2~
DTOUT CH1+12!, CH1+20!, WPLEN+5!, WPLEN+15!, EOS+4!, STYREA+3~
DUOUT CH1+12!, CH1+20!, WPLEN+5!, WPLEN+15!, EOS+4!, STYREA+3~
DWPK CH1+5*, CH1+6!, CH1+8*
FOUND RDQ+3~, RDQ+4*, RDQ+5, RDQ+6*, RDQ+8
I PROCMSG+6~*, PROCMSG+9*, PROCMSG+10, DIWP+4~
IOF PROCMSG+12, PROCMSG+22, PROCMSG+25
IOSL PROCMSG+12, PROCMSG+22, PROCMSG+25
IOST EOS+1
RA744 RDQ+3~, RDQ+4*, RDQ+5*, RDQ+6
RACNT WPLEN+1~*, WPLEN+2*, WPLEN+3
RADFN CH1+1, ATND~, ATND+3, PRIM~, PRIM+3, PRIM+11
>> RADIV CH1+3
>> RAI CH1+1*
RAOUT CH+5, STYREA~, STYREA+4*
RAPRI PROCMSG~, PROCMSG+5, PROCMSG+9, PROCMSG+10, PROCMSG+17, PROCMSG+18, PROCMSG+21, PROCMSG+23
RAREAST CH+5, STYREA~, STYREA+4*
RAROOT VALWP~, VALWP+3, VALWP+6, VALWP+8
>> RASTOP PROCMSG+4, PROCMSG+5*
>> RAVLECNI CH1+1
>> RAVLEDTI CH1+1
>> RAVSTFLG CH1+1
RAWPFLG CH1+9*, CH1+10, XIT+1!
RAX WPLEN+1~*, WPLEN+2*, PROCMSG+6~, PROCMSG+10*, PROCMSG+11, PROCMSG+13, PROCMSG+19~, PROCMSG+20*, PROCMSG+21*, PROCMSG+23
RAY EOS+2~, EOS+5*, EOS+6
RAYN CH1+5~, CH1+9*, CH1+10, CH1+17*, CH1+18*, CH1+22, WPLEN+3*, WPLEN+12*, WPLEN+13*
VA200 ATND+2~, ATND+3*, PRIM+2~, PRIM+3*
VAIP ATND+2~, PRIM+2~
VAIP("D" ATND+3*, PRIM+3*
VAIP(18 ATND+5
VAIP(7 PRIM+5, PRIM+11*, PRIM+13
WL VALWP+4~, VALWP+7*, VALWP+9*, VALWP+10
WPFLG VALWP+4~, VALWP+5*, VALWP+6, VALWP+10, VALWP+12*, VALWP+15
X CH1+12~, WPLEN+5~, VALWP+4~, VALWP+5*, VALWP+6*, VALWP+8, RDQ+16!, ATND+2~, ATND+5*, ATND+6
, PRIM+2~, PRIM+10~*, PRIM+13*, PRIM+14, EOS+2~, PROCMSG+6~, PROCMSG+13*, PROCMSG+19~, PROCMSG+23*, MIDNGHT~
, MIDNGHT+4*, MIDNGHT+5*, MIDNGHT+6, STYREA+3~, DIWP~
X1 EOS+2~
X2 EOS+2~
X3 EOS+2~
Y CH1+12~, CH1+17, WPLEN+5~, WPLEN+12, VALWP+4~, VALWP+8*, VALWP+9, VALWP+11, EOS+2~, EOS+5
, XTERNAL~, XTERNAL+3, XTERNAL+4, STYREA+3~, STYREA+4
Y0 EOS+2~
Y1 EOS+2~
Y2 EOS+2~
Y3 EOS+2~
Y4 EOS+2~
Y5 EOS+2~
Z VALWP+4~, VALWP+10*, VALWP+11, DIWP+4~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All