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

Package: Radiology Nuclear Medicine

Routine: RAPROD


Information

RAPROD ;HISC/FPT,GJC AISC/MJK-Detailed Exam View ; 5/9/13 2:02pm

Source Information

Source file <RAPROD.m>

Entry Points

Name Comments DBIA/ICR reference
START
VIEW
PRCCPT ; display Proc's abbrv, proc type, CPT
SETL ;Set long display preference
DEL150 ;Delete user ien from 1st record in file 79's field 150
; note: DIK utility looks for DA(1) here
STUF150 ;Stuff user ien into 1st record in file 79's field 150
CDIS ; set up RACDIS array to store 1st non-duplicate proc+pmod+cptmod
LDIS ; See if user prefers Long Display of Procedures
LIST ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEW+0
Function Call: WRITE
  • Prompt: X
  • Line Location: VIEW+0
Function Call: WRITE
  • Prompt: !?2,"Name : ",RANME," ",RASSN
  • Line Location: VIEW+1
Function Call: WRITE
  • Prompt: !?2,"Division : ",$E(RA("DIV"),1,20),?40,"Category : ",RA("CAT")
  • Line Location: VIEW+2
Function Call: WRITE
  • Prompt: !?2,"Location : ",$S($D(^SC(+RA("LOC"),0)):$P(^(0),"^"),1:"Unknown"),?40,"Ward : ",$E(RA("WRD"),1,24)
  • Line Location: VIEW+3
Function Call: WRITE
  • Prompt: !?2,"Exam Date : ",RADATE,?40,"Service : ",$E(RA("SERV"),1,24)
  • Line Location: VIEW+4
Function Call: WRITE
  • Prompt: !?2,"Case No. : ",RACNDSP
  • Line Location: VIEW+7
Function Call: WRITE
  • Prompt: ?40,"Bedsection : ",$E(RA("BED"),1,24)
  • Line Location: VIEW+7
Function Call: WRITE
  • Prompt: !?2,"Case No. : ",RACN
  • Line Location: VIEW+8
Function Call: WRITE
  • Prompt: ?40,"Bedsection : ",$E(RA("BED"),1,24)
  • Line Location: VIEW+8
Function Call: WRITE
  • Prompt: !?40,"Clinic : ",$E(RA("CL"),1,24)
  • Line Location: VIEW+9
Function Call: WRITE
  • Prompt: !?40,$E($S("C"=Y:"Contract : "_RA("CONT"),"S"=Y:"Sharing : "_RA("CONT"),"R"=Y:"Research : "_RA("REA"),1:""),1,38)
  • Line Location: VIEW+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>1
  • Line Location: VIEW+11
Function Call: WRITE
  • Prompt: X
  • Line Location: VIEW+11
Function Call: WRITE
  • Prompt: !?2,"Registered : ",$E(RAPRC,1,60)
  • Line Location: VIEW+12
Function Call: WRITE
  • Prompt: !?2,"Requesting Phy: ",$E(RA("PHY"),1,20),?40,"Exam Status : ",$S($D(^RA(72,RAST,0)):$E($P(^(0),"^"),1,24),1:"")
  • Line Location: VIEW+14
Function Call: WRITE
  • Prompt: !?2,"Int'g Resident: ",$E(RA("RES"),1,20),?40,"Report Status: ",$E(RA("RST"),1,21)
  • Line Location: VIEW+15
Function Call: WRITE
  • Prompt: !?2,"Pre-Verified : ",$E($S($D(^VA(200,RAPREVER,0)):$P(^(0),"^",1),1:"NO"),1,20),?40,"Cam/Equip/Rm : ",$E(RA("RM"),1,20)
  • Line Location: VIEW+17
Function Call: WRITE
  • Prompt: !?2,"Int'g Staff : ",$E(RA("STAFF"),1,20),?40,"Diagnosis : ",$E(RA("DIA"),1,24)
  • Line Location: VIEW+18
Function Call: WRITE
  • Prompt: !?2,"Technologist : ",$E(RA("TECH"),1,20),?40,"Complication : ",$E(RA("CMP"),1,24)
  • Line Location: VIEW+19
Function Call: WRITE
  • Prompt: ?18,$E(RA("COMP"),I,I+59)
  • Line Location: VIEW+20
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+22
Function Call: WRITE
  • Prompt: ?55,$S($D(^RA(78.4,+$P(X,"^"),0)):$P(^(0),"^"),1:"Unknown")," - ",+$P(X,"^",2),!
  • Line Location: VIEW+26
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>1
  • Line Location: VIEW+27
Function Call: WRITE
  • Prompt: X
  • Line Location: VIEW+27
Function Call: WRITE
  • Prompt: "Modifiers"
  • Line Location: VIEW+28
Function Call: WRITE
  • Prompt: $E(X,1,32)
  • Line Location: VIEW+28
Function Call: WRITE
  • Prompt: ?18,$P(Y,", ",I),!
  • Line Location: VIEW+29
Function Call: WRITE
  • Prompt: !?2,"CPT Modifiers : "
  • Line Location: VIEW+31
Function Call: WRITE
  • Prompt: Y(1),!
  • Condition for execution: Y(1)="None"
  • Line Location: VIEW+31
Function Call: WRITE
  • Prompt: ?18,$P(J,"^",2)," ",$P(J,"^",3),!
  • Line Location: VIEW+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEW+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEW+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEW+34
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+34
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+50
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+52
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>1
  • Line Location: VIEW+54
Function Call: WRITE
  • Prompt: X
  • Line Location: VIEW+54
Function Call: WRITE
  • Prompt: ?54,RADISPLY
  • Line Location: PRCCPT+6
Function Call: WRITE
  • Prompt: !!,"Your preference for Long Display of Procedures has already been set."
  • Line Location: SETL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SETL+14
Function Call: WRITE
  • Prompt: !!,"Your preference for Long Display of Procedures has been removed.",!
  • Line Location: DEL150+9
Function Call: WRITE
  • Prompt: !!,"Your preference for Long Display of Procedures has been set.",!
  • Line Location: STUF150+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAO(75.1 - [#75.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call