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) | ;
|