SDWLPE ;IOFO BAY PINES/TEH - WAIT LIST - PARAMETER WAIT LIST ENTER/EDIT ; 5/24/11 11:27am
Source file <SDWLPE.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
EN1 | ||
SEL | ;SELECT PARAMETER FILE
|
|
EDIT | ;EDIT FILE PARAMETERS
|
|
SB1 | ||
SB1A | ||
SB2 | ||
ESB2 | ;
|
|
SWT | ;SWITCH FOR INACTIVATION OF PARAMETER FILE
|
|
HD | ;HEADER
|
|
END | ||
CLIN(CL) | ;identify clinic institution through DIVISON ----> INSTITUTION path.
; function to return: ; 1 2 3 4 5 6 7 ; - Institution pointer to ^DIC(4 _U_ STATION number (# 99) _U_ INST Name _U_ DIV Pointer to ^DG(40.8 _U_N/L_U_Message_U_TYPE ; ( INST^STA NUM^SNAM^DIV^N/L^MESS^TYPE ) ; N/L - N -National/L -Local ; TYPE - type of entry in file # 44 (field #2) ; C:CLINIC ; M:MODULE ; W:WARD ; Z:OTHER LOCATION ; N:NON-CLINIC STOP ; F:FILE AREA ; I:IMAGING ; OR:OPERATING ROOM ; ; with optional Message: ; ; if STA="" ; - INST^^SNAM^DIV^N/L^' - No Station Number on file' ^ TYPE ; or ; - 0^^^DIV^^' - No Institution has been identified '^ TYPE ; - 0^^^-1^^' - No Division has been identified' ^ TYPE ; ; if entry is inactivated: ; ; - INST^^SNAM^DIV^N/L^' - Inactive treating medical facility' ^ TYPE ; - -1^^^^^' - No clinic on file' ^ ; |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DIC(4 - [#4] | GET1^DIQ |
^DIC(40.7 - [#40.7] | Classic Fileman Calls |
^DG(40.8 - [#40.8] | GET1^DIQ |
^SDWL(409.31 - [#409.31] | Classic Fileman Calls |
^SDWL(409.32 - [#409.32] | Classic Fileman Calls, GET1^DIQ |
^SC - [#44] | GET1^DIQ |