Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: SDOQMP

Package: Scheduling

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All