Routine: OOPSGUIC

Package	Total	Call Graph
VA FileMan	9	DD^%DT FIND^DIC FILE^DICN $$GET1^DID UPDATE^DIE ^DIK CLEAN^DILF $$ROOT^DILFD ($$GET1,GETS)^DIQ
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Asists	4	OOPS LIST CAS OOPS MULTIPLE DATA OOPS SELECT CA7 OOPS SET OSHA300A

Entry Points

Name	Comments	DBIA/ICR reference
CA7LIST(RESULTS,PERSON,CALL)	; builds CA-7 selection list from existing ; cases - not an add
SORT	; reverse the order
LISTCA(RESULTS,INPUT)	; returns a list of valid CA (1 or 2) claims that ; can be selected to create a new CA-7 ; Input: INPUT - 3 pieces to input parameter ; SSN^FILE^CALLER - CALLER contains either E ; or W (menu called from). ; FILE now only contains 2260 (for CA-1 or 2) ; Output: RESULTS - contains a array of ASISTS Claims with the ; claim number, name, and date of injury. Other ; default fields returned are, grade, step, pay amt, ; pay period, FEGLI Code, and Health Ins.
INCLUDE()	; checks to make sure ok to include claim in list
PDDEF()	; get Fegli Code and Health insurance fields from paid
MULTIPLE(RESULTS,INPUT,DATA)	; retrieve data from multiple ; NOTE: When filing into subrecord, the entire subrecord is deleted ; then rebuilt. Also, the field number for the subrecord ; must be passed with the data. ; WORD PROCESSING fields CANNOT file using this code ; Input: INPUT - in the format FILE^FIELD^IEN ; DATA - array of data in the format ; DATA(SIEN)=data where data = P1^P2^P3 etc, where ; P1 = subfield #;data ; DATA="" must be true for a GET. ; Output: RESULTS - data from all records in the multiple will ; be returned. it will be saved in a pieced ; string.
GETD	; get the data
KILLD	; first kill all records in subfile, then rebuild
SETD	; subrecord cleaned out, now rebuild
MFILE	; file the multiple
OSHA300(RESULTS,STA,DATA)	; Files data into subrecord 2262.315 ; Input - STA is the station number subrecord IEN ; DATA is an number subscripted array containing the records ; that contain the Emp Numbers and hours worked in the ; OSHA MONTH/YEAR subrecord. ; Output - RESULTS indicating the success of the filing.
FLD15	; retrieves OSHA 300A Summary data from file 2262
FLD95	; sort Incident Outcomes so they display in chron order OOPS*25

Name	Field # of Occurrence
DD^%DT	FLD15+6
FIND^DIC	PDDEF+3
FILE^DICN	MFILE+7, MFILE+9
$$GET1^DID	MULTIPLE+20, MULTIPLE+21, MULTIPLE+22, SETD+10
UPDATE^DIE	OSHA300+24
^DIK	KILLD+3
CLEAN^DILF	PDDEF+4
$$ROOT^DILFD	MULTIPLE+19
$$GET1^DIQ	CA7LIST+14, CA7LIST+21, SORT+6, SORT+8, SORT+9, SORT+10, LISTCA+19, LISTCA+20, LISTCA+21, LISTCA+30 , LISTCA+31, LISTCA+32, LISTCA+33, LISTCA+34, LISTCA+35, LISTCA+36, LISTCA+37, LISTCA+38, INCLUDE+4, INCLUDE+6
GETS^DIQ	GETD+8, FLD95+3
$$FMTE^XLFDT	SETD+11

Name	Line Occurrences
Function Call: WRITE	Prompt: (menu Line Location: LISTCA+4
Routine Call	DIC Line Location: PDDEF+3
Routine Call	DIE Line Location: OSHA300+24

RPC Name	Call Tags
OOPS SELECT CA7	CA7LIST
OOPS LIST CAS	LISTCA
OOPS MULTIPLE DATA	MULTIPLE
OOPS SET OSHA300A	OSHA300

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^OOPS(2260 - [#2260]	GET1^DIQ
^PRSPC - [#450]	FIND^DIC

Name	Line Occurrences (* Changed, ! Killed)
^OOPS(	CA7LIST+17, CA7LIST+19, LISTCA+17
^OOPS(2260 - [#2260]	MULTIPLE+36, MULTIPLE+37
^OOPS(2262 - [#2262]	OSHA300+14, OSHA300+16!, FLD15+4, FLD15+5
^TMP("CA7LIST"	CA7LIST+8!, CA7LIST+12, CA7LIST+13, CA7LIST+16, SORT+2, SORT+3, SORT+11, SORT+14
^TMP("DILIST"	PDDEF+5, PDDEF+6
^TMP("LISTCA"	LISTCA+11!, LISTCA+15, LISTCA+24, LISTCA+25, LISTCA+43*, LISTCA+45

Name	Line Occurrences
$$INCLUDE	LISTCA+18
$$PDDEF	LISTCA+41
FLD15	GETD+5
FLD95	GETD+7
GETD	MULTIPLE+41
KILLD	MULTIPLE+42
MFILE	SETD+14
SETD	MULTIPLE+42

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	OSHA300+26!
ACTION	MULTIPLE+13~, MULTIPLE+15*, MULTIPLE+31, MULTIPLE+41, MULTIPLE+42
ARR	CA7LIST+9~, SORT+3, LISTCA+12~, LISTCA+23, MULTIPLE+13~, GETD+9, FLD95+5
ARR(	CA7LIST+21, SORT+4, SORT+5, LISTCA+21, LISTCA+28, LISTCA+29, GETD+10, GETD+12, GETD+13, FLD95+6 , FLD95+8, FLD95+9
>> ASISTS	SORT+6, SORT+7, SORT+11
BAD	SETD+1~, SETD+5, SETD+7, SETD+8, MFILE+3, MFILE+7, MFILE+9, MFILE+10
CA7	CA7LIST+9~, CA7LIST+21, SORT+1~, SORT+2, SORT+4*, SORT+5, SORT+11
CA7OK	INCLUDE+1~, INCLUDE+2, INCLUDE+4, INCLUDE+6*, INCLUDE+7
CAIEN	CA7LIST+9~, CA7LIST+13, CA7LIST+17, CA7LIST+19, CA7LIST+21, SORT+1~, SORT+5, SORT+6, SORT+8, SORT+9 , SORT+10, SORT+11, LISTCA+12~, LISTCA+16, LISTCA+17, LISTCA+21, LISTCA+29, LISTCA+30, LISTCA+31, LISTCA+32 , LISTCA+33, LISTCA+34, LISTCA+35, LISTCA+36, LISTCA+37, LISTCA+38, LISTCA+42, INCLUDE+4, INCLUDE+6
CALL	CA7LIST~, CA7LIST+10, CA7LIST+11
CALLER	CA7LIST+9~, CA7LIST+10, CA7LIST+15, CA7LIST+19, CA7LIST+20, LISTCA+12~, LISTCA+13, LISTCA+14, LISTCA+19, LISTCA+20
CN	SORT+1~, SORT+2, SORT+11, SORT+12, LISTCA+12~, LISTCA+27, LISTCA+41, LISTCA+43, LISTCA+44, SETD+1~ , SETD+4, SETD+5, SETD+6
CNT	PDDEF+1~, GETD+1~, GETD+2, GETD+14, GETD+15, GETD+16, OSHA300+7~, OSHA300+8, OSHA300+18, OSHA300+23 , FLD15+1~, FLD15+2, FLD15+7, FLD15+8
CNUM	LISTCA+12~, LISTCA+21, LISTCA+27, LISTCA+28*, LISTCA+29, LISTCA+42
DA	KILLD+1~, KILLD+2, KILLD+3, SETD+1~
DA(1	KILLD+2, SETD+4
DATA	MULTIPLE~, MULTIPLE+15, GETD+1~, GETD+13*, GETD+15, OSHA300~, OSHA300+12
DATA(	MULTIPLE+33, MULTIPLE+34, MULTIPLE+35, MULTIPLE+38, MULTIPLE+39, SETD+5, SETD+6, OSHA300+17, OSHA300+19
DATE	FLD15+1~
DD	MFILE+7!, MFILE+9!
DIC	SETD+1~, SETD+4*
DIC("DR"	SETD+6, SETD+13, MFILE+4, MFILE+5, MFILE+6, MFILE+8
DIC(0	SETD+4*
DIE	SETD+1~
>> DIERR	PDDEF+4
DIK	KILLD+1~, KILLD+2*
DLAYGO	SETD+1~, SETD+4*
DO	MFILE+7!, MFILE+9!
DOI	SORT+1~, SORT+9, SORT+11, LISTCA+12~, LISTCA+31, LISTCA+42
DR	SETD+1~, SETD+2!
DUZ	CA7LIST+8, CA7LIST+12, CA7LIST+13, CA7LIST+14, CA7LIST+16, SORT+2, SORT+3, SORT+11, SORT+14, LISTCA+11 , LISTCA+15, LISTCA+19, LISTCA+20, LISTCA+24, LISTCA+25, LISTCA+43, LISTCA+45
ESSN	CA7LIST+9~, CA7LIST+14*, CA7LIST+15, CA7LIST+20
FEG	PDDEF+1~, PDDEF+2, PDDEF+4, PDDEF+5, PDDEF+6, PDDEF+8, PDDEF+10, PDDEF+12
FEG1	PDDEF+1~, PDDEF+2, PDDEF+8, PDDEF+10, PDDEF+12, PDDEF+19
FIELD	MULTIPLE+13~, MULTIPLE+14*, MULTIPLE+17, MULTIPLE+20, MULTIPLE+21, MULTIPLE+22, MULTIPLE+31, GETD+3, GETD+5, GETD+7
FILE	CA7LIST+9~, CA7LIST+10, CA7LIST+11, CA7LIST+17, CA7LIST+19, CA7LIST+21, SORT+6, SORT+8, SORT+9, SORT+10 , LISTCA+12~, LISTCA+13, LISTCA+14, LISTCA+17, LISTCA+21, LISTCA+30, LISTCA+31, LISTCA+32, LISTCA+33, LISTCA+34 , LISTCA+35, LISTCA+36, LISTCA+37, LISTCA+38, INCLUDE+4, INCLUDE+6, MULTIPLE+13~, MULTIPLE+14, MULTIPLE+17, MULTIPLE+19 , MULTIPLE+20, MULTIPLE+21, MULTIPLE+22, MULTIPLE+31, GETD+5, GETD+7, GETD+8, SETD+4, OSHA300+7~, OSHA300+8 , OSHA300+20, OSHA300+21, OSHA300+22, FLD95+3
FLDA	GETD+1~, GETD+3*, GETD+8, FLD95+3
FLDS	GETD+1~
>> GRD	LISTCA+33*, LISTCA+42
I	SETD+1~, SETD+7*
IEN	MULTIPLE+13~, MULTIPLE+14*, MULTIPLE+17, MULTIPLE+25, MULTIPLE+36, MULTIPLE+37, GETD+2, KILLD+2, SETD+4, FLD15+3
IENS	GETD+1~, GETD+2, GETD+8, OSHA300+7~, OSHA300+18, OSHA300+20, OSHA300+21, OSHA300+22, FLD15+3*, FLD15+4 , FLD15+5, FLD95+3
INJ	LISTCA+12~, LISTCA+35*, LISTCA+42
INPUT	LISTCA~, LISTCA+13, MULTIPLE~, MULTIPLE+14
INS	PDDEF+1~, PDDEF+2, PDDEF+4, PDDEF+5, PDDEF+14, PDDEF+16, PDDEF+18
INS1	PDDEF+1~, PDDEF+2, PDDEF+16, PDDEF+18*, PDDEF+19
LV1	OSHA300+7~, OSHA300+10, OSHA300+14, OSHA300+16, OSHA300+18, FLD15+1~, FLD15+3, FLD15+4, FLD15+5
LV2	OSHA300+7~, OSHA300+10, OSHA300+14, OSHA300+16, FLD15+1~, FLD15+3, FLD15+4, FLD15+5
MSG	OSHA300+25, OSHA300+26!
NM	SORT+1~, SORT+8, SORT+11, LISTCA+12~, LISTCA+30, LISTCA+42
NODE	KILLD+1~, KILLD+2*
NUM	SETD+1~, SETD+6*, SETD+7
OOPSARR	FLD95+1~
OOPSARR(	FLD95+9*, FLD95+12, FLD95+14, FLD95+15
OOPSCNT	MULTIPLE+13~, MULTIPLE+32, MULTIPLE+33, MULTIPLE+34, MULTIPLE+35, MULTIPLE+36, MULTIPLE+37, MULTIPLE+38, MULTIPLE+39, FLD95+1~ , FLD95+2, FLD95+16, FLD95+17, FLD95+18
OOPSDATA	FLD95+1~, FLD95+15*, FLD95+17
OOPSFLD	FLD95+1~, FLD95+7, FLD95+8, FLD95+9, FLD95+13, FLD95+14, FLD95+15
OOPSIEN	FLD95+1~, FLD95+7*
OOPSSREC	FLD95+1~, FLD95+7, FLD95+9, FLD95+11, FLD95+12*, FLD95+14, FLD95+15
OOPSSUB	FLD95+1~, FLD95+5, FLD95+6, FLD95+7, FLD95+8, FLD95+9
OOPSSV	MULTIPLE+13~, MULTIPLE+34, MULTIPLE+36, MULTIPLE+38
OOPSSV1	MULTIPLE+13~, MULTIPLE+35, MULTIPLE+37, MULTIPLE+39
OSHAFDA	OSHA300+7~
OSHAFDA(	OSHA300+20, OSHA300+21, OSHA300+22*
PAID	PDDEF+1~, PDDEF+6*, PDDEF+12, PDDEF+14
PAR	LISTCA+12~, LISTCA+13, LISTCA+14, LISTCA+17, LISTCA+19, LISTCA+20, OSHA300+7~, OSHA300+9, OSHA300+10, FLD15+1~ , FLD15+2*, FLD15+3
>> PAY	LISTCA+37*, LISTCA+42
PCE	MFILE+1~, MFILE+5*, MFILE+8
PCE1	MFILE+1~, MFILE+5*, MFILE+6, MFILE+8
PDFLD	LISTCA+12~, LISTCA+41*, LISTCA+43
>> PER	LISTCA+38*, LISTCA+42
PERSON	CA7LIST~, CA7LIST+11, CA7LIST+15, CA7LIST+17, CA7LIST+20
REC	OSHA300+7~, OSHA300+17, OSHA300+19, FLD15+1~, FLD15+3, FLD15+4*, FLD15+5
RESULTS	CA7LIST~, SORT+14, LISTCA~, LISTCA+25, LISTCA+45, MULTIPLE~, OSHA300~, OSHA300+11, OSHA300+12, OSHA300+13 , OSHA300+15, OSHA300+25
RESULTS(	GETD+14, GETD+15, FLD15+7, FLD95+16, FLD95+17*
RESULTS(0	MULTIPLE+16, MULTIPLE+18, GETD+9, SETD+3, MFILE+2, MFILE+3, MFILE+10, FLD95+5
RESULTS(1	MULTIPLE+23*
>> RET	LISTCA+36*, LISTCA+43
ROOT	MULTIPLE+13~, MULTIPLE+19*, MULTIPLE+25, KILLD+3
SAVEDIK	MULTIPLE+13~, MULTIPLE+25*, KILLD+2, SETD+4
SFLD	GETD+1~, GETD+11, GETD+12, GETD+13
SIEN	GETD+1~, GETD+9, GETD+10, GETD+11, GETD+12, GETD+13
SPEC	MULTIPLE+13~, MULTIPLE+20*, MULTIPLE+22, GETD+10, GETD+12, GETD+13, SETD+10, FLD95+6, FLD95+8, FLD95+9
SREC	GETD+1~, GETD+11*
SSN	SORT+1~, SORT+10, SORT+11, LISTCA+12~, LISTCA+32, LISTCA+42, PDDEF+3
STA	OSHA300~, OSHA300+13, OSHA300+14, OSHA300+16, OSHA300+18
>> STP	LISTCA+34*, LISTCA+42
STR	LISTCA+42, LISTCA+43, SETD+1~, SETD+6, SETD+7, OSHA300+7~, OSHA300+19, OSHA300+20, OSHA300+21, OSHA300+22 , OSHA300+26!, FLD15+5, FLD15+6, FLD15+7
>> STR1	SETD+7*, SETD+8, SETD+9, SETD+11, SETD+12, SETD+13
SUB	MULTIPLE+13~, MULTIPLE+21*, MULTIPLE+25, KILLD+2
TMP	MFILE+1~, MFILE+5*, MFILE+6, MFILE+8
TYPE	GETD+1~, SETD+1~, SETD+10*, SETD+11
U	CA7LIST+10, CA7LIST+19, SORT+11, LISTCA+13, LISTCA+42, LISTCA+43, PDDEF+4, PDDEF+5, PDDEF+6, PDDEF+12 , PDDEF+14, PDDEF+19, MULTIPLE+14, GETD+13, SETD+6, SETD+7, OSHA300+20, OSHA300+21, OSHA300+22, FLD15+6 , FLD15+7, FLD95+15
X	SETD+5, SETD+11, SETD+12*, MFILE+2, OSHA300+26!
Y	MFILE+7, MFILE+9, OSHA300+26!, FLD15+6*, FLD15+7

Customize PDF page

Package: Asists

Routine: OOPSGUIC

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: