SCMCBK7 ;bp/cmf - multiple patient assignments mail queue - RPCVersion = 1 ;;Aug 6, 1998
Source file <SCMCBK7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAILLST(SCTM,SCFIELDA,SCDATE,SCNEWTM,SCOLDTM,SCBADTM,SCTOTCNT) | ;
; ;like MAILLIST^SCMCTMM(... ; 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 ; SCTOTCNT - Count of DFN array passed to process |
|
| NEW | ||
| BAD | ||
| OLD | ||
| QTMULT | ||
| PREP1 | ||
| SETLN(TEXT) | ;
|
|
| SEND(SCX) | ;input SCX=points to string to use as sender
|
|
| BLDLST(SCL) | ;create text by new/bad/old
|
|
| DTLLST | ;detail the list
|
|
| SETLST(SCX) | ;set the list into message
|
|
| RJD | ;ReJect Detail
|
|
| O(SCL) | ;returns next patient in array
|
|
| S(SCL) | ;returns line of text
|
|
| T | ;;
|
|
| 1 | ;;There has been a new team assignment for the following patients:
|
|
| 2 | ;;There has been NO new team assignment for the following patients:
|
|
| 3 | ;;The following patients were already assigned to the target team:
|
|
| 4 | ;;Multiple PATIENT-TEAM ASSIGNMENT for ;;
|
|
| 5 | ;;Team: ;;
|
|
| 6 | ;;Effective Date: ;;
|
|
| 7 | ;;Processed: ;;
|
|
| 8 | ;;PCMM - Multiple Patient-Team Assignment
|
|
| 9 | ;;PCMM - Multiple Patient-Position Assignment
|
