Routine: SDOQMP

Information

SDOQMP ;ALB/SCK - Appointment Monitoring / Performance Measure report ; [07/17/96]

Source Information

Source file <SDOQMP.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Scheduling	4	($$CHKTASK,$$CLINIC,$$CLNOK,$$DIV,$$DIVISION,$$SELECT,$$STOP,$$STOPCDE,LOOPS)^SDOQMP0 (AMMSCNT,DATES,END)^SDOQMP1 START^SDOQMP2 START^SDOQMPR
VA Fileman	4	^%DT (,NOW)^%DTC WAIT^DICD ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
MailMan	1	^XMD
Registration	1	$$SITE^VASITE

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Scheduling	3	SDOQM CLINIC NEXT AVAIL REPORT SDOQM PM NIGHTLY JOB SDOQMP0

Entry Points

Name	Comments	DBIA/ICR reference
AGN
EN	; Entry point for Access PM extract to be sent to data collection server
BLDPME	; Build the data array to be included in the mail message. ; If the number of data lines in the current array goes over 100, ; Send the array and begin building a new one.
START
LOOPC	; Loop through the clinics in the hospital location file. User can select ; one-many-all clinics through this entry point.
DMQ
BLDRPT	; Call the entry point to print the Appointment Monitoring report
LP1
SMQ
PRCLRG	; Process clinic lists greater than 500 entries
EN1	; Entry point for interactive appointment monitoring report
INIT	; Initialize date arrays for calculating next available appointments
EN1Q
QUE
PRCSML	; Process clinic lists smaller than 500 entries
MSG	; Message displayed to user when the EN1 entry point is used.
LOOP	; Loop through the clinics in the Hospital location file. Use only those clinics with ; an associated stop code on the required list for the access performance measure
MAIL(PMDATA,LINCNT,CNT)	; Send data message to server. ; The data message is sent to the local notification mail group, ; the notification mail group at the server domain, and the ; server at the data collection server domain

External References

Name	Field # of Occurrence
^%DT	INIT+6, INIT+7
^%DTC	BLDPME+17
NOW^%DTC	MAIL+27
^%ZIS	AGN+1
HOME^%ZIS	QUE+6
^%ZISC	EN1Q
^%ZTLOAD	QUE+5
WAIT^DICD	QUE+8
^DIR	AGN+7
$$CHKTASK^SDOQMP0	EN+2
$$CLINIC^SDOQMP0	EN1+7
$$CLNOK^SDOQMP0	LOOP+9
$$DIV^SDOQMP0	EN1+9
$$DIVISION^SDOQMP0	BLDPME+18
$$SELECT^SDOQMP0	EN1+4
$$STOP^SDOQMP0	EN1+8
$$STOPCDE^SDOQMP0	BLDPME+18
LOOPS^SDOQMP0	START
AMMSCNT^SDOQMP1	LOOP+11, LOOPC+13, LOOPC+20
DATES^SDOQMP1	INIT+10
END^SDOQMP1	EN+4, EN1Q+1
START^SDOQMP2	EN+3, START
START^SDOQMPR	BLDRPT+1
$$SITE^VASITE	MAIL+26
^XMD	MAIL+34

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,XT1 Line Location: EN1+11
Routine Call	%ZIS Line Location: QUE+6
Routine Call	DIR Line Location: AGN+7
Routine Call	%ZIS Line Location: AGN+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	INIT+6
^SC - [#44]	LOOP+8, LOOP+9, LOOPC+11, LOOPC+18, BLDPME+15
^SC("AC"	LOOP+7, LOOPC+10
^TMP("APPT"	INIT+3!
^TMP("SDAMMS"	EN1Q+2!, INIT+3!, INIT+4, INIT+5, INIT+6*, LOOP+10, LOOPC+12, LOOPC+19
^TMP("SDMSG"	EN1Q+2!, BLDPME+9!, BLDPME+18*, PRCSML+3, PRCSML+5, LP1+1
^TMP("SDPM"	EN1Q+2!, INIT+3!, INIT+8*, BLDPME+10, BLDPME+13, BLDPME+14
^XMB("NETNAME"	MAIL+29

Label References

Name	Line Occurrences
AGN	AGN+3
BLDPME	EN+3
BLDRPT	START
EN1Q	EN1+7, EN1+8, EN1+9, AGN+1, QUE
INIT	EN+3, START
LOOP	EN+3
LP1	LP1+7
MAIL	PRCSML+6, LP1+3
PRCLRG	BLDPME+21
PRCSML	BLDPME+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MAIL+29
%DT	MAIL+17~
>> %ZIS	AGN+1*
>> AMMSCNT	INIT+9*
>> AMMSD0	LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOPC+7, LOOPC+10, LOOPC+11, LOOPC+17*, LOOPC+18
>> AMMSFDT	INIT+9*
>> AMMSFSL	INIT+9*
>> AMMSLAST	INIT+9*, LOOP+11, LOOPC+13, LOOPC+20
>> AMMSRDT	INIT+7*
>> AMMSZDT	INIT+9*
CLINIC	EN1Q+2!, LOOPC+9, LOOPC+16
CLINIC(	LOOPC+17
CNT	INIT+4*, MAIL~, MAIL+29
>> CNT1	INIT+4*
>> CNT2	INIT+4*
>> CNT3	INIT+4*
>> CNT4	INIT+4*
CONT	EN1+2~, AGN, AGN+3, AGN+8
DIR	AGN+7!
DIR("A"	AGN+4, AGN+5, AGN+6*
DIR("B"	AGN+5*
DIR(0	AGN+5*
>> DIRUT	AGN+8
DT	INIT+6*, INIT+8, INIT+9
IO("Q"	QUE, QUE+6!
IOM	AGN+3, INIT+4*, INIT+5
IOST	AGN+4
LC	BLDPME+7~, BLDPME+11, BLDPME+18, BLDPME+19, BLDPME+21, BLDPME+22, PRCSML+1~, PRCSML+2, PRCSML+4, PRCSML+5 , PRCSML+6, LP1, LP1+3, LP1+7
LINCNT	MAIL~, MAIL+29, MAIL+30
PMAPT	BLDPME+7~, BLDPME+16*, BLDPME+17, BLDPME+18
PMCLNE	BLDPME+7~, BLDPME+15*, BLDPME+18
PMCLNI	BLDPME+7~, BLDPME+11, BLDPME+13, BLDPME+14, BLDPME+15, BLDPME+18
PMDATA	MAIL~
PMDATA(	MAIL+29, MAIL+30
PMDT	BLDPME+7~, BLDPME+10*, BLDPME+14, BLDPME+17, BLDPME+18
PMFAC	MAIL+17~, MAIL+26*, MAIL+29, MAIL+33
PMMSG	BLDPME+7~, PRCSML+1~, PRCSML+6
PMMSG(	PRCSML+5*
PMNODE	BLDPME+7~, BLDPME+14*, BLDPME+16
PMSEL	EN1+2~, EN1+4*, EN1+5, EN1+7, EN1+8, EN1+9, QUE+2, QUE+3, QUE+4
>> POP	AGN+1
SDTMP	PRCLRG+1~, LP1+3, LP1+6!
SDTMP(	LP1+1*
U	INIT+2*, BLDPME+10, BLDPME+15, BLDPME+16, BLDPME+18, MAIL+33
VAUTC	EN1Q+2!
VAUTD	EN1Q+2!
X	INIT+6, INIT+7, BLDPME+7~, BLDPME+10, BLDPME+18, PRCSML+2, PRCSML+3*, PRCSML+5
X1	LOOP+11, LOOPC+13, LOOPC+20, BLDPME+17, MAIL+17~
>> X2	BLDPME+17*
XC	PRCLRG+1~, LP1*, LP1+1, LP1+3, LP1+7, MAIL+17~
XF	PRCLRG+1~, PRCLRG+2, LP1, LP1+5
XL	PRCLRG+1~, PRCLRG+2, LP1, LP1+5
XMB	MAIL+17~
XMDUZ	MAIL+20*, MAIL+35!
XMLOC	MAIL+17~, MAIL+19*
XMN	MAIL+33*, MAIL+35!
XMSUB	MAIL+33*, MAIL+35!
XMTEXT	MAIL+32*, MAIL+35!
XMY	MAIL+35!
XMY(".5"	MAIL+21*
XMY("G.SD PM	EXTRACT@ISC-ALBANY.VA.GOV" , MAIL+24, NOTIFICATION" , MAIL+23
XMY("S.A1BO P	M NEXT APPT EXTRACT@DEVFEX.ISC-ALBANY.VA.GOV" , MAIL+22*
XT	EN1+2~, EN1+11*
XT1	EN1+2~, EN1+11*
>> Y	AGN+8, INIT+6, INIT+7
>> ZTDESC	QUE+1*
>> ZTQUEUED	EN1Q
>> ZTRTN	QUE+1*
>> ZTSAVE("CLINIC"	QUE+2*
>> ZTSAVE("CLINIC("	QUE+2*
>> ZTSAVE("VAUTC"	QUE+3*
>> ZTSAVE("VAUTC("	QUE+3*
>> ZTSAVE("VAUTD"	QUE+4*
>> ZTSAVE("VAUTD("	QUE+4*
>> ZTSK	QUE+5

Marked Items

Name	Field # of Occurrence
$T(MSG+XT	EN1+11

Customize PDF page

Package: Scheduling

Routine: SDOQMP

Call Graph Total: 13

Caller Graph Total: 3