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

Entry Points

Name Comments DBIA/ICR reference
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.
HDH ; EOS prompt
HDR(X,Y1) ; Header
1 ; Set-up/Edit the Examination Status file (72).
Q1
XAMORD ; check order number inconsistency for order # 0,1,9

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(72 - [#72] Classic Fileman Calls
^RA(79.2 - [#79.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call