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 |
|