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
Print Page as PDF
Routine: RART1

Package: Radiology Nuclear Medicine

Routine: RART1


Information

RART1 ;HISC/GJC,SWM - Reporting Menu (Part 2) ; Feb 27, 2025@12:27:01

Source Information

Source file <RART1.m>

Entry Points

Name Comments DBIA/ICR reference
CHK
5 ;;Draft Report (Reprint)
6 ;;Display a Report By Patient
OERR ;entry from RA OERR PROFILE protocol
61
OERR1 ;Entry Point for Alert Follow-Up Action for OE/RR
DISP
DISP1
Q6
WRITE
WRITEHX(RAP) ; Get and write the clinical history
CHKDUPHX ; Check Duplicate History in file 70 and 74.
; Returns RADUPHX 1 = Duplicate
; 0 = Different
WAIT ; user input, goto top, print, or continue
LOCK(X,Y) ; Lock an entry
SETVARS ; Setup Rad/Nuc Med required variables

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,$C(7),"No report filed for case number ",RACN,"."
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !?3,$C(7),"Report for case number ",RACN," is not in a 'draft' status."
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !?3,$C(7),"Report filed for case number ",RACN," but not available for printing."
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !!?10,"Since the time you selected this group of reports,",!?10,$P($G(^VA(200,+$P(^RARPT(+RARPT,0),"^",9),0)),U)," has verified the report for "
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !?10,$P($G(^DPT(+$P(^RARPT(+RARPT,0),"^",2),0)),U)," case #",$P(^RARPT(+RARPT,0),"^"),".",$C(7)
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !?10,"Procedure ",$P(^(0),U)
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !?3,$C(7),"No report filed for case number",$S($D(RACN):" "_RACN,1:""),"."
  • Line Location: DISP+16
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: !?3,$C(7),"Report filed for case number ",RACN," but not available for display."
  • Line Location: DISP+21
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP1+0
Function Call: WRITE
  • Prompt: !,RANME," (",$$SSN^RAUTL,")",?39,"Case No. ",?55,": ",$P($G(^RARPT(RARPT,0)),"^")," @",$E(RADATE,$L(RADATE)-4,$L(RADATE))
  • Line Location: DISP1+7
Function Call: WRITE
  • Prompt: !,$E(RAPRC,1,40)
  • Line Location: DISP1+8
Function Call: WRITE
  • Prompt: ?39,"Transcriptionist",?55,": ",$E($P($G(^VA(200,+^RARPT(RARPT,"T"),0)),"^"),1,20)
  • Line Location: DISP1+8
Function Call: WRITE
  • Prompt: !,"Req. Phys : ",$E($P($G(^VA(200,+$P(R3,"^",14),0)),"^"),1,25)
  • Line Location: DISP1+10
Function Call: WRITE
  • Prompt: ?39,"Pre-verified",?55,": ",$S($D(^VA(200,RAPREVER,0)):$E($P($G(^VA(200,RAPREVER,0)),"^"),1,24),1:"NO")
  • Line Location: DISP1+11
Function Call: WRITE
  • Prompt: !,"**Prob Text: "
  • Line Location: DISP1+19
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",79)
  • Line Location: DISP1+25
Function Call: WRITE
  • Prompt: !?10,$$AMENRPT^RARTR2(),!
  • Line Location: DISP1+34
Function Call: WRITE
  • Prompt: !?3,"Clinical History:"
  • Line Location: DISP1+39
Function Call: WRITE
  • Prompt: !?3,"Additional Clinical History:"
  • Line Location: DISP1+49
Function Call: WRITE
  • Prompt: !?3,$S(RAP="R":"Report:",1:"Impression:")
  • Line Location: DISP1+55
Function Call: WRITE
  • Prompt: ?45,"Status: ",$$XTERNAL^RAUTL5(RAST,$P($G(^DD(74,5,0)),U,2))
  • Condition for execution: RAP="R"
  • Line Location: DISP1+55
Function Call: WRITE
  • Prompt: !!,$C(7),"Another user is editing this ",$S(X="R":"report (Case # "_Y_")",1:"exam (diagnostic code)"),". Please try again later."
  • Line Location: LOCK+1
Info |  Source |  Entry Points |  Interaction Calls