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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SCMCDD

Package: Scheduling

Routine: SCMCDD


Information

SCMCDD ;ALB/REW - DD Calls used by PCMM ; 6 November 1995

Source Information

Source file <SCMCDD.m>

Call Graph

Call Graph Total: 5

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SCUTBK10  

Entry Points

Name Comments DBIA/ICR reference
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
QTOKDEL
QTOKCHK
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
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
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
POSHIS
TEAMHIS
QTOKIN

External References

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

Global Variables Directly Accessed

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

Label References

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