SCAPMC25 ;ALB/REW - Team API's:MSGDTH ; may 1999
Source file <SCAPMC25.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MSGPT(MSGTYPE,DFN,SCTEAMA,SCDATES,SCYESCL,SCLIST,SCERR) | ; users getting death message
; Input: ; MSGTYPE: ; 1 = Death Message ; 2 = Inpatient Message ; 3 = Team Message ; 4 = Consult Message ; 5 = Inactivation Message |
|
| ST | ||
| MSGQ | ||
| PRACQ | ||
| OKPOS(MSGTYPE,SCTP,DFN,SCYESCL,SCDATES,SCERR) | ;check if message should go out to position for given pt
|
|
| OKDATA() | ;setup/check variables
|
|
| PCMMXMY(MSGTYPE,DFN,SCTEAMA,SCDATES,SCYESCL) | ;create xmy array for the appropriate type of pcmm mess
; return 1 if success,0 if error or no users receiving message |
|
| QTXMY | ||
| MSGTEXT(MSGTYPE) | ;
|
