Routine: SDAMBMR3

Information

SDAMBMR3 ;ALB/MLI - AMBULATORY PROCEDURE MANAGEMENT REPORTS ; 24 MAR 88 07700

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
Scheduling	1	HD^SDAMBMR2

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

Package	Total	Caller Graph
Scheduling	2	SDAMBMR SDAMBMR2

Entry Points

Name	Comments	DBIA/ICR reference
P
INIT
I

External References

Name	Field # of Occurrence
HD^SDAMBMR2	P+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Formatting: !?20 Prompt: "Enter <RETURN> to continue" Variable: SDFG1 Timeout: DTIME Line Location: P+1
Function Call: WRITE	Prompt: !!!,?67,"*TOTAL UNIQUE",!,?24,"VETERAN",?38,"NON-VETERAN",?57,"TOTAL",?72,"SSNS" Line Location: P+2
Function Call: WRITE	Prompt: !!,"# OF PROCEDURES",?25,$J($S(SDFL:^TMP($J,I,"PR",1),1:SDPRC(1)),6),?41,$J($S(SDFL:^TMP($J,I,"PR",0),1:SDPRC(0)),6) Line Location: P+3
Function Call: WRITE	Prompt: ?56,$J($S(SDFL:^TMP($J,I,"PR"),1:SDPRC),6),?73,"N/A",!!,"# OF STOPS",?25,$J($S(SDFL:^TMP($J,I,"ST",1),1:SDSTP(1)),6),?41,$J($S(SDFL:^TMP($J,I,"ST",0),1:SDSTP(0)),6),?56,$J($S(SDFL:^TMP($J,I,"ST"),1:SDSTP),6),?73,"N/A" Line Location: P+4
Function Call: WRITE	Prompt: !!,"# OF PATIENTS",?25,$J($S(SDFL:^("T",1),1:SDTOT(1)),6) Line Location: P+5
Function Call: WRITE	Prompt: ?41,$J($S(SDFL:^TMP($J,I,"T",0),1:SDTOT(0)),6),?56,$J($S(SDFL:^(0)+^(1),1:SDTOT(0)+SDTOT(1)),6),?70,$J($S(SDFL:^TMP($J,I,"T"),1:SDTOT),6),!!,"# OF MALE PATIENTS" Line Location: P+6
Function Call: WRITE	Prompt: ?25,$J($S(SDFL:^TMP($J,I,"SM",1),1:SDSXM(1)),6),?41,$J($S(SDFL:^(0),1:SDSXM(0)),6),?56,$J($S(SDFL:^(0)+^(1),1:SDSXM(0)+SDSXM(1)),6),?70,$J($S(SDFL:^TMP($J,I,"SM"),1:SDSXM),6),!!,"# OF FEMALE PATIENTS" Line Location: P+7
Function Call: WRITE	Prompt: ?25,$J($S(SDFL:^TMP($J,I,"SF",1),1:SDSXF(1)),6),?41,$J($S(SDFL:^(0),1:SDSXF(0)),6),?56,$J($S(SDFL:^(0)+^(1),1:SDSXF(0)+SDSXF(1)),6),?70,$J($S(SDFL:^TMP($J,I,"SF"),1:SDSXF),6) Line Location: P+8
Function Call: WRITE	Prompt: !!,"AVERAGE AGE",?28,$J(SDAGEH(1),3),?44,$J(SDAGEH(0),3),?59,$J(SDAGETT,3),?73,$J(SDAGEH,3) Line Location: P+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	INIT+1
^TMP($J	P, P+3, P+4, P+6, P+7, P+8, P+9, I

Label References

Name	Line Occurrences
I	INIT+1, INIT+2, INIT+3, INIT+4

Naked Globals

Name	Field # of Occurrence
^(	INIT+1
^("A"	P+9, I*
^("SF"	I*
^("SM"	I*
^("ST"	I*
^("T"	P+5, P+9, I*
^(0	P+6, P+7, P+8, P+9, INIT+1
^(1	P, P+6, P+7, P+8, P+9, I*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DTIME	P+1
>> I	P, P+3, P+4, P+6, P+7, P+8, P+9, INIT+1, INIT+2, INIT+3* , INIT+4*, I
>> I1	INIT+3, INIT+4
IOST	P+1
>> J	INIT+1*
>> SDAGE	P+10, INIT*
>> SDAGE(0	P+10, INIT*
>> SDAGE(1	P+10, INIT*
>> SDAGEH	P+9, P+10, P+11
>> SDAGEH(0	P+9, P+10, P+11
>> SDAGEH(1	P+9, P+10, P+11
>> SDAGET	P+9, P+10, P+11
>> SDAGETT	P+11*
>> SDAS	INIT+2, INIT+4
>> SDFG	P+1*
>> SDFG1	P+1*
>> SDFL	P+3, P+4, P+5, P+6, P+7, P+8, P+9, P+10
>> SDPG	INIT*
>> SDPRC	P*, P+4
>> SDPRC(0	P, P+3, INIT*
>> SDPRC(1	P, P+3, INIT*
>> SDS(	INIT+4
>> SDSC	INIT+1, INIT+2, INIT+3, INIT+4
>> SDSTP	P+4, INIT*
>> SDSTP(0	P+4, INIT*
>> SDSTP(1	P+4, INIT*
>> SDSXF	P+8, INIT*
>> SDSXF(0	P+8, INIT*
>> SDSXF(1	P+8, INIT*
>> SDSXM	P+7, INIT*
>> SDSXM(0	P+7, INIT*
>> SDSXM(1	P+7, INIT*
>> SDTOT	P+6, P+10, INIT*
>> SDTOT(0	P+6, P+10, INIT*
>> SDTOT(1	P+5, P+6, P+10, INIT*
>> SDTT	P+9, P+10, P+11
>> SDVST	P+5, INIT*
>> SDVST(0	P+5, INIT*
>> SDVST(1	P+5, INIT*
U	INIT+1
>> VAUTC	INIT+1, INIT+3
>> VAUTC(	INIT+3

Customize PDF page

Package: Scheduling