PSJBCMA6 ;B'ham/JCH - Send Message when Clinic Order Setup incomplete ; 18 Aug 98 / 2:48 PM
Source file <PSJBCMA6.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
NOCLDEF(DFN,ORDER) | ; If clinic not defined in Clinic Definition file for Pending order, send message
|
|
MSGEN(PSJCLMSG) | ; Begin
|
|
SENDMSG | ;Send mail message
|
|
DONE | ;
|
|
GETDT | ; check date/time for job to run
|
|
CON() | ;
|
|
CWARN(DFN,ORDER) | ; Display warning about undefined CLINIC DEFINITION
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^SC - [#44] | Classic Fileman Calls |
^PS(53.46 - [#53.46] | Classic Fileman Calls |