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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RAWKL

Package: Radiology Nuclear Medicine

Routine: RAWKL


Information

RAWKL ;HISC/FPT AISC/MJK,RMO-Workload Reports ;12/27/00 11:00

Source Information

Source file <RAWKL.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Radiology Nuclear Medicine 10 DISPXAM^RALWKL1  IT^RALWKL2  $$ALLNOTH^RALWKL3  SETVARS^RAPSET1  EN1^RASELCT  (D,DATE,ZIS)^RAUTL  CRIT^RAUTL1  $$DIVLOC^RAUTL7  
RADFN^RAWKL1  (,Q)^RAWKL2  
VA FileMan 2 ^%DT  ^DIR  
Kernel 1 $$REPEAT^XLFSTR  

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

Package Total Caller Graph
Radiology Nuclear Medicine 6 RA WKLPHY  RA WKLRES  RA WKLROOM  RA WKLSTAFF  RA WKLTECH  RACPT1  

Entry Points

Name Comments DBIA/ICR reference
SUM
ASKSUM ;
START ; start processing
TECH
RES
STAFF
PHY
ROOM
RSPTR ; select res/staff/phy/tech/room to include in workload rpts
; Creates ^TMP($J,"RAFLD",File 200 NAME)=""
KILL ;
RST ; resident/staff/tech
P ; physicians
PRI(RACLS) ; Ask user to include Pri. Res/Staff only in the
; 'Interpreting Res/Staff' report
; Input: RACLS-> 'Resident' or 'Staff'
; Returns: 1 if Pri. Staff only, 0 if Pri. & Sec. Staff included, and
; -1 if exiting without a report
ASK1 ; ask user if want to put CPT modifiers as separate line items

External References

Name Field # of Occurrence
^%DT START+5
^DIR ASKSUM+2, PRI+10, ASK1+4
DISPXAM^RALWKL1 ASKSUM+22
IT^RALWKL2 ASKSUM+13
$$ALLNOTH^RALWKL3 ASKSUM+17
SETVARS^RAPSET1 RAWKL+3
EN1^RASELCT RSPTR+21
D^RAUTL START+3, START+4, START+5
DATE^RAUTL ASKSUM+21
ZIS^RAUTL ASKSUM+25
CRIT^RAUTL1 START+6
$$DIVLOC^RAUTL7 ASKSUM+8
RADFN^RAWKL1 START+10
^RAWKL2 START+11
Q^RAWKL2 ASKSUM+2, ASKSUM+4, ASKSUM+8, ASKSUM+17, ASKSUM+18, ASKSUM+21, ASKSUM+22, ASKSUM+25, STAFF
$$REPEAT^XLFSTR START+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,RATITLE," Workload Report:",!,X,$E(X,1,$L(RATITLE))
  • Line Location: SUM+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSUM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSUM+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PRI+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK1+4
Routine Call
  • DIR
  • Line Location:
    • ASKSUM+2
    • PRI+10
    • ASK1+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(78.6 - [#78.6] RSPTR+11
^RADPT("AR" START+10
^TMP($J SUM!, ASKSUM+10, ASKSUM+13*, ASKSUM+19, START+1!, START+8*, RSPTR+2!, RSPTR+11*, RST+1*, P+1*
^VA(200 - [#200] RSPTR+5, RST+1, P+1
^XUSEC("PROVIDER" RSPTR+8, P+1

Label References

Name Line Occurrences
$$PRI ASKSUM+4
ASK1 STAFF
KILL RSPTR+6, RSPTR+9, RSPTR+11
P RSPTR+9
RAWKL TECHRESSTAFF+1, PHYROOM
RSPTR ASKSUM+18
RST RSPTR+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+5*!
%W KILL+1!
%Y1 KILL+1!
A ASKSUM+9*, ASKSUM+10, ASKSUM+12, ASKSUM+16!
A1 ASKSUM+10*, ASKSUM+11, ASKSUM+13, ASKSUM+16!
B ASKSUM+11*, ASKSUM+12*, ASKSUM+13, ASKSUM+16!
B1 ASKSUM+13, ASKSUM+16!
>> BEGDATE START+2, START+3*
DIC KILL+1!
DIR ASKSUM+1!, ASKSUM+2!, PRI+5!, PRI+10!, ASK1+1!, ASK1+4!
DIR("?" ASKSUM+1*, PRI+7*, PRI+8*, PRI+9*, ASK1+3*
DIR("A" ASKSUM+1*, PRI+6*, ASK1+2*
DIR("B" ASKSUM+1*, PRI+6*, ASK1+1*
DIR(0 ASKSUM+1*, PRI+6*, ASK1+1*
DIROUT ASKSUM+7!, PRI+5!, PRI+10!
DIRUT ASKSUM+2, ASKSUM+7!, STAFF, PRI+5!, PRI+10!
DTOUT ASKSUM+7!, PRI+5!, PRI+10!
DUOUT ASKSUM+7!, PRI+5!, PRI+10!
DUZ RAWKL+3, ASKSUM+9, ASKSUM+12, ASKSUM+16
>> ENDDATE START+2, START+4*
IO START+1
>> RA80DASH START+2*
>> RABEG START+2*, START+10
RACCESS( RAWKL+3, ASKSUM+9, ASKSUM+12, ASKSUM+16!
RACLS PRI~, PRI+6, PRI+7, PRI+8
>> RACMLIST ASK1+5*
RACNT RSPTR+3*, RSPTR+5*, RSPTR+6, RSPTR+8*, RSPTR+9, KILL+1!
>> RACPT START+6*
>> RACRT ASKSUM+22, TECH*, RES*, STAFF*, PHY*, ROOM*, RSPTR+5, RSPTR+8, RSPTR+11, RSPTR+12
RSPTR+13, RSPTR+16, RSPTR+17, RSPTR+18, RSPTR+19
RADIC RSPTR+12*, RSPTR+13*, RSPTR+21, KILL+1!
RADIC("A" RSPTR+15*
RADIC("S" RSPTR+16*, RSPTR+17*, RSPTR+18*, RSPTR+19*
RADIC(0 RSPTR+14*
>> RADTE START+10*
>> RADTI START+10*
>> RAEND START+2*, START+10
RAEOS START+1!, START+10, START+11
>> RAFILE TECH*, RES*, STAFF*, PHY*, ROOM*
>> RAFL TECH*, ROOM*
RAFL1 SUM!, ASKSUM+6*
>> RAFLDCNT ASKSUM+19*
RAIEN RSPTR+11*, KILL+1!, RST+1*, P+1*
>> RAINPUT ASKSUM+17*, ASKSUM+18, ASKSUM+19, RSPTR+21
>> RAITCNT START+7*
>> RAITCNT( START+8*
RALP ASKSUM+19*, ASKSUM+20!, START+7*, START+8*, START+9!
RALP1 START+8*, START+9!
RAONECHK RSPTR+5*, RSPTR+8*, RSPTR+11*, KILL+1!
RAONENME RSPTR+11*, KILL+1!, RST+1*, P+1*
>> RAPCE TECH*, RES*, STAFF*, PHY*, ROOM*
>> RAPOP ASKSUM+21, ASKSUM+25
RAPRIM ASKSUM+3, ASKSUM+4*, RES~, STAFF~
>> RAPSTX RAWKL+3*
>> RAQUIT ASKSUM+18
>> RARUNDTE START+5*
RASUBSPT RSPTR+5*, KILL+1!, RST+1
>> RASV ASKSUM+24*
>> RATITLE SUMASKSUM+3, ASKSUM+4, ASKSUM+23, TECH*, RES*, STAFF*, PHY*, ROOM*, RSPTR+15
RAUTIL RSPTR+20*, RSPTR+21, KILL+1!
>> RAXIT ASKSUM+22*
U RSPTR+11, RST+1, P+1
X SUM*, ASKSUM+8*, START+5*, KILL+1!, PRI+5~
Y ASKSUM+6, START+3*, START+4*, START+5, KILL+1!, PRI+5~, PRI+10*, PRI+11, ASK1+5
>> ZTDESC ASKSUM+23*
>> ZTQUEUED START+1
>> ZTREQ START+1*
>> ZTRTN ASKSUM+23*
>> ZTSAVE( ASKSUM+24*
>> ZTSAVE("RAFL*" ASKSUM+23*
>> ZTSAVE("^TMP($J,""RAFLD""," ASKSUM+23*
>> ZTSAVE("^TMP($J,""RAWKL""," ASKSUM+23*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All