Routine: SCRPW47

Information

SCRPW47 ;RENO/KEITH/MLR - Outpatient Diagnosis/Procedure Code Search (cont.) ; 9/29/00 12:34pm

Source Information

Source file <SCRPW47.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Scheduling	5	BLD^SCRPW21 DISP0^SCRPW23 WRAP^SCRPW45 (DHDR,HDR,HINI)^SCRPW46 END^SCRPW50
Kernel	1	$$S^%ZTLOAD
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Scheduling	2	SCRPW45 SCRPW46

Entry Points

Name	Comments	DBIA/ICR reference
PATIENT	;Prints Patient Diagnosis/Procedures for all Types of Detail
HDR
DPRT1	;Prints name & ss# of line detail
APF(SDY,SDOE0,SDC)	;Print additional print fields
VISIT	;Printing Type of Detail: Visits
STOP	;Check for stop task request
DPRT(SDV)	;Print report for a division
ENCNTR	;Printing Type of Detail: ENCOUNTER
HD1	;Report subheader
EXIT
PD1(SDI)	;Print parameters
PDP(SDT,SDX,SDP,SDL,SDL1)	;Print parameter display line
WAIT	;Do CRT pause

Name	Field # of Occurrence
$$S^%ZTLOAD	STOP+1
^DIR	SCRPW47+47, WAIT+1
BLD^SCRPW21	SCRPW47+23
DISP0^SCRPW23	SCRPW47+20, SCRPW47+43
WRAP^SCRPW45	PD1+12
DHDR^SCRPW46	DPRT+3
HDR^SCRPW46	HDR
HINI^SCRPW46	SCRPW47+23
END^SCRPW50	EXIT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?(IOM-$L(SDX)\2),SDX Line Location: SCRPW47+30
Function Call: WRITE	Prompt: ! Line Location: SCRPW47+47
Function Call: WRITE	Prompt: !?(SDCOL),"Patient/Division:",?(SDCOL+26),"SSN:" Line Location: HD1+2
Function Call: WRITE	Prompt: ?(SDCOL+38),$S('$D(SD("LIST","P")):"Diagnoses:",'$D(SD("LIST","D")):"Procedures/Modifiers:",1:"Diagnoses/Procedures:") Line Location: HD1+3
Function Call: WRITE	Prompt: !?(SDCOL),$E(SDLINE,1,24),?(SDCOL+26),$E(SDLINE,1,10) Line Location: HD1+4
Function Call: WRITE	Prompt: ?(SDCOL+38),$E(SDLINE,1,42) Line Location: HD1+5
Function Call: WRITE	Prompt: !!?(IOM-$L(SDX)\2),SDX Line Location: DPRT+6
Function Call: WRITE	Prompt: ! Line Location: DPRT+14
Function Call: WRITE	Prompt: !?(SDCOL),$E(SDLINE,1,80) Line Location: DPRT+15
Function Call: WRITE	Prompt: !?(SDCOL),"TOTAL PATIENTS IDENTIFIED: ",SDCT Line Location: DPRT+16
Function Call: WRITE	Prompt: !?(SDCOL),"MULTI-DIVISION PATIENTS: ",SDDCT-SDCT Line Location: DPRT+17
Function Call: WRITE	Prompt: !?(SDCOL),$E(SDPNAM2,1,24) Line Location: DPRT1+2
Function Call: WRITE	Prompt: ?(SDCOL+26),SDSSN Line Location: DPRT1+3
Function Call: WRITE	Prompt: ! Line Location: PATIENT+6
Function Call: WRITE	Prompt: ?(SDCOL+38),$E($S(SDI="DR":"Dx: ",1:"Proc.: ")_SDII,1,42) Line Location: PATIENT+8
Function Call: WRITE	Prompt: !,?(SDCOL+47),"-",$E(SDII2,1,32) Line Location: PATIENT+15
Function Call: WRITE	Prompt: !?(SDCOL+10),"Visit: ",Y Line Location: VISIT+4
Function Call: WRITE	Prompt: !?(SDCOL+10),"Encounter: ",$P(Y,":",1,2) Line Location: ENCNTR+7
Function Call: WRITE	Prompt: ?(SDCOL+40),SDLOC Line Location: ENCNTR+8
Function Call: WRITE	Prompt: !?(SDCOL+SDC),$P(SDY,U,3),":" Line Location: APF+5
Function Call: WRITE	Prompt: ! Condition for execution: SDLF Line Location: APF+8
Function Call: WRITE	Prompt: ?(SDCOL+SDC1),$E($P(SDX(SDX),U,2),1,(80-SDC1)) Line Location: APF+8
Function Call: WRITE	Prompt: !?(IOM-$L(SDX)\2),SDX Line Location: PD1+15
Function Call: WRITE	Prompt: ! Line Location: PDP+8
Function Call: WRITE	Prompt: ?(IOM\2-1),$P(SDX,U,SDP) Line Location: PDP+9
Function Call: WRITE	Prompt: ! Line Location: WAIT+1
Routine Call	DIR Line Location: SCRPW47+47 WAIT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	VISIT+4, ENCNTR+7
^DG(40.8 - [#40.8]	SCRPW47+38
^DPT - [#2]	SCRPW47+16
^SC - [#44]	ENCNTR+6
^TMP("SCRPW"	SCRPW47+9, SCRPW47+10, SCRPW47+11, SCRPW47+14, SCRPW47+17*, SCRPW47+27, SCRPW47+37, SCRPW47+46, DPRT+4, DPRT+8 , DPRT+9, DPRT+11, DPRT+12, PATIENT+1, PATIENT+2, PATIENT+11, PATIENT+13, VISIT+2, ENCNTR+2, ENCNTR+3 , ENCNTR+5, APF+6

Label References

Name	Line Occurrences
APF	PATIENT+18, ENCNTR+9
DPRT	SCRPW47+45, SCRPW47+46
DPRT1	DPRT+14
ENCNTR	DPRT1+9
EXIT	SCRPW47+19, SCRPW47+25, SCRPW47+27, SCRPW47+28, SCRPW47+46
HD1	DPRT+7, DPRT1+1, PATIENT+3, PATIENT+14, VISIT+3, ENCNTR+4, APF+5, APF+8
HDR	SCRPW47+25, SCRPW47+28, DPRT+3, DPRT1+1, PATIENT+3, PATIENT+14, VISIT+3, ENCNTR+4, APF+5, APF+8 , PD1+14, PDP+7
PATIENT	DPRT1+7
PD1	SCRPW47+25
PDP	PD1+2, PD1+3, PD1+4, PD1+5, PD1+7, PD1+8, PD1+9, PD1+12, PD1+18, PD1+20
STOP	SCRPW47+15
VISIT	DPRT1+8
WAIT	PD1+13, PD1+21, PDP+6, PDP+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+1!
%DT	EXIT+1!
%H	EXIT+1!
%I	EXIT+1!
C	PD1+2~*
DFN	SCRPW47+10, SCRPW47+11, SCRPW47+14, SCRPW47+16, SCRPW47+17, EXIT+1!, DPRT+9, DPRT+11, DPRT+12, PATIENT+1 , PATIENT+2, PATIENT+11, PATIENT+13, PATIENT+18, VISIT+2, ENCNTR+2, ENCNTR+3, ENCNTR+5
DIC	EXIT+1!
DIR	SCRPW47+47~, EXIT+1!, WAIT+1~
DIR(0	SCRPW47+47, WAIT+1
>> DIV0	SCRPW47+11, SCRPW47+14, SCRPW47+17, DPRT+10, DPRT+11*, DPRT+12, DPRT+13, PATIENT+1, PATIENT+2, PATIENT+6 , PATIENT+11, PATIENT+13, VISIT+2, ENCNTR+2, ENCNTR+3, ENCNTR+5
>> DIV1	SCRPW47+11, PATIENT+6
>> DIVB	DPRT+7*
DTOUT	EXIT+1!
DUOUT	EXIT+1!
IOM	SCRPW47+30, SCRPW47+43, DPRT+6, PD1+2, PD1+15, PDP+9
IOSL	DPRT1+1, PATIENT+3, PATIENT+14, VISIT+3, ENCNTR+4, APF+5, APF+8, PD1+14, PDP+7
IOST	SCRPW47+20, SCRPW47+43, SCRPW47+47, PD1+13, PD1+14, PD1+21, PDP+6, PDP+7, PDP+8
S1	EXIT+1!
S2	EXIT+1!
SD	EXIT+1!
SD("LIST"	HD1+3
SD("PBDT"	PD1+5
SD("PEDT"	PD1+5
SDACT	EXIT+1!, APF+4~, APF+6*, APF+7
SDAPF	EXIT+1!
SDAPF(	PD1+19, PD1+20
SDAPF(1	ENCNTR+9
SDAPF(2	PATIENT+18, ENCNTR+9
SDBAD	EXIT+1!
SDC	EXIT+1!, APF~, APF+5, APF+6
SDC1	EXIT+2!, APF+6*, APF+8
SDCL	EXIT+2!
SDCOL	SCRPW47+43*, EXIT+2!, HD1+2, HD1+3, HD1+4, HD1+5, DPRT+15, DPRT+16, DPRT+17, DPRT1+2 , DPRT1+3, PATIENT+8, PATIENT+15, VISIT+4, ENCNTR+7, ENCNTR+8, APF+5, APF+8
SDCPT	EXIT+2!
SDCRI	EXIT+2!
SDCRI(	PD1+11, PD1+12
SDCT	EXIT+2!, DPRT+7, DPRT+10, DPRT+16, DPRT+17
SDD	EXIT+2!
>> SDDCT	DPRT+7, DPRT+12, DPRT+17
SDDIV	SCRPW47+33, SCRPW47+36, SCRPW47+42, EXIT+2!, PD1+3
SDDIV(	SCRPW47+34, PD1+2, PD1+4
SDDX	EXIT+2!
SDEXE	EXIT+2!
SDF	EXIT+2!, DPRT+7*, DPRT1+8, DPRT1+9
SDFF	EXIT+2!
SDFMT	EXIT+8!, DPRT+7, PD1+18
SDI	SCRPW47+34, SCRPW47+37, SCRPW47+38, SCRPW47+40, EXIT+3!, PATIENT+1, PATIENT+2, PATIENT+8, PATIENT+11, PATIENT+13 , PATIENT+18, ENCNTR+9, APF+4~, PD1~, PD1+2, PD1+3, PD1+4, PD1+6, PD1+7, PD1+8 , PD1+9, PD1+11, PD1+12, PD1+19*, PD1+20
SDI2	EXIT+3!
SDII	EXIT+3!, PATIENT+2, PATIENT+8, PATIENT+11, PATIENT+13, PD1+8, PD1+12, PD1+15, PD1+19, PD1+20
SDII2	PATIENT+12~, PATIENT+13, PATIENT+15
SDIII	EXIT+3!, PD1+19, PD1+20
SDITX	EXIT+3!, PD1+12*
SDIV	SCRPW47+8~, SCRPW47+9, SCRPW47+10, SCRPW47+11, SCRPW47+17, EXIT+3!, DPRT+2*
SDIVL	SCRPW47+42, EXIT+3!
SDIVL(	SCRPW47+34, SCRPW47+40, SCRPW47+42*, SCRPW47+45
SDIVN	SCRPW47+44, SCRPW47+45, EXIT+3!
SDIXE	EXIT+3!
SDL	EXIT+3!, PDP~, PDP+9
SDL1	EXIT+3!, PDP~, PDP+8
SDLAB	EXIT+3!, PD1+8*
SDLAST	EXIT+4!
SDLF	EXIT+4!, DPRT1+4, PATIENT+5, PATIENT+8, APF+6, APF+8, PD1+2~, PD1+13, PDP+6, PDP+8
SDLINE	EXIT+4!, HD1+4, HD1+5, DPRT+15
SDLIST	EXIT+4!
SDLOC	EXIT+4!, ENCNTR+6*, ENCNTR+8
SDLTH	EXIT+4!
SDMD	SCRPW47+46*, EXIT+4!
SDNUL	EXIT+4!
SDOE	EXIT+4!, ENCNTR+3*, ENCNTR+5
SDOE0	EXIT+4!, PATIENT+18, ENCNTR+5, ENCNTR+6, ENCNTR+9, APF~
SDOTX	EXIT+4!, PD1+12
SDOTX(	PD1+12, PD1+15
SDOUT	SCRPW47+9, SCRPW47+10, SCRPW47+15, SCRPW47+19, SCRPW47+25, SCRPW47+28, SCRPW47+45, SCRPW47+46, SCRPW47+47, EXIT+5! , HD1+1, STOP+1, DPRT+3, DPRT+8, DPRT+9, DPRT1+1, PATIENT+1, PATIENT+2, PATIENT+3, PATIENT+14 , PATIENT+18, VISIT+2, VISIT+3, ENCNTR+2, ENCNTR+3, ENCNTR+4, ENCNTR+9, APF+5, APF+7, APF+8 , PD1+2, PD1+3, PD1+4, PD1+5, PD1+6, PD1+7, PD1+8, PD1+9, PD1+11, PD1+12 , PD1+13, PD1+14, PD1+18, PD1+19, PDP+6, PDP+7, PDP+8, WAIT+1
SDOXE	EXIT+5!
SDP	EXIT+5!, PDP~, PDP+9
SDPAGE	EXIT+5!, DPRT+3*
SDPAR	EXIT+5!
SDPAR(	PD1+6, PD1+7, PD1+8, PD1+9
SDPDIV	EXIT+5!
SDPNAM	EXIT+5!, DPRT+7, DPRT+8, DPRT+9, DPRT+11, DPRT+12, DPRT+13
>> SDPNAM2	DPRT+7, DPRT+13, DPRT1+2
SDPNOW	EXIT+5!
SDPT0	SCRPW47+16*, SCRPW47+17, EXIT+5!
SDPTNA	SCRPW47+16*, SCRPW47+17, EXIT+5!
SDR	EXIT+5!
SDR1	EXIT+6!
SDR2	EXIT+6!
SDRESP	EXIT+7!
SDS1	EXIT+7!
SDS2	EXIT+7!
SDSEL	EXIT+6!
SDSSN	EXIT+6!, DPRT+12*, DPRT1+3
SDSTOP	SCRPW47+15*, EXIT+6!
SDSTR	EXIT+6!
SDT	EXIT+6!, VISIT+1, VISIT+2, VISIT+4, ENCNTR+1, ENCNTR+2, ENCNTR+3, ENCNTR+5, ENCNTR+7, PDP~ , PDP+9
SDTIT	SCRPW47+21!, EXIT+6!, DPRT+3
SDTIT(1	SCRPW47+22*
SDTIT(2	SCRPW47+24*, SCRPW47+28!
SDTX	EXIT+6!
SDTXB	EXIT+6!
SDTY	EXIT+6!, PD1+7*, PD1+8, PD1+9
SDUI	EXIT+6!
SDUII	EXIT+7!
SDUIII	EXIT+7!
SDUIV	EXIT+7!
SDUJC	EXIT+7!
SDV	EXIT+7!, DPRT~, DPRT+2, DPRT+3, DPRT+4, DPRT+8, DPRT+9, DPRT+11, DPRT+12, DPRT+17
SDVAL	EXIT+7!, PD1+9*
SDVAR	EXIT+7!
SDX	SCRPW47+29, SCRPW47+30, SCRPW47+38, SCRPW47+39, SCRPW47+40, EXIT+7!, DPRT+5, DPRT+6, APF+4~, APF+7!* , APF+8, PD1+15*, PDP~, PDP+9
SDX(	APF+7, APF+8
SDX2	EXIT+7!
SDY	EXIT+8!, PATIENT+18, ENCNTR+9, APF~, APF+5, APF+6
SDZ	SCRPW47+14, EXIT+8!
U	SCRPW47+16, SCRPW47+17, SCRPW47+33, SCRPW47+36, SCRPW47+38, SCRPW47+42, DPRT+7, PATIENT+18, ENCNTR+6, APF+5 , APF+6, APF+8, PD1+7, PDP+9
X	EXIT+8!
X1	EXIT+8!
X2	EXIT+8!
X3	EXIT+8!
X4	EXIT+8!
Y	EXIT+8!, VISIT+4, ENCNTR+7, WAIT+1
Z	EXIT+8!
>> ZTQUEUED	STOP+1
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling

Routine: SCRPW47

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: