TIU144 ; SLC/MAM - Consults with Mismatched Patients ;3/6/03
Source file <TIU144.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BEGIN | ; List mismatched Consults
|
|
BUILD | ; Build array of mismatched Consults
|
|
PATIENT(PTDA) | ; Return Patient Name & last 4 of SSN
; Receives Patient file IEN |
|
PRINT(CHEKD,FOUND) | ; Print
|
|
PRINTX | ||
MAIL(CHEKD,FOUND) | ; Send msg to person who ran option & Pt Safety Committee
|
|
STOP() | ;on screen paging check
; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0 |
|
SETCONT() | ; D form feed, Set TIUCONT
|
|
SETX |
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 |
|
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 |
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^GMR(123 - [#123] | Classic Fileman Calls |
^SC - [#44] | EXTERNAL^DILFD |