Routine: SDAMBMR2

Information

SDAMBMR2 ;ALB/MLI - PRINT AMBULATORY PROCEDURES MANAGEMENT REPORTS ; 4/27/00 12:14pm

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
CPT HCPCS Codes	2	($$CPT,$$CPTD)^ICPTCOD $$MOD^ICPTMOD
Kernel	1	$$FMTE^XLFDT
Registration	1	^VADATE
Scheduling	1	P^SDAMBMR3
VA FileMan	1	^%DT

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

Package	Total	Caller Graph
Scheduling	3	SDAMBMR SDAMBMR1 SDAMBMR3

Entry Points

Name	Comments	DBIA/ICR reference
HD
DT
1
2
3
CONT
PN
PNAME
CD
HD2
HD3
SET
T
C
C2
LIST
TOT
N

External References

Name	Field # of Occurrence
^%DT	CD+2, LIST+1, N+1
$$CPT^ICPTCOD	CD+3, CD+4, LIST+5
$$CPTD^ICPTCOD	N+6
$$MOD^ICPTMOD	CD+12, LIST+10
P^SDAMBMR3	1, 1+1, 2+1, 3+1, TOT
^VADATE	PNAME+1, C2+1
$$FMTE^XLFDT	DT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?20,"AMBULATORY PROCEDURE MANAGEMENT REPORTS",!!,"DATE RANGE: ",SDB,"-",SDE,?50,"DATE PRINTED: ",SDNOW,!,$S(SDFL:SDSTR_" NAME:",1:"ALL "_SDSTR_"S"),?16,SDT,?71,"PAGE: ",$J(SDPG,3) Line Location: HD+0
Function Call: WRITE	Prompt: !,?8,$E(K,1,18),?28,$P(SDINFO,U,10),?39,"AGE: ",$J($P(SDINFO,U,2),3),?49,$S($P(SDINFO,U)=1:"VETERAN",1:"NON-VET"),?58,$P(SDINFO,U,3),?61 Line Location: PNAME+1
Function Call: WRITE	Prompt: VADATE("E") Line Location: PNAME+1
Function Call: WRITE	Prompt: !!,$G(KK) Line Location: CD+5
Function Call: WRITE	Prompt: ?7,$E(SDN,1,72) Line Location: CD+6
Function Call: WRITE	Prompt: !?2,MODCODE,?8,$E(MODTEXT,1,65) Line Location: CD+16
Function Call: WRITE	Prompt: ! Line Location: CD+18
Function Call: READ	Formatting: !?20 Prompt: "Enter <RETURN> to continue" Variable: SDFG1 Timeout: DTIME Line Location: HD2+0
Function Call: WRITE	Prompt: !!?25,"SUMMARY OF PROCEDURES PERFORMED",! Line Location: HD2+1
Function Call: WRITE	Prompt: Y Line Location: HD2+1
Function Call: READ	Formatting: !?20 Prompt: "Enter <RETURN> to continue" Variable: SDFG1 Timeout: DTIME Line Location: HD3+0
Function Call: WRITE	Prompt: !!?31,"SUMMARY BY PATIENT",!,"NAME",?27,"SSN",?38,"AGE",?43,"VET/NON",?53,"SEX",?60,"DATE/TIME OF STOP",! Line Location: HD3+1
Function Call: WRITE	Prompt: Y Line Location: HD3+1
Function Call: WRITE	Prompt: !?8,"TOTAL PROCEDURES==>",?30,"VETERAN:",?39,$J($S($D(^TMP($J,"*PRO",I,J,1)):$P(^(1),"^",1),1:0),4),?47,"NON-VETERAN:",$J($S($D(^(0)):$P(^(0),"^",1),1:0),4) Line Location: T+0
Function Call: WRITE	Prompt: !!,$E(J,1,24),?27,$P(SDINFO,U,10) Line Location: C2+0
Function Call: WRITE	Prompt: ?38,$P(SDINFO,U),?43,$S(L=1:"VETERAN",1:"NON-VET"),?52,$S($P(SDINFO,U,2)="M":" MALE",1:"FEMALE"),?60 Line Location: C2+1
Function Call: WRITE	Prompt: VADATE("E") Line Location: C2+1
Function Call: WRITE	Prompt: !?5,$P($$CPT^ICPTCOD(SDPRO,ICPTVDT),U,2) Line Location: LIST+5
Function Call: WRITE	Prompt: ?12,$E(SDN,1,67) Line Location: LIST+6
Function Call: WRITE	Prompt: !?7,MODCODE,?13,$E(MODTEXT,1,65) Line Location: LIST+14
Function Call: WRITE	Prompt: ! Line Location: LIST+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	1, 1+1, 2+1, 3+1, CONT, PN+1, CD+8, CD+9, T, T+1 , C

Label References

Name	Line Occurrences
2	1
3	2
C	CONT
C2	C
CD	2+1
CONT	3+1
DT	1
HD	HD2+1, HD3+1, LIST+4
HD2	2+1, PN+1, CD+1
HD3	3+1, CONT
LIST	C2+1
N	CD+6, LIST+5
PN	2+1
PNAME	PN+1
SET	1+1, 2+1, 3+1
T	2+1
TOT	1+2, 2+2, 3+2

Naked Globals

Name	Field # of Occurrence
^(	PN+1, C
^("T"	1
^(0	T, T+1
^(1	T, T+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PNAME~, PNAME+1*
>> %DT	CD+2, LIST+1, N+1*
BLKLN	CD~, CD+1, LIST~, LIST+2
DATA	N~, N+2*
>> DESCR(	N+8
DT	CD+2, LIST+1, N+1
DTIME	HD2, HD3
I	1, 1+1, 2, 2+1, 3, 3+1, CONT, PN+1, CD+1, CD+6* , CD+8, CD+9, SET, T, T+1, C, LIST+4, LIST+5, LIST+6, TOT! , N+6
>> I1	1, 2+1, 3+1*
ICPTVDT	CD~, CD+2, CD+3, CD+4, CD+12, LIST~, LIST+1, LIST+5, LIST+10, N~ , N+1*, N+6
IOF	HD
IOSL	2+1, CONT, PN+1, CD+1, LIST+4
IOST	HD2, HD3
>> J	2+1, CONT, PN+1, CD+3*, CD+4, CD+6, CD+8, CD+9, T, T+1 , C, C2
>> J1	CONT*
>> K	CONT, PN, PN+1*, PNAME+1, C
>> K1	CONT, PN+1
KK	CD~, CD+4*, CD+5
>> L	PN, PN+1, C*, C2+1
>> L1	PN+1*
>> M	PN+1, PNAME+1, C, C2+1
MODCODE	CD~, CD+14, CD+16, LIST~, LIST+12, LIST+14
MODINFO	CD~, CD+11, CD+12, CD+13, CD+14, CD+15, LIST~, LIST+9, LIST+10, LIST+11 , LIST+12, LIST+13
MODTEXT	CD~, CD+15, CD+16, LIST~, LIST+13, LIST+14
MODVAL	CD~, CD+1, CD+8, CD+9, CD+10, CD+11, LIST~, LIST+8, LIST+9
>> PR	LIST+3*, LIST+8
>> SDAS	1+1
>> SDB	HD, DT*
SDCOUNT	N~, N+7*, N+8
SDDATA	N~, N+6*, N+7
>> SDE	HD, DT*, CD+2, LIST+1, N+1
>> SDFG	1, 1+1, 2+1, 3+1, CONT, PN+1, CD+1, HD2, HD3, LIST+4 , TOT
>> SDFG1	HD2, HD3
>> SDFL	HD, 1, 3, 3+1, SET, TOT*
>> SDHI	CD+1, CD+6, LIST+4, LIST+6
>> SDINFO	PN+1, PNAME+1, C, C2, C2+1, LIST+3
>> SDINFO(	LIST+8
SDIX	N~, N+8*
SDJJ	CD~, CD+11, LIST~, LIST+9
>> SDMOD	CD+7, LIST+7
>> SDN	CD+6, LIST+6, N+2, N+8, N+9*
>> SDNOW	HD
>> SDPG	HD*
>> SDPN	2
>> SDPRO	LIST+3*, LIST+5
>> SDPT	2+1
>> SDRT	1
>> SDS(	1+1
>> SDSC	1, 1+1, 2+1, 3, SET
>> SDSTR	HD, 1, 3
>> SDT	HD, 1, SET, TOT*
U	PNAME+1, C2, C2+1, LIST+3, LIST+5
>> VADAT("W"	PNAME+1, C2+1
>> VADATE("E"	PNAME+1, C2+1
>> VAUTC	1
>> VAUTC(	1
>> X	CD+2, LIST+1, N+1*
Y	CD+2, HD2+1!, HD3+1!, LIST+1, N+1

Customize PDF page

Package: Scheduling