SCMCTPM ;ALB/REW - Patient Position Changes MailMessages ; 26 Mar 1996
Source file <SCMCTPM.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(SCTP,SCFIELDA,SCDATE,SCNEWTP,SCOLDTP,SCBADTP) | ;
; Input: ; SCTP - Pointer to Team Position File (#404.57) ; SCFIELDA - Field array with internal values ; SCDATE - Effective Date ; SCNEWTP - DFN array of newly assigned to position ; SCOLDTP - DFN array of previously assigned to position ; SCBADTP - DFN array of patients unassignable to position |
|
| NEW | ||
| BAD | ||
| QTMULT |
