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

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
ASK1	; ask user if want to put CPT modifiers as separate line items
ROOM
P	; physicians
RES
SUM
RSPTR	; select res/staff/phy/tech/room to include in workload rpts ; Creates ^TMP($J,"RAFLD",File 200 NAME)=""
PHY
START	; start processing
ASKSUM	;
TECH
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
RST	; resident/staff/tech
KILL	;
STAFF

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

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

Name	Line Occurrences
$$PRI	ASKSUM+4
ASK1	STAFF
KILL	RSPTR+6, RSPTR+9, RSPTR+11
P	RSPTR+9
RAWKL	TECH, RES, STAFF+1, PHY, ROOM
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	SUM, ASKSUM+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*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAWKL

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: