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

Package: Radiology Nuclear Medicine

Routine: RAUTL19C


Information

RAUTL19C ;HISC/GJC-Utility Routine ;10/29/97 12:42

Source Information

Source file <RAUTL19C.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Radiology Nuclear Medicine 6 XAMORD^RAMAIN1  HEAD^RAUTL11  ($$ASKPRI,CKPRNTR,NOTNEED,WRPAIR,WRWAIT)^RAUTL19  CKOTHER^RAUTL19A  (CKCOMP,CKREQD)^RAUTL19B  $$EOS^RAUTL5  
Kernel 2 ^%ZISC  $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RAUTL19  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Check data consistency
CKPAIR ; when field I is Y, then field J must also be Y at current/lower status
CKWAIT ; CKWAIT is only done for WAITING FOR EXAM and assumes order seq = 1

External References

Name Field # of Occurrence
^%ZISC EN1+46
XAMORD^RAMAIN1 EN1+41
HEAD^RAUTL11 EN1+2, EN1+43, CKPAIR+6, CKPAIR+8, CKPAIR+10, CKPAIR+12, CKWAIT+2, CKWAIT+3, CKWAIT+5, CKWAIT+7
, CKWAIT+9, CKWAIT+11
$$ASKPRI^RAUTL19 CKPAIR+5
CKPRNTR^RAUTL19 EN1+32
NOTNEED^RAUTL19 EN1+33
WRPAIR^RAUTL19 CKPAIR+5
WRWAIT^RAUTL19 CKWAIT+3, CKWAIT+5, CKWAIT+7, CKWAIT+9, CKWAIT+11
CKOTHER^RAUTL19A EN1+39
CKCOMP^RAUTL19B EN1+37
CKREQD^RAUTL19B EN1+38
$$EOS^RAUTL5 EN1+43, CKPAIR+6, CKPAIR+8, CKPAIR+10, CKPAIR+12, CKWAIT+2, CKWAIT+3, CKWAIT+5, CKWAIT+7, CKWAIT+9
, CKWAIT+11
$$UP^XLFSTR EN1+21, CKWAIT+3, CKWAIT+5, CKWAIT+7, CKWAIT+9, CKWAIT+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"<WARNING> -- Within "_RAIMG_", exam status '"_$P(RANODE(0),"^")_"'"
  • Line Location: EN1+22
Function Call: WRITE
  • Prompt: !?5,"Impression is required, but a report is not, so an exam"
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: !?5,"will be able to reach this status without a report.",!?5
  • Line Location: EN1+24
Function Call: WRITE
  • Prompt: "But if a report is entered, an impression will be required.",!
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: !!?(IOM-$L(RANOERR)\2),RANOERR
  • Line Location: EN1+44
Function Call: WRITE
  • Prompt: !!?5,"Within "_RAIMG_", exam status '"_$P(RANODE(0),"^")_"'"
  • Line Location: CKPAIR+7
Function Call: WRITE
  • Prompt: !?5,"order ("_RAO_") '"_$P($G(^DD(72,I,.1)),U)_"' is set to 'Yes'"
  • Line Location: CKPAIR+9
Function Call: WRITE
  • Prompt: !?5,"but '"_$P($G(^DD(72,J,.1)),U)_"' is set to 'No'"
  • Line Location: CKPAIR+11
Function Call: WRITE
  • Prompt: !?5,"in this status and all lower active statuses."
  • Line Location: CKPAIR+13
Function Call: WRITE
  • Prompt: !?5,"'",$P($G(^DD(72,I,.1)),U),"'"
  • Line Location: CKWAIT+3
Function Call: WRITE
  • Prompt: !?5,"'",$P($G(^DD(72,I,.1)),U),"'"
  • Line Location: CKWAIT+5
Function Call: WRITE
  • Prompt: !?5,"'",$P($G(^DD(72,I,.1)),U),"'"
  • Line Location: CKWAIT+7
Function Call: WRITE
  • Prompt: !?5,"'",$P($G(^DD(72,I,.1)),U),"'"
  • Line Location: CKWAIT+9
Function Call: WRITE
  • Prompt: !!?5,"'",$P($G(^DD(72,.611,.1)),U),"' should NOT be Y",!,?5,"for status of ",$P(RANODE(0),U)
  • Line Location: CKWAIT+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(72 CKPAIR+9, CKPAIR+11, CKWAIT+3, CKWAIT+5, CKWAIT+7, CKWAIT+9, CKWAIT+11
^RA(72 - [#72] EN1+3, EN1+5, EN1+6
^RA(79.2 - [#79.2] EN1+33

Label References

Name Line Occurrences
CKPAIR EN1+15, EN1+18, EN1+28, EN1+31
CKWAIT EN1+10

Naked Globals

Name Field # of Occurrence
^( EN1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
I EN1+1~, EN1+9*, EN1+15*, EN1+18*, EN1+28*, EN1+31*, CKPAIR+3, CKPAIR+9, CKWAIT+1*, CKWAIT+3*
, CKWAIT+5*, CKWAIT+7*, CKWAIT+9*
IOM EN1+44
IOSL EN1+43, CKPAIR+6, CKPAIR+8, CKPAIR+10, CKPAIR+12, CKWAIT+2, CKWAIT+3, CKWAIT+5, CKWAIT+7, CKWAIT+9
, CKWAIT+11
J EN1+1~, EN1+15*, EN1+18*, EN1+28*, EN1+31*, CKPAIR+3, CKPAIR+5, CKPAIR+11, CKWAIT+3*, CKWAIT+5*
, CKWAIT+7*, CKWAIT+9*
RACHKERR EN1+1~, EN1+2*
RAERR EN1+1~, EN1+2*, EN1+42, CKPAIR+5*, CKWAIT+3*, CKWAIT+5*, CKWAIT+7*, CKWAIT+9*, CKWAIT+10, CKWAIT+11*
RAFLG EN1+1~, CKPAIR+1*, CKPAIR+5*
RAIEN EN1+1~, EN1+4*, EN1+5*, EN1+6
>> RAIMG EN1+3, EN1+5, EN1+22, EN1+37, EN1+38, EN1+39, CKPAIR+5, CKPAIR+7
RANO EN1+1~, EN1+2*, CKPAIR+3
RANODE EN1+1~
RANODE( EN1+6*, EN1+9, CKWAIT+1
RANODE(0 EN1+6*, EN1+10, EN1+22, EN1+33, CKPAIR+7, CKWAIT+10, CKWAIT+11
>> RANOERR EN1+44
RAO EN1+1~, EN1+3*, EN1+5, CKPAIR+5, CKPAIR+9
>> RAORDXST EN1+42
>> RAOUT EN1+3, EN1+5, EN1+10, EN1+15, EN1+16, EN1+19, EN1+28, EN1+29, EN1+31, EN1+32
, EN1+36, EN1+37, EN1+38, EN1+39, EN1+41, EN1+42, EN1+43*, CKPAIR+6*, CKPAIR+8*, CKPAIR+10*
, CKPAIR+12*, CKWAIT+2*, CKWAIT+3*, CKWAIT+4, CKWAIT+5*, CKWAIT+6, CKWAIT+7*, CKWAIT+8, CKWAIT+9*, CKWAIT+11*
RAPIECE EN1+1~, EN1+8!
RAPIECE( EN1+9*, EN1+21, EN1+32, CKPAIR+3, CKWAIT+1*, CKWAIT+3, CKWAIT+5, CKWAIT+7, CKWAIT+9, CKWAIT+11
RAWATERR EN1+1~, EN1+2*
RAYES EN1+1~, EN1+2*, CKPAIR+3
U EN1+10, EN1+33, CKPAIR+9, CKPAIR+11, CKWAIT+3, CKWAIT+5, CKWAIT+7, CKWAIT+9, CKWAIT+10, CKWAIT+11
>> ZTQUEUED EN1+46
>> ZTREQ EN1+46*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All