Routine: SCMCDD

Package	Total	Call Graph
Scheduling	4	($$PRTP,$$PTTM,$$PTTP,$$TPTM)^SCAPMC ($$DATES,$$LASTDATE,ERR)^SCAPMCU1 ($$ACTHIST,$$DTAFTER,$$DTBEFORE)^SCAPMCU2 ($$BADCHGDT,$$BADNEWDT)^SCMCDDA
VA FileMan	1	DD^%DT

Package	Total	Caller Graph
Scheduling	1	SCUTBK10

Entry Points

Name	Comments	DBIA/ICR reference
NEWHIST(FILE,IEN,DATE,SCERR,STATUS)	; PCMM history files - new record's dt & status ; Complete ; input: ; FILE = 404.52,404.53,404.58, or 404.59 ; IEN = if file=404.58 - pointer to 404.51 ; otherwise - pointer to 404.57 ; DATE = effective date ; SCERR = [default = "SCERR"] ; STATUS = [optional] 1=active/0=inactive - IF undefined don't check ; output: ; Returned: 1 if ok to add, 0 if not^message^external ; Note: For 404.52: special case ; @scerr = error message array
QTNWHIST
OKDEL(FILE,HISTIEN,SCERR)	;PCMM history files - delete record ; input: ; FILE = History File: 404.52,404.53,404.58, or 404.59 ; HISTIEN = Entry in FILE ; SCERR = [default = "SCERR"] ; output: ; Returned: 1 if ok to delete, 0 if not^message ; @scerr = error message array
QTOKDEL
OKINACT(FILE,IEN,DATE,SCERR)	;PCMM history files - inactivate record? ; input: ; Complete ; input: ; FILE = History File: 404.52,404.53,404.58, or 404.59 ; IEN = IEN of non-History File: ; Team Position (#404.57) for 404.52 & 404.59 ; Team (#404.51) for 404.58 ; DATE = Date to inactivate ; SCERR = [default = "SCERR"] ; output: ; Returned: 1=ok on date/0 ow^1=ok in future/0 ow^message^techmessage ; @scerr = error message array
TEAMHIS
POSHIS
QTOKIN
OKCHGDT(FILE,HISTIEN,DATE,SCERR)	;PCMM history files - ok to change date? ; input: ; FILE = History File: 404.52,404.53,404.58, or 404.59 ; HISTIEN - IEN of History File (404.52,404.58 or 404.59) ; SCERR = [default = "SCERR"] ; output: ; Returned: 1 if ok to change date, 0 if not^message ; @scerr = error message array
QTOKCHK

Name	Field # of Occurrence
DD^%DT	NEWHIST+19, OKDEL+14, OKINACT+17, OKINACT+26, TEAMHIS+6, OKCHGDT+18, OKCHGDT+22
$$PRTP^SCAPMC	POSHIS+2
$$PTTM^SCAPMC	TEAMHIS+11
$$PTTP^SCAPMC	POSHIS+10
$$TPTM^SCAPMC	TEAMHIS+2
$$DATES^SCAPMCU1	NEWHIST+21
$$LASTDATE^SCAPMCU1	NEWHIST+17, OKDEL+12, OKINACT+15
ERR^SCAPMCU1	NEWHIST+25, NEWHIST+29
$$ACTHIST^SCAPMCU2	OKINACT+22
$$DTAFTER^SCAPMCU2	OKCHGDT+16
$$DTBEFORE^SCAPMCU2	OKCHGDT+20
$$BADCHGDT^SCMCDDA	OKCHGDT+25
$$BADNEWDT^SCMCDDA	NEWHIST+31

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	POSHIS+8
^SCTM(404.57 - [#404.57]	TEAMHIS+7, POSHIS+7
^TMP($J	TEAMHIS+12, TEAMHIS+13, TEAMHIS+14, POSHIS+11, POSHIS+13

Name	Line Occurrences
$$OKINACT	OKDEL+18, TEAMHIS+8
QTNWHIST	NEWHIST+18, NEWHIST+22, NEWHIST+26, NEWHIST+31, NEWHIST+34, NEWHIST+35
QTOKCHK	OKCHGDT+12, OKCHGDT+17, OKCHGDT+21, OKCHGDT+25
QTOKDEL	OKDEL+13
QTOKIN	OKINACT+16, OKINACT+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DATE	NEWHIST~, NEWHIST+18, NEWHIST+21, NEWHIST+26, NEWHIST+28, OKINACT~, OKINACT+16, OKINACT+19, OKINACT+26, OKINACT+27 , TEAMHIS+5, TEAMHIS+8, TEAMHIS+13, TEAMHIS+14, POSHIS+4, POSHIS+5, POSHIS+12, POSHIS+13, OKCHGDT~, OKCHGDT+17 , OKCHGDT+21
DIERR	NEWHIST+13~
FILE	NEWHIST~, NEWHIST+17, NEWHIST+21, OKDEL~, OKDEL+10, OKDEL+12, OKDEL+17, OKDEL+18, OKINACT~, OKINACT+15 , OKINACT+22, TEAMHIS, POSHIS, OKCHGDT~, OKCHGDT+10, OKCHGDT+13, OKCHGDT+16, OKCHGDT+20
HISTIEN	OKDEL~, OKDEL+10, OKCHGDT~, OKCHGDT+10, OKCHGDT+12
IEN	NEWHIST~, NEWHIST+17, NEWHIST+21, OKINACT~, OKINACT+15, OKINACT+22, TEAMHIS+2, TEAMHIS+11, POSHIS+2, POSHIS+4 , POSHIS+5, POSHIS+7, POSHIS+10
ROOT	OKDEL+8~, OKDEL+10, OKDEL+11, OKINACT+13~, OKCHGDT+8~, OKCHGDT+10, OKCHGDT+11
SCBEGIN	NEWHIST+14~
SCCLIN	OKINACT+13~, POSHIS+7*, POSHIS+8
SCDATES	NEWHIST+13~
>> SCDT("BEGIN"	OKINACT+19*
>> SCDT("END"	OKINACT+20*
>> SCDT("INCL"	OKINACT+21*
SCDTS	NEWHIST+14~
SCEND	NEWHIST+14~
SCERR	NEWHIST~, NEWHIST+25, NEWHIST+29, OKDEL~, OKDEL+18, OKINACT~, OKINACT+22, TEAMHIS+2, TEAMHIS+8, TEAMHIS+11 , POSHIS+2, POSHIS+10, OKCHGDT~
SCESEQ	NEWHIST+14~, NEWHIST+25, NEWHIST+29
SCI	OKINACT+13~, TEAMHIS+3, TEAMHIS+5, TEAMHIS+6, TEAMHIS+7, TEAMHIS+12, TEAMHIS+13, TEAMHIS+14, POSHIS+3, POSHIS+4 , POSHIS+5, POSHIS+11, POSHIS+12, POSHIS+13
SCINCL	NEWHIST+14~
SCLASTDT	NEWHIST+13~, NEWHIST+17, NEWHIST+18, NEWHIST+19, NEWHIST+20, OKDEL+8~, OKDEL+12, OKDEL+13, OKDEL+14, OKDEL+15 , OKDEL+18, OKINACT+13~, OKINACT+15*, OKINACT+16, OKINACT+17, OKINACT+18
SCLSEQ	NEWHIST+14~
SCN	NEWHIST+14~
SCNODE	OKDEL+8~, OKDEL+11, OKDEL+12, OKDEL+13, OKDEL+17, OKDEL+18, OKINACT+13~, OKCHGDT+8~, OKCHGDT+11, OKCHGDT+12 , OKCHGDT+13, OKCHGDT+16, OKCHGDT+20
SCOK	NEWHIST+13~, NEWHIST+15, NEWHIST+20, NEWHIST+23, NEWHIST+27, NEWHIST+36, QTNWHIST, OKDEL+8~, OKDEL+9, OKDEL+15* , OKDEL+18, QTOKDEL, OKINACT+13~, OKINACT+14, OKINACT+18, OKINACT+24, OKINACT+27, TEAMHIS+2, TEAMHIS+3, TEAMHIS+7* , TEAMHIS+9, TEAMHIS+11, TEAMHIS+12, TEAMHIS+13, TEAMHIS+14, POSHIS+2, POSHIS+3, POSHIS+4, POSHIS+5, POSHIS+8 , POSHIS+10, POSHIS+11, POSHIS+12, POSHIS+13, QTOKIN, OKCHGDT+8~, OKCHGDT+9, OKCHGDT+12, OKCHGDT+19, OKCHGDT+23* , QTOKCHK
SCP	NEWHIST+14~
SCPARM	NEWHIST+14~, NEWHIST+25, NEWHIST+29
SCPARM("EFFEC	TIVE DATE" , NEWHIST+28*
SCPARM("NEW E	NTRY" , NEWHIST+24*
>> SCPR	POSHIS+3*
>> SCPRLST(	POSHIS+3, POSHIS+4, POSHIS+5
>> SCPT	TEAMHIS+12, POSHIS+11
SCPTLST	OKINACT+13~
SCPTLST(	POSHIS+12
SCSTAT	OKINACT+13~, OKCHGDT+8~, OKCHGDT+13*, OKCHGDT+16, OKCHGDT+20
SCSTATUS	OKDEL+8~, OKDEL+17*, OKDEL+18
SCTP	OKINACT+13~, TEAMHIS+3*, TEAMHIS+7, TEAMHIS+8
SCTPLST	OKINACT+13~
SCTPLST(	TEAMHIS+3, TEAMHIS+5, TEAMHIS+6, TEAMHIS+7
SCX	NEWHIST+13~, NEWHIST+21, NEWHIST+22, NEWHIST+26, NEWHIST+35, OKDEL+8~, OKINACT+13~, OKINACT+22, OKINACT+23, OKINACT+24 , OKINACT+25, TEAMHIS+8, TEAMHIS+9, OKCHGDT+8~, OKCHGDT+16, OKCHGDT+17, OKCHGDT+18, OKCHGDT+19, OKCHGDT+20*, OKCHGDT+21 , OKCHGDT+22, OKCHGDT+23
STATUS	NEWHIST~, NEWHIST+34, NEWHIST+35, NEWHIST+36
U	NEWHIST+20, NEWHIST+23, NEWHIST+26, NEWHIST+27, NEWHIST+36, OKDEL+12, OKDEL+13, OKDEL+15, OKDEL+17, OKDEL+18 , OKINACT+18, OKINACT+27, TEAMHIS+2, TEAMHIS+3, TEAMHIS+5, TEAMHIS+6, TEAMHIS+7, TEAMHIS+9, TEAMHIS+11, TEAMHIS+12 , TEAMHIS+13, TEAMHIS+14, POSHIS+2, POSHIS+3, POSHIS+4, POSHIS+5, POSHIS+7, POSHIS+8, POSHIS+11, POSHIS+12 , POSHIS+13, OKCHGDT+12, OKCHGDT+13, OKCHGDT+16, OKCHGDT+19, OKCHGDT+20, OKCHGDT+23
X	NEWHIST+13~
Y	NEWHIST+13~, NEWHIST+19, NEWHIST+20, OKDEL+14, OKDEL+15, OKINACT+17, OKINACT+18, OKINACT+26, OKINACT+27, TEAMHIS+6* , TEAMHIS+7, OKCHGDT+18, OKCHGDT+19, OKCHGDT+22, OKCHGDT+23

Customize PDF page

Package: Scheduling

Routine: SCMCDD

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: