Routine: SDAMODO3

Information

SDAMODO3 ;ALB/SCK - PROVIDER DIAGNOSTICS REPORT OUTPUT ;05 Oct 98 8:44 PM

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	2	^DIC ^DIR
Kernel	1	$$FMTE^XLFDT
List Manager	1	$$NOW^VALM1
Scheduling	1	^SDAMODO1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SDAMODO2

Entry Points

Name	Comments	DBIA/ICR reference
REPORT	;
START	;
EXIT	;
SUBCNT(SB1,SB1P)	;
SUBCNTQ
PRNT(I)	;
LINE1	;
LINE2	;
PRNTQ
HDR(SDIV)	;
HDRQ
NOREP	;
SELPRV(PRV)	;
SELPRVQ
SELDX(DX)	;
SELDXQ

External References

Name	Field # of Occurrence
^DIC	SELDX+4
^DIR	HDR+6
^SDAMODO1	SUBCNT+2, HDR+10, NOREP+1
$$NOW^VALM1	HDR+11, NOREP+2
$$FMTE^XLFDT	LINE1+4, HDR+12, NOREP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,SUBCNT," ",$S(SORT2=1!(SORT2=2):"Primary "_$P($T(SORT+SORT2^SDAMODO1),";;",2),1:$P($T(SORT+SORT2^SDAMODO1),";;",2))," entries for ",$S(SORT1=1!(SORT1=3):$P(SB1P,"^"),SORT1=5:$P($G(^DIC(40.7,SB1P,0)),U),1:SB1P),!! Line Location: SUBCNT+2
Function Call: WRITE	Prompt: !,$P(^DPT($P($G(SDATA),U),0),U)_" "_$P(SDSID,"-",3) Line Location: LINE1+2
Function Call: WRITE	Prompt: ?32,$P($$FMTE^XLFDT(OEN,1),":",1,2) Line Location: LINE1+4
Function Call: WRITE	Prompt: ?55,$E($P(SDATA,U,3),1,25) Line Location: LINE1+5
Function Call: WRITE	Prompt: ?90,$S(+$P(SDATA,U,5)>0:$P(^VA(200,+$P(SDATA,U,5),0),U),1:$P(SDATA,U,5)) Line Location: LINE1+6
Function Call: WRITE	Prompt: ?117,$P(SDATA,U,6) Line Location: LINE1+7
Function Call: WRITE	Prompt: !?56,$P($G(^DIC(40.7,+SCODE,0)),U,2),"/",$P($G(^DIC(40.7,+SCODE,0)),U) Line Location: LINE2+2
Function Call: WRITE	Prompt: ?90,$S(+SDPRX>0:$P(^VA(200,SDPRX,0),U),1:"") Line Location: LINE2+3
Function Call: WRITE	Prompt: ?117,SDDX1 Line Location: LINE2+4
Function Call: WRITE	Prompt: ! Line Location: LINE2+11
Function Call: WRITE	Prompt: ?90,$S(+SDPRX>0:$P(^VA(200,SDPRX,0),U),1:"") Line Location: LINE2+12
Function Call: WRITE	Prompt: ?117,SDDX1 Line Location: LINE2+13
Function Call: WRITE	Prompt: @IOF Line Location: HDR+7
Function Call: WRITE	Prompt: @IOF Line Location: HDR+9
Function Call: WRITE	Prompt: !!,"Provider/Diagnosis Encounter Report sorted by ",$P($T(SORT+SORT1^SDAMODO1),";;",2)," and ",$P($T(SORT+SORT2^SDAMODO1),";;",2) Line Location: HDR+10
Function Call: WRITE	Prompt: ?(IOM-40),"Report Date: ",$P($$NOW^VALM1,"@"),?(IOM-10),"Page: ",PAGE Line Location: HDR+11
Function Call: WRITE	Prompt: !,"Inclusion Dates: ",$P($$FMTE^XLFDT(SDBEG,1),"@")," to ",$P($$FMTE^XLFDT(SDEND,1),"@") Line Location: HDR+12
Function Call: WRITE	Prompt: !,"Division: ",$P($G(^DG(40.8,SDIV,0)),U) Line Location: HDR+13
Function Call: WRITE	Prompt: !!,"PATIENT",?32,"ENCOUNTER DATE",?55,"CLINIC/PRIMARY STOP CODE",?90,"PROVIDER",?117,"DX "_$S(SDBEG<ICD10IMPDT:"(ICD9)",1:"(ICD10)")_" CODE" Line Location: HDR+15
Function Call: WRITE	Prompt: !,"-------------------",?32,"------------------",?55,"------------------------",?90,"--------------",?117,"---------------" Line Location: HDR+16
Function Call: WRITE	Prompt: !!,"Provider/Diagnosis Report sorted by ",$P($T(SORT+SORT1^SDAMODO1),";;",2)," and ",$P($T(SORT+SORT2^SDAMODO1),";;",2) Line Location: NOREP+1
Function Call: WRITE	Prompt: ?(IOM-40),"Report Date: ",$P($$NOW^VALM1,"@") Line Location: NOREP+2
Function Call: WRITE	Prompt: !,"Inclusion Dates: ",$P($$FMTE^XLFDT(SDBEG,1),"@")," to ",$P($$FMTE^XLFDT(SDEND,1),"@") Line Location: NOREP+3
Function Call: WRITE	Prompt: !!,"No data found matching sort parameters" Line Location: NOREP+4
Routine Call	DIC Line Location: SELDX+4
Routine Call	DIR Line Location: HDR+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	HDR+13
^DIC(40.7 - [#40.7]	SUBCNT+2, LINE2+2
^DPT - [#2]	LINE1+2
^TMP("SDRPT"	REPORT+1, START+4, START+6, START+9, START+10, START+11, EXIT+1!, PRNT+2, PRNT+3, PRNT+4
^VA(200 - [#200]	LINE1+6, LINE2+3, LINE2+12

Label References

Name	Line Occurrences
$$HDR	START+5, START+8, PRNT+7, LINE2+10
$$PRNT	START+11
$$SELDX	PRNT+6
$$SELPRV	PRNT+5
$$SUBCNT	START+5, START+7, START+12
EXIT	REPORT+1
HDRQ	HDR+3
NOREP	REPORT+1
PRNTQ	PRNT+5, PRNT+6, PRNT+7
SELDXQ	SELDX+2, SELDX+4, SELDX+5
SELPRVQ	SELPRV+2, SELPRV+3
SUBCNTQ	SUBCNT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	SELDX+3*, SELDX+4!
DIC(0	SELDX+3*
DIR	HDR+4!, HDR+6!
DIR("?"	HDR+5*
DIR("A"	HDR+4*
DIR(0	HDR+4*
>> DTOUT	HDR+6
>> DUOUT	HDR+6
DX	SELDX~, SELDX+3
I	START+11*, PRNT~, PRNT+2, PRNT+3, PRNT+4
>> ICD10IMPDT	HDR+15
IOF	START+3, HDR+7, HDR+9
IOM	HDR+11, NOREP+2
IOSL	PRNT+7, LINE2+10
IOST	START+3, HDR+3, HDR+9
OEN	START+1~, START+10*, START+11, PRNT+2, PRNT+3, PRNT+4, LINE1+4
PAGE	START+2, EXIT+1!, HDR+8, HDR+11
>> PDIAG	SELDX+2
>> PDIAG(	SELDX+5
>> PROVDR	SELPRV+2
>> PROVDR(	SELPRV+3
PRV	SELPRV~, SELPRV+3
QFLAG	START+2, EXIT+1!, PRNTQ, HDR+3, HDR+6
SB1	SUBCNT~, SUBCNTQ
SB1P	SUBCNT~, SUBCNT+1, SUBCNT+2
SCODE	PRNT+1~, LINE2+1*, LINE2+2
SDATA	START+1~, PRNT+1~, PRNT+2*, LINE1+1, LINE1+2, LINE1+5, LINE1+6, LINE1+7, LINE2+1
>> SDBEG	HDR+12, HDR+15, NOREP+3
SDCHECK	START+1~, START+10, LINE1+3
SDDX1	PRNT+1~, LINE2+4, LINE2+7, LINE2+9, LINE2+13
>> SDEND	HDR+12, NOREP+3
SDFIN	START+2, START+4, START+5, START+6, START+8, START+9, START+10, START+11, EXIT+1!
SDIV	START+1~, START+2, START+4, START+5, START+6, START+8, START+9, START+10, START+11, PRNT+2 , PRNT+3, PRNT+4, PRNT+7, LINE2+10, HDR~, HDR+13
SDONE	EXIT+1!, LINE2+5, LINE2+6, LINE2+9, LINE2+10*
SDPRX	START+1~, PRNT+1~, LINE2+3, LINE2+8, LINE2+9, LINE2+12
SDSID	PRNT+1~, LINE1+1*, LINE1+2, LINE1+3
SDVC	START+2, START+5, EXIT+1!, HDR+3, HDR+9
SDX	START+1~, PRNT+1~
SDX(	PRNT+4*, LINE2+4, LINE2+7
>> SORT1	START+8, SUBCNT+2, PRNT+5, PRNT+6, LINE2+3, LINE2+4, LINE2+12, LINE2+13
>> SORT2	SUBCNT+2
SPRV	START+1~, PRNT+1~
SPRV(	PRNT+3*, LINE2+3, LINE2+8
SUB1	START+1~, START+2, START+5, START+6, START+7, START+8, START+9, START+10, START+11, START+12 , PRNT+2, PRNT+3, PRNT+4, PRNT+5, PRNT+6
SUB2	START+1~, START+2, START+9, START+10, START+11, PRNT+2, PRNT+3, PRNT+4
SUBCNT	START+2, START+10, EXIT+1!, SUBCNT+1, SUBCNT+2, SUBCNT+3, LINE1+3
SUBX	START+2, START+5, START+7, START+8, START+12, EXIT+1!
U	SUBCNT+2, LINE1+1, LINE1+2, LINE1+5, LINE1+6, LINE1+7, LINE2+1, LINE2+2, LINE2+3, LINE2+12 , HDR+13, SELDX+5
>> X	SELDX+3*
XX	EXIT+1!, PRNT+1~, PRNT+3, PRNT+4, LINE2+6*
Y	PRNT+1~, PRNT+5, PRNT+6, PRNT+7, LINE2+14, PRNTQ, HDR+1~, HDR+2, HDR+17, HDRQ , SELPRV+1~, SELPRV+4, SELPRVQ, SELDX+1~, SELDX+4, SELDX+5, SELDX+6, SELDXQ

Marked Items

Name	Field # of Occurrence
$T(SORT+SORT1^SDAMODO1	HDR+10, NOREP+1
$T(SORT+SORT2^SDAMODO1	SUBCNT+2, HDR+10, NOREP+1

Customize PDF page

Package: Scheduling