Routine: LRJSMLA

Package	Total	Call Graph
Lab Service	2	($$GRPTLST,$$HLTOWL,$$KEEPBED,CLNUP,SRTCHG)^LRJSMLA1 HANGCHAR^LRJSMLU
Kernel	1	IOXY^XGF
VA FileMan	1	GETS^DIQ

Package	Total	Caller Graph
Lab Service	3	LRJSML LRJSML2 LRJSML4

Entry Points

Name	Comments	DBIA/ICR reference
BLDREC(LRFR,LRTO,LRES,LRTYPE)	; -- output the HLCMS updates ; Input: ; LRFR - start time to report the raw data for. ; LRTO - end to report the raw data. ; LRES - Root for array that defines result data ; LRTYPE - report type ; 1: do not report records that that have changed ; but returned back to its original values (Default) ; 2: report all reocrds ; Output: ; @OUT@(seguence number) - array containing the results ;
BLDRAW(LRFR,LRTO,OUT)	; -- build raw data for given time interval into @OUT array ; Input: ; LRFR - start date/time for raw data report ; LRTO - end date/time for raw data report ; OUT - Name of array holding raw data ; Output: ; @OUT@ - array in the following format. ; @OUT@(sort order, HL ien, 0, "CURRENT" or "PREVIOUS" or "NEW") = CURRENT or PREVIOUS or NEW HL field values ; @OUT@(sort order, HL ien,"AAAROOM", room value,-.235681, "CURRENT" or "PREVIOUS" or "NEW")=CURRENT or PREVIOUS or NEW room field values ; @OUT@(sort order, HL ien,"AAAROOM", room value, bed value, "CURRENT" or "PREVIOUS" or "NEW")=CURRENT or PREVIOUS or NEW bed field values ; e.g. ; ; @OUT@("SORT2RAW",432,0,"CURRENT")="CURRENT^LOCATION^432^ZZW 100Ar^WARD^ALABAMA^TROY^^^OSTOVARI,PARVIZ^3081208.165853" ; @OUT@("SORT2RAW",432,0,"PREVIOUS")="PREVIOUS^LOCATION^432^ZZW 100A^^ALBANY AREA^DEVVLD^^" ; @OUT@("SORT2RAW",432,"AAAROOM",1001,-.235681,"CURRENT")="CURRENT^ROOM^432^ZZW 100Ar^WARD^ALABAMA^TROY^^" ; @OUT@("SORT2RAW",432,"AAAROOM",1001,-.235681,"PREVIOUS")="PREVIOUS^ROOM^432^ZZW 100A^^ALBANY AREA^DEVVLD^1001^" ; @OUT@("SORT2RAW",432,"AAAROOM",1001,"AB","ACUR")="CURRENT^BED^432^ZZW 100Ar^WARD^ALABAMA^TROY^1001^" ; @OUT@("SORT2RAW",432,"AAAROOM",1001,"AB","APREV")="PREVIOUS^BED^432^ZZW100A^^ALBANY AREA^DEVVLD^1001^AB"
BLDHLREC(RES)	; return the record from RES array. ; Input: ; RES - new/current or previous results from audit file and file 44 ; Output: ; Return the record
ROLLUP(HLIEN,CUR,NARR,TO)	; roll back the CUR HL values from current time back to "TO" time ; Input: ; HLIEN - HL ien. ; NARR - array containing the audit file data for given HL ; CUR - array containing HL data. ; TO - End Date for extract ; Output: ; CUR - array containing HL data.
GHL(HLIEN,CUR)	; get the fields that are to be reported for given HL into CUR array ; Input: ; HLIEN - Hosp Loc ien. ; Output: ; CUR - array containing hosiptal location data.
CURRMBED(LRARRY,RBIEN)	; Find value of Room-Bed after last change before End-Date
RBIENCK(LRLSTDT,LRWLN,LRARRY)	; Check for correct Room-Bed IEN

Name	Field # of Occurrence
GETS^DIQ	GHL+10
$$GRPTLST^LRJSMLA1	GHL+10
$$HLTOWL^LRJSMLA1	BLDRAW+145, BLDRAW+153
$$KEEPBED^LRJSMLA1	BLDRAW+149
CLNUP^LRJSMLA1	BLDRAW+45
SRTCHG^LRJSMLA1	BLDRAW+29
HANGCHAR^LRJSMLU	BLDREC+24, BLDREC+37, BLDRAW+34
IOXY^XGF	BLDREC+16

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	BLDRAW+91, BLDRAW+148, BLDRAW+149, BLDRAW+155, BLDRAW+156
^SC - [#44]	BLDRAW+33

Name	Line Occurrences
$$BLDHLREC	BLDRAW+164, BLDRAW+165
$$CURRMBED	BLDRAW+97, BLDRAW+102
$$RBIENCK	CURRMBED+15
BLDRAW	BLDREC+18
GHL	BLDRAW+38
ROLLUP	BLDRAW+44

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTDT	BLDRAW+21~, BLDRAW+36, BLDRAW+82, BLDRAW+128, BLDRAW+129, BLDRAW+130, BLDRAW+131
ARR	BLDRAW+35!, GHL+5~
ARR(44	GHL+12, GHL+13, GHL+14, GHL+15, GHL+16, GHL+17
BEDNAME	BLDRAW+20~, BLDRAW+185*, BLDRAW+193, BLDRAW+198, BLDRAW+199, BLDRAW+203, BLDRAW+204
CUR	BLDRAW+19~, BLDRAW+35!, BLDRAW+38, BLDRAW+44, BLDRAW+119, BLDRAW+164, ROLLUP~, GHL~
CUR("HL"	BLDRAW+47, BLDRAW+48, BLDRAW+61, BLDRAW+63, BLDRAW+71, BLDRAW+74, BLDRAW+118, BLDRAW+120, BLDRAW+123, BLDRAW+125 , BLDRAW+128, BLDRAW+129, BLDRAW+134, BLDRAW+137, BLDRAW+139, BLDRAW+144, BLDRAW+163, BLDRAW+164, BLDRAW+165, BLDRAW+191 , ROLLUP+29, GHL+11, GHL+12, GHL+13, GHL+14, GHL+15, GHL+16, GHL+17, GHL+18*
CURDATA	BLDREC+12~, BLDREC+40*, BLDREC+44
CURMBD	BLDRAW+19~, BLDRAW+91*, BLDRAW+108, BLDRAW+114
CURTYPE	BLDRAW+21~, BLDRAW+134*, BLDRAW+138, BLDRAW+140, BLDRAW+143, BLDRAW+152
DTR	BLDRAW+19~, BLDRAW+53, BLDRAW+54, BLDRAW+61, BLDRAW+82, BLDRAW+85, ROLLUP+9~, ROLLUP+21, ROLLUP+22
ENTNM	BLDRAW+19~, BLDRAW+64*, BLDRAW+114, ROLLUP+9~
FILENUM	GHL+5~, GHL+6*, GHL+10
FLAG	BLDRAW+20~, BLDRAW+188*, BLDRAW+195
FLDNUM	BLDRAW+19~, BLDRAW+124, BLDRAW+125
HLIEN	BLDRAW+19~, BLDRAW+32, BLDRAW+33, BLDRAW+38, BLDRAW+41, BLDRAW+44, BLDRAW+123, BLDRAW+145, BLDRAW+149, BLDRAW+153 , BLDRAW+159, BLDRAW+164, BLDRAW+165, BLDRAW+170, BLDRAW+173, BLDRAW+174, BLDRAW+206, ROLLUP~, GHL~, GHL+7* , GHL+10, GHL+11, GHL+12, GHL+13, GHL+14, GHL+15, GHL+16, GHL+17
HLSORT	BLDRAW+19~, BLDRAW+162, BLDRAW+163, BLDRAW+164, BLDRAW+165, BLDRAW+169, BLDRAW+170, BLDRAW+172, BLDRAW+173, BLDRAW+174 , BLDRAW+206
I	BLDREC+12~, BLDREC+23, BLDREC+25, BLDREC+26, BLDREC+35, BLDREC+36, BLDREC+38, BLDREC+39, BLDREC+40, BLDREC+45 , BLDREC+50, BLDREC+55, BLDREC+59, ROLLUP+15
IGNORE	BLDRAW+21~, BLDRAW+136, BLDRAW+138, BLDRAW+140*, BLDRAW+158
INACTDT	BLDRAW+21~, BLDRAW+36, BLDRAW+85, BLDRAW+128, BLDRAW+129, BLDRAW+130, BLDRAW+131
IOSL	BLDREC+16
KEEPBED	BLDREC+12~
KEEPHL	BLDREC+12~
KEEPRM	BLDREC+12~
LAST	BLDREC+12~, BLDREC+32*, BLDREC+35
LRARRY	CURRMBED~, CURRMBED+15, CURRMBED+17, CURRMBED+20, CURRMBED+21, RBIENCK~, RBIENCK+9, RBIENCK+11, RBIENCK+13
LRAUDN	CURRMBED+11~, CURRMBED+20*, CURRMBED+21
LRCHAR	BLDREC+12~, BLDREC+15, BLDREC+24, BLDREC+37, BLDRAW+21~, BLDRAW+22, BLDRAW+34
LRES	BLDREC~, BLDREC+14, BLDREC+21, BLDREC+26, BLDREC+59, BLDREC+60
LRFN	CURRMBED+11~, CURRMBED+17*, CURRMBED+20, CURRMBED+21
LRFR	BLDREC~, BLDREC+18, BLDRAW~, BLDRAW+29
LRLASTDT	CURRMBED+11~, CURRMBED+14*, CURRMBED+15, CURRMBED+17, CURRMBED+20, CURRMBED+21
LRLSTDT	RBIENCK~, RBIENCK+9*, RBIENCK+11, RBIENCK+13
LRRBWN	CURRMBED+11~, CURRMBED+14, CURRMBED+15, CURRMBED+17, CURRMBED+20, CURRMBED+21
LRTMP	BLDREC+12~, BLDREC+21*, BLDREC+25, BLDREC+32, BLDREC+38, BLDREC+40, BLDREC+45, BLDREC+50, BLDREC+55, BLDREC+58 , BLDREC+59, BLDREC+61
LRTO	BLDREC~, BLDREC+18, BLDRAW~, BLDRAW+29, BLDRAW+44, BLDRAW+54
LRTYPE	BLDREC~, BLDREC+13*, BLDREC+25, BLDREC+26, BLDREC+28
LRWLN	CURRMBED+11~, CURRMBED+14, CURRMBED+15, CURRMBED+17, CURRMBED+20, CURRMBED+21, RBIENCK~, RBIENCK+11, RBIENCK+13
MOD	BLDRAW+19~, BLDRAW+35!
MOD("HL"	BLDRAW+76, BLDRAW+77, BLDRAW+123, BLDRAW+124
NARR	BLDRAW+19~, BLDRAW+35!, BLDRAW+41*, BLDRAW+44, BLDRAW+45, ROLLUP~
NEWCUR	BLDRAW+20~, BLDRAW+170, BLDRAW+171, BLDRAW+173, BLDRAW+192, BLDRAW+193, BLDRAW+196, BLDRAW+198, BLDRAW+201, BLDRAW+203
NEWIENV	BLDRAW+19~, BLDRAW+57*, ROLLUP+9~
NEWVAL	BLDRAW+19~, BLDRAW+59*, BLDRAW+82, BLDRAW+85, BLDRAW+97, BLDRAW+102, BLDRAW+112, ROLLUP+9~
NFLDNUM	BLDRAW+19~, BLDRAW+55, BLDRAW+69, BLDRAW+76, BLDRAW+77, BLDRAW+80, BLDRAW+93, BLDRAW+105, ROLLUP+9~, ROLLUP+23 , ROLLUP+29
NODE	BLDREC+12~, BLDREC+22, BLDREC+23, BLDREC+25, BLDREC+26, BLDREC+58, BLDREC+59, BLDRAW+19~, BLDRAW+51, BLDRAW+52 , BLDRAW+53, BLDRAW+55, BLDRAW+56, BLDRAW+57, BLDRAW+58, BLDRAW+59, BLDRAW+60, BLDRAW+62, BLDRAW+64, BLDRAW+177* , BLDRAW+183, BLDRAW+184, BLDRAW+185, BLDRAW+186, BLDRAW+187, BLDRAW+188, BLDRAW+189, ROLLUP+9~, ROLLUP+12, ROLLUP+13* , ROLLUP+14, ROLLUP+15, ROLLUP+17, ROLLUP+19, ROLLUP+20, ROLLUP+21, ROLLUP+23, ROLLUP+24, ROLLUP+25
NOFFSET	BLDREC+12~, BLDREC+20*
OLDBDNM	BLDRAW+20~, BLDRAW+187*, BLDRAW+199, BLDRAW+204
OLDIENV	BLDRAW+19~, BLDRAW+58*, ROLLUP+9~
OLDRMNM	BLDRAW+20~, BLDRAW+186*, BLDRAW+199, BLDRAW+204
OLDVAL	BLDRAW+19~, BLDRAW+60, BLDRAW+70, BLDRAW+77, BLDRAW+82, BLDRAW+85, BLDRAW+94, BLDRAW+102, BLDRAW+107, ROLLUP+9~ , ROLLUP+25, ROLLUP+29
OUT	BLDREC+12~, BLDREC+14*, BLDREC+18, BLDREC+20, BLDREC+22, BLDREC+23, BLDREC+27, BLDRAW~, BLDRAW+24, BLDRAW+25 , BLDRAW+149, BLDRAW+159, BLDRAW+164, BLDRAW+165, BLDRAW+170, BLDRAW+173, BLDRAW+174, BLDRAW+206
PREV	BLDRAW+19~, BLDRAW+35!, BLDRAW+119*, BLDRAW+165
PREV("HL"	BLDRAW+121, BLDRAW+123, BLDRAW+124, BLDRAW+125, BLDRAW+130, BLDRAW+131, BLDRAW+135, BLDRAW+165
PREVDATA	BLDREC+12~, BLDREC+38*, BLDREC+39, BLDREC+41, BLDREC+43, BLDREC+44, BLDREC+48, BLDREC+53, BLDREC+54
PREVIOUS	BLDRAW+20~, BLDRAW+171, BLDRAW+174, BLDRAW+197, BLDRAW+199, BLDRAW+202, BLDRAW+204
PREVTYPE	BLDRAW+21~, BLDRAW+135*, BLDRAW+140, BLDRAW+143, BLDRAW+152
RBIEN	BLDRAW+19~, BLDRAW+56, BLDRAW+67, BLDRAW+90, BLDRAW+91, BLDRAW+95, BLDRAW+96, BLDRAW+97, BLDRAW+99, BLDRAW+100 , BLDRAW+102, BLDRAW+108, BLDRAW+109, BLDRAW+113, BLDRAW+114, BLDRAW+189, ROLLUP+9~, ROLLUP+24*, ROLLUP+28, CURRMBED~ , CURRMBED+15
RES	BLDHLREC~
RES("HL"	BLDHLREC+6, BLDHLREC+7, BLDHLREC+8, BLDHLREC+9, BLDHLREC+10, BLDHLREC+11, BLDHLREC+12, BLDHLREC+13, BLDHLREC+14, BLDHLREC+16 , BLDHLREC+17, BLDHLREC+18
REVNARR	ROLLUP+10~
REVNODE	BLDRAW+19~, BLDRAW+24*, BLDRAW+25, BLDRAW+29, BLDRAW+33, BLDRAW+41, BLDRAW+208
RMBD	BLDRAW+19~, BLDRAW+35!
RMBDIEN	BLDRAW+20~, BLDRAW+146, BLDRAW+148, BLDRAW+149, BLDRAW+154, BLDRAW+155, BLDRAW+156
RMBDLIST	BLDRAW+20~, BLDRAW+167!, BLDRAW+206
RMBDLIST("AAAROOM"	BLDRAW+192, BLDRAW+193, BLDRAW+196, BLDRAW+197, BLDRAW+198, BLDRAW+199, BLDRAW+201, BLDRAW+202, BLDRAW+203, BLDRAW+204
RMBDUNQ	BLDRAW+19~, BLDRAW+35!
RMBDUNQ(	BLDRAW+95!, BLDRAW+96!, BLDRAW+97, BLDRAW+99!, BLDRAW+100!, BLDRAW+102, BLDRAW+108, BLDRAW+109!, BLDRAW+113!, BLDRAW+114 , BLDRAW+149, BLDRAW+156
RNODE	ROLLUP+10~, ROLLUP+14, ROLLUP+15, ROLLUP+16*, ROLLUP+17
ROOMNAME	BLDRAW+20~, BLDRAW+184*, BLDRAW+192, BLDRAW+193, BLDRAW+196, BLDRAW+197, BLDRAW+198, BLDRAW+199, BLDRAW+201, BLDRAW+202 , BLDRAW+203, BLDRAW+204
TO	ROLLUP~, ROLLUP+22
TOTALBED	BLDREC+12~, BLDREC+34, BLDREC+46, BLDREC+49, BLDREC+52, BLDREC+56
TOTALRM	BLDREC+12~, BLDREC+33, BLDREC+51, BLDREC+54, BLDREC+56*
USER	BLDRAW+19~, BLDRAW+62*, BLDRAW+63, ROLLUP+9~
WLIEN	BLDRAW+20~, BLDRAW+145, BLDRAW+148, BLDRAW+153, BLDRAW+155
X	BLDHLREC+5~, BLDHLREC+6, BLDHLREC+7, BLDHLREC+8, BLDHLREC+9, BLDHLREC+10, BLDHLREC+11, BLDHLREC+12, BLDHLREC+13, BLDHLREC+14* , BLDHLREC+17, BLDHLREC+18, BLDHLREC+19

Customize PDF page

Package: Lab Service

Routine: LRJSMLA

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: