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

Package: Radiology Nuclear Medicine

Routine: RART

Information

RART ;HISC/CAH,FPT,GJC AISC/MJK,TMP,RMO-Reporting Menu ; Sep 11, 2023@13:51:55

Source Information

Source file <RART.m>

Entry Points

Name	Comments	DBIA/ICR reference
3	;;Verify a Report
30
SS1
31
UNL31	; copy then unlock
32
PACS
TIME
Q
OERR1	; Jump to 'OERR1^RART1' This is necessary to support the reference to ; this line label in the OE/RR Notifications file.
PRTDX	; print dx codes on report display (called from RART1)
EXIT	; Kill variables created when user prints 'Abnormal Rad/Nuc Med Report ; Alert'. Variables are created when 'PRT^RARTR' is called.

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"Interpreting Residents are not allowed to verify reports." Line Location: 3+7
Function Call: WRITE	Prompt: !!?2,$C(7),"No report available!" Line Location: 30+0
Function Call: WRITE	Prompt: !!?2,$C(7),"Report already ",$S(I5="V":"verified",1:"electronically filed") Line Location: 30+1
Function Call: WRITE	Prompt: !,"Error: Cannot determine imaging type of exam.",! Line Location: 31+2
Function Call: WRITE	Prompt: !?3,"Primary Diagnostic Code: ",!?2,$S($D(^RA(78.3,+RADXCODE,0)):$P(^(0),U,1),1:"") Line Location: PRTDX+5
Function Call: WRITE	Prompt: ! Line Location: PRTDX+11
Function Call: WRITE	Prompt: !!?3,"Secondary Diagnostic Codes: " Line Location: PRTDX+12
Function Call: WRITE	Prompt: !?2,$P(^RA(78.3,RADXCODE,0),U,1) Line Location: PRTDX+15
Function Call: WRITE	Prompt: ! Line Location: PRTDX+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RARPT - [#74]	Classic Fileman Calls

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call