SCMCTMM ;ALB/REW - Patient Team Changes MailMessages ; 26 Mar 1996
Source file <SCMCTMM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ;Do Patient Team Changes MailMan Message
; - called by SCMC PT TEAM CHANGES MAIL MESSAGE protocol |
||
| END | ||
| SETLN(TEXT) | ;
|
|
| TEXT(SCFILE,SCNODE,SCPC,SCSPACE,SCLAB) | ;returns fldname & external value
|
|
| QTTXT | ||
| DDNAME(FILE,FIELD) | ;return the fieldname
|
|
| MAILLST(SCTM,SCFIELDA,SCDATE,SCNEWTM,SCOLDTM,SCBADTM) | ;
; Input: ; SCTM - Pointer to Team File (#404.51) ; SCFIELDA - Field array with internal values ; SCDATE - Effective Date ; SCNEWTM - DFN array of newly assigned to team ; SCOLDTM - DFN array of previously assigned to team ; SCBADTM - DFN array of patients unassignable to team |
|
| BAD | ||
| QTMULT |
