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

Package: Radiology Nuclear Medicine

Routine: RAPROD1


Information

RAPROD1 ;HISC/FPT,GJC AISC/MJK,RMO-Detailed Exam View ;11/26/96 08:24

Source Information

Source file <RAPROD1.m>

Entry Points

Name Comments DBIA/ICR reference
PER ; Display personnel information.
ACT
ACT1
STAT
ASKSTA
TEXT
ASKTXT
Q ; kill and quit
STAT1 ; display status tracking info
CUMUL ; calculate time frame
STATHDR ; Print status tracking header
PERHDR ; Print personnel header
PERINFO(RADFN,RADTI,RACNI) ; Personnel information
; Pass back 0 if ok, 1 if interrupt
SECRES ; Secondary Resident data
SECSTF ; Secondary Staff data

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to display activity log? No// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' if activity log should be displayed, or 'NO' if not."
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: !!?23,"*** Exam Activity Log ***",!?2,"Date/Time",?25,"Action",?60,"Computer User",!?3,"Technologist comment",!?2,"---------------------",?25,"------",?60,"-------------"
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: !!?22,"*** Report Activity Log ***",!?2,"Date/Time",?25,"Action",?60,"Computer User",!?2,"---------",?25,"------",?60,"-------------"
  • Line Location: ACT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+10
Function Call: WRITE
  • Prompt: X
  • Line Location: ACT+10
Function Call: WRITE
  • Prompt: !?2,Y,?25,$E($P($P(^DD(RADD,2,0),$P(RAY,"^",2)_":",2),";"),1,33),?60,$E($S($D(^VA(200,+$P(RAY,"^",3),0)):$P(^(0),"^"),1:"Unknown"),1,18)
  • Line Location: ACT1+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to display exam status tracking log? No// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKSTA+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' if exam status tracking log should be displayed, or 'NO' if not."
  • Line Location: ASKSTA+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSTA+6
Function Call: WRITE
  • Prompt: X
  • Line Location: ASKSTA+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to display exam report text? No// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKTXT+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' if report text should be displayed, or 'NO' if not."
  • Line Location: ASKTXT+0
Function Call: WRITE
  • Prompt: !?2,$S($D(^RA(72,+$P(RA,"^",2),0)):$E($P(^(0),"^"),1,20),1:"Unknown"),?25,Y
  • Line Location: STAT1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STATHDR+1
Function Call: WRITE
  • Prompt: !!,?23,"*** Exam Status Tracking Log ***",!,?47,"Elapsed Time",?61,"Cumulative Time",!,?2,"Status",?25,"Date/Time",?48,"(DD:HH:MM)",?64,"(DD:HH:MM)",!,?2,"------",?25,"---------",?47,"------------",?61,"---------------"
  • Line Location: STATHDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PERHDR+1
Function Call: WRITE
  • Prompt: !?(IOM-$L(X)\2),X,!,Y
  • Line Location: PERHDR+3
Function Call: WRITE
  • Prompt: !,"Primary Int'g Resident: ",RAPIR
  • Line Location: PERINFO+22
Function Call: WRITE
  • Prompt: !,"Primary Int'g Staff : ",RAPIS
  • Line Location: PERINFO+23
Function Call: WRITE
  • Prompt: !,"Pre-Verifier: ",RAPRE," ",RAPRE("DT")
  • Line Location: PERINFO+24
Function Call: WRITE
  • Prompt: !,"Verifier : ",RAVER," ",RAVER("DT"),!
  • Line Location: PERINFO+25
Function Call: WRITE
  • Prompt: !,"None",?40,"None"
  • Line Location: PERINFO+29
Function Call: WRITE
  • Prompt: !
  • Line Location: PERINFO+37
Function Call: WRITE
  • Prompt: !
  • Line Location: PERINFO+44
Function Call: WRITE
  • Prompt: !,"None",?40,RATRAN
  • Line Location: PERINFO+45
Function Call: WRITE
  • Prompt: RATXT
  • Line Location: SECRES+3
Function Call: WRITE
  • Prompt: $S($D(^VA(200,+RASIR(0),0)):$P(^(0),"^"),1:"")
  • Line Location: SECRES+6
Function Call: WRITE
  • Prompt: ?40,RATXT
  • Line Location: SECSTF+3
Function Call: WRITE
  • Prompt: ?40,$S($D(^VA(200,+RASIS(0),0)):$P(^(0),"^"),1:"")
  • Line Location: SECSTF+6
Info |  Source |  Entry Points |  Interaction Calls