LRJSML1 ;ALB/GTS - Lab Vista Hospital Location Initialization;02/24/2010 14:44:01
Source file <LRJSML1.m>
| 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 | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|