Routine: SDOQMP0

Package	Total	Call Graph
Scheduling	4	ASK2^SDDIV LOOPC^SDOQMP AMMSCNT^SDOQMP1 ^SDOQMPL
VA Fileman	2	NOW^%DTC ^DIR
Kernel	1	RESCH^XUTMOPT
MailMan	1	^XMD
Registration	1	FIRST^VAUTOMA

Package	Total	Caller Graph
Scheduling	1	SDOQMP

Entry Points

Name	Comments	DBIA/ICR reference
DIVISION(PMIEN)	; Returns the name of the division the clinic as assigned to. ; Input: ; Ien of clinic in the Hospital location file.
SELECT()	; Selection method for clinic selection. ; Returns: ; Y = S, D, or C for Stop Code, Division, or Clinic. ; Y = Null for up-arrow or timeout
DIV()	; -- get division data ; input: none ; output: VAUTD := divs selected (VAUTD=1 for all) ; return: was selection made [ 1\|yes 0\|no]
STOPCDE(PMIEN)	; Get associated stop code number for clinic ; Input ; PMIEN - Ien of clinic in the Hospital location file
CHKTASK()	; Checks if the expiration date has been reached. If it has, delete the option ; scheduling run time field to turn off the reschedule option
STOPQ
CHKQ
CLINIC()	; One-Many-All clinic selection ; Output ; CLINIC(IEN)=""
LOOPSC	; Loops through all clinics in the Hospital location file, and selects clinics that are ; associated with one of the selected stop codes, adding them to the "SDAMMS" TMP global. ; If VAUTC=1, then select clinics for all Stop codes. ; If VAUTC=0, then select only those clinics for the Stop codes in the ; VAUTC(StopCode Ien) local array. ;
LOOPS	; Use appropriate loop for building the clinic global.
LOOPD	; Loops through all clinics in the Hospital location file, and select clinics that are ; in one of the selected divisions, adding them to the "SDAMMS" TMP global. ; If VAUTD=1, then select clinics for all Divisions. ; If VAUTD=0, then select only those clinics for the Divisions in the ; VAUTC(StopCode Ien) local array.
CLNOK(PMSC)	; Checks associated stop code for clinic. ; Input ; PMSC - Associated stop code for current clinic
SELQ
DIVQ
STOP()	; -- get stop code data ; output: VAUTC := stop codes selected (VAUTC=1 for all) ; return: was selection made [ 1\|yes 0\|no]

External References

Name	Field # of Occurrence
NOW^%DTC	CHKTASK+7
^DIR	SELECT+11
ASK2^SDDIV	DIV+6
LOOPC^SDOQMP	LOOPS+2
AMMSCNT^SDOQMP1	LOOPSC+14, LOOPSC+23, LOOPD+14, LOOPD+23
^SDOQMPL	CLNOK+10, CHKTASK+6
FIRST^VAUTOMA	CLINIC+6, STOP+6
^XMD	CHKTASK+25
RESCH^XUTMOPT	CHKTASK+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Clinic Selection" Line Location: CLINIC+4
Function Call: WRITE	Prompt: !!,"Stop Code Selection" Line Location: STOP+4
Routine Call	DIR Line Location: SELECT+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIVISION+11
^DG(43 - [#43]	DIV+5
^DIC(19 - [#19]	CHKTASK+9
^DIC(19.2 - [#19.2]	CHKTASK+11
^DIC(40.7 - [#40.7]	STOPCDE+8, CLNOK+11, CLNOK+12
^SC - [#44]	STOPCDE+8, DIVISION+9, LOOPSC+12, LOOPSC+19, LOOPSC+20, LOOPD+12, LOOPD+18, LOOPD+19
^SC("AC"	LOOPSC+11, LOOPSC+18, LOOPD+11, LOOPD+17
^TMP("SDAMMS"	LOOPSC+13, LOOPSC+22, LOOPD+13, LOOPD+22

Label References

Name	Line Occurrences
CHKQ	CHKTASK+8
DIVQ	DIVISION+10
LOOPD	LOOPS+4
LOOPSC	LOOPS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CHKTASK+8
AMMSD0	LOOPSC+6~, LOOPSC+7, LOOPSC+11, LOOPSC+12, LOOPSC+18, LOOPSC+19, LOOPSC+20, LOOPD+6~, LOOPD+8, LOOPD+11* , LOOPD+12, LOOPD+17*, LOOPD+18, LOOPD+19
>> AMMSLAST	LOOPSC+14, LOOPSC+23, LOOPD+14, LOOPD+23
CLINIC	CLINIC+7!, CLINIC+8, LOOPS+2
CNT	CLNOK+8~, CLNOK+10*
>> DIC	CLINIC+5, STOP+5
>> DIC("S"	CLINIC+5*
DIR	SELECT+11!
DIR("?"	SELECT+8, SELECT+9
DIR("A"	SELECT+7*
DIR("B"	SELECT+10*
DIR(0	SELECT+6*
>> DIRUT	SELECT+12
EXPDT	CHKTASK+3~, CHKTASK+6*, CHKTASK+8
OIEN	CHKTASK+3~, CHKTASK+9*, CHKTASK+10, CHKTASK+11
OSIEN	CHKTASK+3~, CHKTASK+11*, CHKTASK+12
PDIV	DIVISION+7~
PMDIEN	DIVISION+7~, DIVISION+9*, DIVISION+10, DIVISION+11
PMDIV	DIVISION+8, DIVISION+11, DIVQ, LOOPD+6~, LOOPD+19*, LOOPD+20, LOOPD+21
PMIEN	STOPCDE~, STOPCDE+8, DIVISION~, DIVISION+9
PMOK	CLNOK+8~, CLNOK+9, CLNOK+10, CLNOK+12, CLNOK+13
PMSC	STOPCDE+7~, STOPCDE+8, STOPCDE+9, CLNOK~, CLNOK+11, CLNOK+12, LOOPSC+6~, LOOPSC+20, LOOPSC+21
PMSTCD	CLNOK+8~, CLNOK+10*, CLNOK+12
PMTEXT	CHKTASK+3~
PMTEXT(1	CHKTASK+17*
PMTEXT(2	CHKTASK+18*
PMTEXT(3	CHKTASK+19*
PMTEXT(4	CHKTASK+20*
PMTEXT(5	CHKTASK+21*
>> SCERR	CHKTASK+15
SDFRQ	CHKTASK+3~, CHKTASK+14*, CHKTASK+15
SDOK	CHKTASK+3~, CHKTASK+5, CHKTASK+26, CHKQ
SDOPT	CHKTASK+3~, CHKTASK+14*, CHKTASK+15
SDWHN	CHKTASK+3~, CHKTASK+14*, CHKTASK+15
U	DIV+5, STOPCDE+8, CLNOK+12, DIVISION+9, DIVISION+11
VAUTC	STOP+7!, STOPQ, LOOPSC+10, LOOPSC+17, LOOPS+3
VAUTC(	LOOPSC+21
VAUTD	DIV+7!, DIV+8, LOOPD+10, LOOPD+16, LOOPS+4
VAUTD(	LOOPD+21
>> VAUTNI	CLINIC+5, STOP+5
>> VAUTSTR	CLINIC+5, STOP+5
>> VAUTVB	CLINIC+5, STOP+5
>> X1	LOOPSC+14, LOOPSC+23, LOOPD+14, LOOPD+23
>> XMDUZ	CHKTASK+24*
>> XMN	CHKTASK+22*
>> XMSUB	CHKTASK+22*
>> XMTEXT	CHKTASK+23*
>> XMY("G.SD PM	NOTIFICATION" , CHKTASK+24*
Y	SELECT+5~, SELECT+12*, SELQ, CLINIC+7, STOP+7, DIV+7

Marked Items

Customize PDF page

Package: Scheduling

Routine: SDOQMP0

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items