Routine: BSDAMR4

Information

BSDAMR4 ;cmi/anch/maw - BSD Appointment Management Reports Cancelled Appointment Listing 2/12/2007 1:22:04 PM

Source file <BSDAMR4.m>

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$BROWSE,$$RANGE,$$READ,ZIS)^BDGF $$HRCN^BDGF2
IHS Changes To Scheduling	2	($$CONF,$$FAC,CLINIC)^BSDU $$SUB1^BSDWKR1
VA Fileman	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BSDRM APPT MGT NO ACTION
HDR	; -- header code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
PRINT	; print report to paper
EXPND	; -- expand code
HDG	; heading for paper report
START	;EP; -- re-entry for printing to paper
INIT	; -- init variables and list array
EXIT	; -- exit code
SET(LINE,NUM)	; set line into display array
ASK	; -- ask user questions
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BSDAMR4",$J,X,0) Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF,?33,"Cancelled Appointment Listing" Line Location: HDG+1
Function Call: WRITE	Prompt: !,VALMHDR(I) Line Location: HDG+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+3
Function Call: WRITE	Prompt: !,"Patient Name",?20,"HRCN",?28,"Phone",?43,"Appt Date",?63,"Reason" Line Location: HDG+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+5
Routine Call	VALM Line Location: EN+2

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	INIT+7, INIT+9, INIT+12, INIT+16, INIT+22, INIT+24
^SC - [#44]	INIT+21
^SC("AIHSPC"	INIT+14
^TMP("BSD"	INIT+1!, INIT+33*, INIT+37, INIT+39, INIT+41, INIT+42, INIT+46!
^TMP("BSDAMR4"	INIT+1!, SET+2*, EXIT+1!, PRINT+2, PRINT+4

Name	Field # of Occurrence
APPT	INIT+5~
BSDAR	INIT+2~*, INIT+13
BSDBD	ASK+1~, ASK+9*, HDR+2, INIT+10
BSDCANR	INIT+5~, INIT+24, INIT+25, INIT+32
BSDDFN	INIT+5~, INIT+6, INIT+7, INIT+9, INIT+12, INIT+16, INIT+22, INIT+24, INIT+26
BSDED	ASK+1~, ASK+10*, HDR+2, INIT+11
BSDIEN	INIT+8~, INIT+9*, INIT+10, INIT+11, INIT+12, INIT+16, INIT+22, INIT+24, INIT+31, INIT+33
>> BSDQ	ASK+7
>> BSDREA	INIT+23*, INIT+32
BSDREAI	INIT+5~, INIT+22*, INIT+23
BSDST	INIT+15~, INIT+16*, INIT+17, INIT+18
BSDSTAT	ASK+1~, ASK+12*, ASK+13, ASK+14
BSDSTAT(	INIT+18
BSDSTAT("C"	ASK+13*
BSDSTAT("CA"	ASK+13*
BSDSTAT("PC"	ASK+14*
BSDSTAT("PCA"	ASK+14*
BSDSTE	ASK+1~, ASK+13, ASK+14, HDR+3
BSDSUB	ASK+1~, ASK+4*
BSDTT	ASK+1~
CLN	INIT+5~, INIT+12*, INIT+13, INIT+14, INIT+19, INIT+20, INIT+21, INIT+29
D	PAD~, PAD+2
END	INIT+5~
>> I	HDG+2*
IO	PRINT+1
IOF	HDG+1
IOSL	PRINT+3
L	PAD~, PAD+2
LINE	INIT+5~, INIT+28, INIT+29, INIT+30, INIT+31, INIT+32*, INIT+33, SET~, SET+2
N	SP~, SP+1
NAME	INIT+5~, INIT+19*, INIT+20
NUM	SET~, SET+1*, SET+2
PAT	INIT+5~, INIT+26*, INIT+28, INIT+29, INIT+30, INIT+33
POP	ASK+1~
S1	INIT+36~, INIT+37*, INIT+38, INIT+39, INIT+41, INIT+42, INIT+43
S2	INIT+36~, INIT+39*, INIT+41, INIT+42, INIT+43
S3	INIT+36~, INIT+41*, INIT+42
SUB	INIT+5~, INIT+20*, INIT+33
U	INIT+12, INIT+16, INIT+21, INIT+22
VALMCNT	EN+1~, INIT+1*, INIT+38, INIT+42, INIT+43, INIT+44
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
>> VALMHDR(3	HDR+3*
VAUTC	ASK+1~, INIT+2
VAUTD	ASK+1~, INIT+21
VAUTD(	INIT+21
X	HELP+1, PRINT+2~, PRINT+4
>> Y	ASK+17*