LRJSML1 ;ALB/GTS - Lab Vista Hospital Location Initialization;02/24/2010 14:44:01
Source file <LRJSML1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Lab Service | 7 | LRJ HOSPITAL LOCATION MONITOR LRJ SYS MAP HL LRJ SYS MAP HL DISP EXT LRJ SYS MAP HL DISPLAY MESSAGE LRJSML2 LRJSML4 LRJSML8 |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for LRJ SYS MAP HL List Template
|
|
| HDR | ; -- header code
|
|
| INIT | ;* init variables and list array
|
|
| GETLINK() | ; -- get logical link name
|
|
| CLEAR(LRHLARY) | ;* clean up entries
|
|
| REFRESH(LRHLARY) | ;* refresh display
|
|
| HELP | ;* help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| BUILD(LRHLARY) | ; -- build display array
|
|
| KILL | ; -- kill off display data array
|
|
| LISTHL(LRHLARY,X) | ; -- place Hospital Locations in the display array
|
|
| CREATRPT(LRHLARY) | ;Create initial array of Hospital Location definition
; INPUT: ; LRHLARY - Array root for initial HL extract |
|
| DISPEXT(LRHLARY) | ;Display Raw HL changes extracted
|
|
| CREATMM(LRHLARY) | ;Create a mail message array
|
|
| MMHDR | ; -- header code for Mail Message display
|
|
| SETRNG(LRFROM,LRTO) | ; Get current change Extract Date range
|
|
| INITCK() | ;Return Initialization report indicator
; 1 : Init extract ; 0 : Not Init extract [Default] |
| Name | Field # of Occurrence |
|---|---|
| BREAK^LRJSML | LISTHL+16 |
| HDR^LRJSML | DISPEXT+18 |
| MSG^LRJSML | REFRESH+2, HELP+2, CREATRPT+5, CREATMM+20 |
| REFRESH^LRJSML | DISPEXT+22 |
| EXTHL^LRJSML4 | CREATRPT+10 |
| GETDATE^LRJSML8 | SETRNG+1 |
| LISTHLMM^LRJSML8 | CREATMM+19 |
| $$BLDNUM^LRJSMLU | HDR+2, MMHDR+5 |
| $$VERNUM^LRJSMLU | HDR+2, MMHDR+5 |
| ADD^LRJSMLU | BUILD+12, LISTHL+10, LISTHL+12 |
| EN^VALM | EN+5 |
| CLEAR^VALM1 | EXIT+3 |
| PAUSE^VALM1 | CREATMM+10 |
| CNTRL^VALM10 | BUILD+13, LISTHL+11 |
| KILL^VALM10 | BUILD+9, LISTHL+7 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("LRJ SYS MAP HL INIT MGR" | EXIT+1!, KILL+1!, DISPEXT+14!, DISPEXT+20! |
| ^TMP("LRJ SYS USER MANAGER - DATES" | INIT+1!, EXIT+2!, DISPEXT+21*, SETRNG+3, SETRNG+4 |
| ^TMP("LRJ SYS USER MANAGER - INIT" | INIT+1!, INIT+5*, EXIT+2!, INITCK+4 |
| ^TMP($J | INIT+2!, EXIT+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | CREATRPT+3~ |
| >> IOINORM | BUILD+13, LISTHL+11 |
| >> IOUOFF | BUILD+13, LISTHL+11 |
| >> IOUON | BUILD+13, LISTHL+11 |
| LRFROM | DISPEXT+8~, DISPEXT+9*, DISPEXT+19, DISPEXT+21, DISPEXT+22, SETRNG~, SETRNG+1, SETRNG+2, SETRNG+3* |
| LRHLARY | CLEAR~, CLEAR+1, REFRESH~, REFRESH+1, BUILD~, BUILD+5, BUILD+15, LISTHL~, LISTHL+14, LISTHL+15 , CREATRPT~, CREATRPT+10, DISPEXT~, DISPEXT+15, DISPEXT+22, CREATMM~, CREATMM+8, CREATMM+12, CREATMM+14, CREATMM+18 , CREATMM+19, CREATMM+23 |
| LRINIT | DISPEXT+8~, DISPEXT+10*, DISPEXT+12, DISPEXT+17, CREATMM+15~, CREATMM+16*, MMHDR+1~, MMHDR+2*, MMHDR+3, MMHDR+4 |
| LRJERRCT | BUILD+7~ |
| LRJSROU | EN+3~, EN+4* |
| LRSTATUS | BUILD+7~ |
| LRTO | DISPEXT+8~, DISPEXT+9*, DISPEXT+19, DISPEXT+21, DISPEXT+22, SETRNG~, SETRNG+1, SETRNG+2, SETRNG+4* |
| LRX | BUILD+7~, BUILD+11*, BUILD+12, BUILD+13 |
| NODE | LISTHL+5~, LISTHL+13*, LISTHL+14*, LISTHL+15, LISTHL+16 |
| >> VALMBCK | REFRESH+3*, CREATMM+21* |
| >> VALMBG | REFRESH+4*, CREATMM+22* |
| >> VALMCNT | BUILD+10*, BUILD+12, BUILD+13, LISTHL+8*, LISTHL+10, LISTHL+11, LISTHL+12, LISTHL+16 |
| >> VALMHDR(1 | HDR+1*, MMHDR+3*, MMHDR+4* |
| >> VALMHDR(2 | HDR+2*, MMHDR+5* |
| X | HELP+1*, LISTHL~, LISTHL+9*, LISTHL+10, LISTHL+11, LISTHL+15*, LISTHL+16 |
