Routine: RAUTL19C

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

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

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

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

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

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

Name	Field # of Occurrence
^(	EN1+6

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*