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

Package: Radiology Nuclear Medicine

Routine: RAMAIN1


Information

RAMAIN1 ;HISC/CAH,GJC-Radiology Utility File Maintenance ;10/29/97 13:30

Source Information

Source file <RAMAIN1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Radiology Nuclear Medicine 3 HEAD^RAUTL11  PRELIM^RAUTL19  $$EOS^RAUTL5  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Kernel 2 ($$DT,$$FMTE)^XLFDT  $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RA EXAMSTATUS  RAMAIN  RAUTL19C  

Entry Points

Name Comments DBIA/ICR reference
Q1
DSPLNKS ; This subroutine display the links between the wasted/unwasted
; film size types. This subroutine is called from '4^RAMAIN'.
; This subroutine is only accessed if the '^RA(78.4,"AW")' xref
; exists.
1 ; Set-up/Edit the Examination Status file (72).
HDR(X,Y1) ; Header
XAMORD ; check order number inconsistency for order # 0,1,9
HDH ; EOS prompt

External References

Name Field # of Occurrence
^DIC 1+8, 1+20
^DIE 1+23
^DIR HDH+1
HEAD^RAUTL11 XAMORD+1, XAMORD+8, XAMORD+10, XAMORD+12, XAMORD+18, XAMORD+19, XAMORD+20, XAMORD+23, XAMORD+27, XAMORD+34
, XAMORD+36, XAMORD+40
PRELIM^RAUTL19 1+35
$$EOS^RAUTL5 1+34, XAMORD+1, XAMORD+8, XAMORD+10, XAMORD+12, XAMORD+18, XAMORD+19, XAMORD+20, XAMORD+23, XAMORD+27
, XAMORD+34, XAMORD+36, XAMORD+40
$$DT^XLFDT 1+2
$$FMTE^XLFDT 1+2
$$UP^XLFSTR 1+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,Z
  • Line Location: DSPLNKS+29
Function Call: WRITE
  • Prompt: ?40,$S($G(RAFS(Z(0),Z))]"":$G(RAFS(Z(0),Z)),1:"Error, missing data")
  • Line Location: DSPLNKS+30
Function Call: WRITE
  • Prompt: !?5,Z
  • Line Location: DSPLNKS+33
Function Call: WRITE
  • Prompt: ?40,"unassociated with a 'Wasted Film' type"
  • Line Location: DSPLNKS+34
Function Call: WRITE
  • Prompt: !?5,"*** Error, missing Data ***"
  • Line Location: DSPLNKS+37
Function Call: WRITE
  • Prompt: ?40,Z
  • Line Location: DSPLNKS+38
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L($G(X(0)))\2),$G(X(0)),!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?5,$G(X(1)),?40,$G(X(2)),!?(IOM-$L(Y1)\2),Y1,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+12
Function Call: WRITE
  • Prompt: !!,"`"_$P(RAEDT72,"^")_"' is inactive, but appears on Status Tracking.",!,"This is appropriate if you need to use Status Tracking to process cases in"
  • Line Location: 1+25
Function Call: WRITE
  • Prompt: !,"this status to complete. However, if you have a large number of historic",!,"cases in this status, it will cause response time problems in Status Tracking."
  • Line Location: 1+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 1+32
Function Call: WRITE
  • Prompt: !!?$L(RADASH),"Checking order numbers",!,RADASH,"and Default Next Status used for status progression",RADASH,!?11,"within : ",RAIMGTYJ
  • Line Location: XAMORD+2
Function Call: WRITE
  • Prompt: !!?5,"Error: A status with order number '"_I_"' to represent"
  • Line Location: XAMORD+9
Function Call: WRITE
  • Prompt: !?5,"'"_RASTAT_"' is MISSING for this imaging type.",$C(7)
  • Line Location: XAMORD+11
Function Call: WRITE
  • Prompt: !!?5,$P(RA0,U),"'s Default Next Status (",$P(RA2,U),")'s record is missing"
  • Line Location: XAMORD+19
Function Call: WRITE
  • Prompt: !!?5,$P(RA0,U),"'s Default Next Status (",$P(RA2,U),") is missing an ORDER no."
  • Line Location: XAMORD+20
Function Call: WRITE
  • Prompt: !
  • Line Location: XAMORD+24
Function Call: WRITE
  • Prompt: !!,RADASH_"Checking Exam Status names"_RADASH,!,?$L(RADASH),"within : ",RAIMGTYJ
  • Line Location: XAMORD+28
Function Call: WRITE
  • Prompt: !!?5,"Warning : The status with order number '"_I_"' was"
  • Line Location: XAMORD+35
Function Call: WRITE
  • Prompt: !?5,"named '"_$S(I=0:"CANCELLED",I=1:"WAITING FOR EXAM",1:"COMPLETE")_"', but is now named '",$P(^RA(72,J,0),U),"'",$C(7)
  • Line Location: XAMORD+37
Function Call: WRITE
  • Prompt: !!?5,"Exam Status names check complete"
  • Line Location: XAMORD+41
Routine Call
  • DIE
  • Line Location:
    • 1+23
Routine Call
  • DIC
  • Line Location:
    • 1+8
    • 1+20
Routine Call
  • DIR
  • Line Location:
    • HDH+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(72 - [#72] Classic Fileman Calls
^RA(79.2 - [#79.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] 1+24, XAMORD+5, XAMORD+15, XAMORD+17, XAMORD+30, XAMORD+31, XAMORD+32, XAMORD+33, XAMORD+37
^RA(78.4 - [#78.4] DSPLNKS+5, DSPLNKS+6, DSPLNKS+8, DSPLNKS+16

Label References

Name Line Occurrences
HDH DSPLNKS+40, DSPLNKS+44
HDR DSPLNKS+25, HDH+2
Q1 1+8
XAMORD 1+33

Naked Globals

Name Field # of Occurrence
^( XAMORD+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 1+28!, 1+30!
%X 1+28!
%Y 1+28!
C 1+28!, Q1!
D Q1!
D0 1+28!
DA 1+23*, 1+24, 1+28!
DDH Q1!
DE 1+28!
DI 1+28!
DIC 1+7*, 1+8!, 1+13*, 1+20!
DIC("A" 1+7*, 1+14*
DIC("DR" 1+14*
DIC("S" 1+15*
DIC("W" 1+19*
DIC(0 1+7*, 1+13*
DIE 1+23*, 1+28!
DINUM 1+12!
DIR HDH+1!
DIR(0 HDH+1*
DIROUT HDH+1!
DIRUT HDH+1!
DLAYGO 1+12!, 1+13*, 1+20!
DO 1+12!
DQ 1+28!
DR 1+23*, 1+28!
DTOUT HDH+1!, 1+30!
DUOUT HDH+1!, 1+30!, Q1!
I Q1!, XAMORD+4~*, XAMORD+5, XAMORD+7, XAMORD+9, XAMORD+14*, XAMORD+15*, XAMORD+29*, XAMORD+30, XAMORD+31
, XAMORD+32, XAMORD+33, XAMORD+35, XAMORD+37
IOF HDR+1, 1+32
IOM HDR+1, HDR+2, 1+5
IOSL DSPLNKS+40, XAMORD+1, XAMORD+8, XAMORD+10, XAMORD+12, XAMORD+18, XAMORD+19, XAMORD+20, XAMORD+23, XAMORD+27
, XAMORD+34, XAMORD+36, XAMORD+40
J XAMORD+4~, XAMORD+15*, XAMORD+30*, XAMORD+31, XAMORD+32, XAMORD+33, XAMORD+37
POP Q1!
RA DSPLNKS+4~
RA(0 DSPLNKS+6*, DSPLNKS+7
RA(1 DSPLNKS+7*, DSPLNKS+9, DSPLNKS+10, DSPLNKS+13
RA(11 DSPLNKS+8*, DSPLNKS+9, DSPLNKS+10, DSPLNKS+13
RA(5 DSPLNKS+7*, DSPLNKS+8
RA0 XAMORD+4~, XAMORD+15*, XAMORD+16, XAMORD+17, XAMORD+19, XAMORD+20
RA2 XAMORD+4~, XAMORD+17*, XAMORD+19, XAMORD+20
RADASH 1+31~*, XAMORD+2, XAMORD+28
RADATE 1+1~, 1+2*
RADICW 1+20!
RADICW(1 1+16*, 1+19
RADICW(2 1+17*, 1+19
RADICW(3 1+18*, 1+19
RAEDT72 1+24*, 1+25, 1+28!
RAEXST 1+28!
RAFS DSPLNKS+4~
RAFS( DSPLNKS+27, DSPLNKS+30
RAFS("LU" DSPLNKS+10*, DSPLNKS+17, DSPLNKS+21
RAFS("LW" DSPLNKS+10*, DSPLNKS+17
RAFS("UU" DSPLNKS+18*, DSPLNKS+21
RAFS("UW" DSPLNKS+13*, DSPLNKS+17, DSPLNKS+21
RAHDR 1+1~, 1+3*
RAIMGTYI 1+6~, 1+10*, 1+14
RAIMGTYJ 1+6~, 1+10*, 1+35, XAMORD+2, XAMORD+5, XAMORD+15, XAMORD+28, XAMORD+30
RALINE 1+1~, 1+5*
RANOERR 1+1~, 1+4*
RAORDXNM XAMORD+4~, XAMORD+29*, XAMORD+38*, XAMORD+39
RAORDXST 1+6~*, XAMORD+6*, XAMORD+19*, XAMORD+20*, XAMORD+22
RAOUT DSPLNKS+4~*, DSPLNKS+26, DSPLNKS+27, DSPLNKS+44, HDH+2*, 1+1~, 1+5*, 1+10*, 1+11, 1+21*
, 1+30!, 1+34*, XAMORD+1*, XAMORD+3*, XAMORD+4, XAMORD+8*, XAMORD+10*, XAMORD+12*, XAMORD+18*, XAMORD+19*
, XAMORD+20*, XAMORD+23*, XAMORD+27*, XAMORD+29, XAMORD+34*, XAMORD+36*, XAMORD+39, XAMORD+40*
RAPG 1+1~, 1+5*
RASTAT XAMORD+6~, XAMORD+7*, XAMORD+11
RAXSTIEN 1+23*, 1+30!, Q1!
U DSPLNKS+7, DSPLNKS+8, 1+10, 1+22, XAMORD+16, XAMORD+17, XAMORD+19, XAMORD+20, XAMORD+31, XAMORD+32
, XAMORD+33, XAMORD+37
X DSPLNKS+4~, DSPLNKS+5*, DSPLNKS+6, DSPLNKS+16*, DSPLNKS+17, DSPLNKS+18, DSPLNKS+22~, DSPLNKS+25, HDH+2, HDR~
, 1+28!, 1+30!
X(0 DSPLNKS+24*, DSPLNKS+25, HDR+1
X(1 DSPLNKS+23*, DSPLNKS+24, HDR+2
X(2 DSPLNKS+23*, DSPLNKS+24, HDR+2
Y DSPLNKS+4~, DSPLNKS+22~, HDH+2, 1+8, 1+10, 1+21, 1+22, 1+23, 1+28!, 1+30!
Y(0 1+22
Y1 DSPLNKS+22~, DSPLNKS+25*, HDH+2, HDR~, HDR+2
Z DSPLNKS+4~, DSPLNKS+22~, DSPLNKS+27*, DSPLNKS+29, DSPLNKS+30, DSPLNKS+33, DSPLNKS+38
Z(0 DSPLNKS+26*, DSPLNKS+27, DSPLNKS+28, DSPLNKS+30, DSPLNKS+32, DSPLNKS+36
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