Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RAKRDIT

Package: Radiology Nuclear Medicine

Routine: RAKRDIT


Information

RAKRDIT ;Hines OI/GJC-pass exam info within a date range, to PCE

Source Information

Source file <RAKRDIT.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 (,$$S)^%ZTLOAD  ($$DT,$$FMADD,$$FMTE,$$HTE)^XLFDT  
Radiology Nuclear Medicine 2 COMPLETE^RAPCE  $$EN1^RASETU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RA CREDIT IMAGING LOCATION  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;DBIA 3445 read from file 42
IMGLOC
DATE1
DATE2
QUEUED ;begin checking for uncredited exams...
EXAMS
KILL ; kill local variables, clean up partition
ELIG(RAY3) ;Is this record eligible to be credited? If so, the CLINIC
CREDITM(RADFN,RADTI,RACNI) ;Change the CREDIT METHOD (DD: 70.03, fld: 26)
XAMSET(RADFN,RADTI) ; change CREDIT METHOD from No Credit to Regular Credit

External References

Name Field # of Occurrence
^%ZTLOAD DATE2+12
$$S^%ZTLOAD EXAMS+22, EXAMS+30, EXAMS+32, EXAMS+34, EXAMS+36
^DIC IMGLOC+6
FILE^DIE CREDITM+8
$$GET1^DIQ ELIG+10
^DIR DATE1+3, DATE2+4
COMPLETE^RAPCE EXAMS+20, EXAMS+28
$$EN1^RASETU EXAMS+14
$$DT^XLFDT IMGLOC+3
$$FMADD^XLFDT DATE2+8
$$FMTE^XLFDT DATE2+3
$$HTE^XLFDT DATE2+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?2,"Select an Imaging Location from the IMAGING LOCATIONS (#79.1)"
  • Line Location: IMGLOC+0
Function Call: WRITE
  • Prompt: !?2,"file that is active, receives regular credit, and has a valid"
  • Line Location: IMGLOC+1
Function Call: WRITE
  • Prompt: !?2,"DSS ID.",!
  • Line Location: IMGLOC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE2+12
Routine Call
  • DIC
  • Line Location:
    • IMGLOC+6
Routine Call
  • DIE
  • Line Location:
    • CREDITM+8
Routine Call
  • DIR
  • Line Location:
    • DATE1+3
    • DATE2+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] GET1^DIQ
^RA(79.1 - [#79.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] ELIG+5
^RADPT - [#70] EXAMS+6, EXAMS+12, EXAMS+13, EXAMS+25, EXAMS+26, EXAMS+29, XAMSET+3, XAMSET+4
^RADPT("AR" EXAMS, EXAMS+3, EXAMS+5

Label References

Name Line Occurrences
$$ELIG EXAMS+19, EXAMS+27
CREDITM EXAMS+29, XAMSET+4
KILL IMGLOC+7, DATE1+4, DATE2+5, DATE2+16
XAMSET EXAMS+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC IMGLOC+3!*, IMGLOC+6!, KILL+1!
DIC("A" IMGLOC+5*
DIC("S" IMGLOC+4*
DIC(0 IMGLOC+6*
DIR DATE1!, DATE1+3!, DATE2!, DATE2+4!
DIR("?" DATE1+1*, DATE1+2*, DATE2+2*, DATE2+3*
DIR("A" DATE1+2*, DATE2+1*
DIR(0 DATE1*, DATE2*
DIRUT DATE1+4, DATE2+5, KILL+1!
DTOUT KILL+1!
DUOUT KILL+1!
I DATE2+11*, KILL+1!
RACNI EXAMS+8*, EXAMS+12*, EXAMS+13, EXAMS+20, EXAMS+25*, EXAMS+26, EXAMS+28, EXAMS+29, CREDITM~, CREDITM+7
, XAMSET+2~*, XAMSET+3*, XAMSET+4
RADFN EXAMS+2*, EXAMS+3*, EXAMS+5, EXAMS+6, EXAMS+12, EXAMS+13, EXAMS+14, EXAMS+20, EXAMS+21, EXAMS+25
, EXAMS+26, EXAMS+28, EXAMS+29, KILL+1!, CREDITM~, CREDITM+7, XAMSET~, XAMSET+3, XAMSET+4
RADTE DATE1+7*, EXAMS*, EXAMS+3, EXAMS+5, KILL+1!
RADTI EXAMS+4*, EXAMS+5*, EXAMS+6, EXAMS+12, EXAMS+13, EXAMS+20, EXAMS+21, EXAMS+25, EXAMS+26, EXAMS+28
, EXAMS+29, KILL+1!, CREDITM~, CREDITM+7, XAMSET~, XAMSET+3, XAMSET+4
RAEND DATE2+8*, EXAMS, KILL+1!
RAFDA CREDITM+7~
RAFDA( CREDITM+7*
RAILOC IMGLOC+10*, EXAMS+7, KILL+1!
RASTRT DATE1+7*, DATE2, DATE2+3, KILL+1!
RATDY IMGLOC+3*, DATE1, DATE2, KILL+1!
RAXIT QUEUED+1*, EXAMS+3, EXAMS+5, EXAMS+22*, EXAMS+25, EXAMS+30*, EXAMS+32*, EXAMS+34*, EXAMS+36*, KILL+2!
RAXSET EXAMS+6*, EXAMS+11*, KILL+2!, ELIG+5
RAY2 EXAMS+6*, EXAMS+7, EXAMS+11, KILL+2!
RAY3 EXAMS+13*, EXAMS+14, EXAMS+19, EXAMS+26*, EXAMS+27, KILL+2!, ELIG~, ELIG+5, ELIG+9, ELIG+10
U QUEUED+1*, EXAMS+14, EXAMS+29, ELIG+5, XAMSET+4
X KILL+2!
Y IMGLOC+7, IMGLOC+10, DATE1+7, DATE2+8, KILL+2!
Y(0 IMGLOC+10
ZTDESC DATE2+10*, DATE2+16!
ZTIO DATE2+10*, DATE2+16!
>> ZTQUEUED QUEUED+1
>> ZTREQ QUEUED+1*
ZTRTN DATE2+10*, DATE2+16!
ZTSAVE DATE2+16!
ZTSAVE( DATE2+11*
ZTSK DATE2+13, DATE2+14, DATE2+16!
ZTSK("D" DATE2+14
>> ZTSTOP EXAMS+22*, EXAMS+30*, EXAMS+32*, EXAMS+34*, EXAMS+36*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All