SCMRTMM ;ALB/REW/PDR - Patient Team Multiple Reasssignment MailMessages ; 17 JUL 98
Source file <SCMRTMM.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 4 | EN^DDIOL FIELD^DID $$EXTERNAL^DILFD $$GET1^DIQ |
MailMan | 1 | ^XMD |
Registration | 1 | PID^VADPT6 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 1 | SCAPMR6 |
Name | Comments | DBIA/ICR reference |
---|---|---|
SETLN(TEXT) | ;
|
|
TEXT(SCFILE,SCNODE,SCPC,SCSPACE,SCLAB) | ;returns fldname & external value
|
|
QTTXT | ||
DDNAME(FILE,FIELD) | ;return the fieldname
|
|
MAILLST(SCTM,SCFIELDA,SCDATE,SCBADTM) | ; Reports only reassignment failures
; Input: ; SCTM - Pointer to Team File (#404.51) ; SCFIELDA - Field array with internal values ; SCDATE - Effective Date ; SCBADTM - DFN array of patients unassignable to team |
|
BAD | ; Guts of message
|
|
QTMULT | ;
|
FileNo | Call Tags |
---|---|
^SD(404.91 - [#404.91] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | MAILLST+28 |
^DPT - [#2] | BAD+6 |
^SCTM(404.51 - [#404.51] | MAILLST+22, MAILLST+26 |
^SD(404.91 - [#404.91] | BAD+19 |
^TMP("SCTM MAIL LST" | BAD+8*, BAD+9*, BAD+10*, BAD+12, BAD+14, BAD+15, BAD+16, QTMULT+1! |
^TMP($J | SETLN+4*, QTMULT+2! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | MAILLST+10~, BAD+3*, BAD+4*, BAD+6, BAD+8, BAD+9, BAD+10, BAD+13*, BAD+14*, BAD+15 , BAD+16 |
>> DGQUIET | MAILLST+24 |
DT | MAILLST+16, MAILLST+17 |
DUZ | BAD+18 |
FIELD | DDNAME~, DDNAME+2 |
FILE | DDNAME~, DDNAME+2 |
SCB | MAILLST+10~, MAILLST+14*, MAILLST+16*, MAILLST+19 |
SCBADTM | MAILLST~, MAILLST+8, BAD+4, BAD+9 |
SCDATE | MAILLST~, MAILLST+19, MAILLST+20, MAILLST+28 |
SCDELTEM | MAILLST+10~, MAILLST+12*, QTMULT+1 |
>> SCDETAIL | BAD+15*, BAD+16* |
SCE | MAILLST+10~, MAILLST+15*, MAILLST+17*, MAILLST+20 |
SCFIELDA | MAILLST~, MAILLST+13, MAILLST+31 |
SCFIELDA( | MAILLST+14, MAILLST+15, MAILLST+32, MAILLST+33 |
SCFILE | TEXT~, TEXT+15, TEXT+18 |
SCFLD | TEXT+8~, TEXT+12*, TEXT+15, TEXT+18, MAILLST+10~, MAILLST+32*, MAILLST+33 |
SCINT | TEXT+8~, TEXT+10*, TEXT+11, TEXT+18 |
SCLAB | TEXT~, TEXT+14, TEXT+16, TEXT+17 |
>> SCLNCNT | SETLN+3*, SETLN+4, MAILLST+23* |
SCNDX | MAILLST+10~, MAILLST+32*, MAILLST+33, MAILLST+34 |
SCNODE | TEXT~, TEXT+10, MAILLST+10~, MAILLST+33*, MAILLST+34 |
>> SCNOMAIL | MAILLST+7 |
SCOK | MAILLST+10~, MAILLST+25* |
SCPC | TEXT~, TEXT+10, TEXT+12 |
SCPTNM | MAILLST+10~, BAD+6*, BAD+8, BAD+10, BAD+11*, BAD+12*, BAD+14 |
SCSPACE | TEXT~, TEXT+16, TEXT+17, MAILLST+10~, MAILLST+18*, MAILLST+34 |
SCTM | MAILLST~, MAILLST+22, MAILLST+26, BAD+8, BAD+9, BAD+10, BAD+12, BAD+14, BAD+15, BAD+16 , QTMULT+1 |
SCTMDT | MAILLST+10~ |
SCTMDT("BEGIN" | MAILLST+19* |
SCTMDT("END" | MAILLST+20* |
SCTMDT("INCL" | MAILLST+21* |
SCTMNM | MAILLST+10~, MAILLST+22*, MAILLST+23, MAILLST+26*, MAILLST+27 |
SCX | TEXT+8~, TEXT+9*, TEXT+15*, TEXT+16*, TEXT+17*, TEXT+18*, QTTXT, DDNAME+1~, BAD+19*, BAD+20 |
SCX("LABEL" | DDNAME+3 |
TEXT | SETLN~, SETLN+1, SETLN+4 |
U | TEXT+10, MAILLST+22, MAILLST+26, MAILLST+33, BAD+6 |
VA | MAILLST+9~ |
VA("PID" | BAD+8 |
VAERR | MAILLST+9~ |
XMDUZ | MAILLST+9~, BAD+17* |
XMSUB | MAILLST+9~, MAILLST+23* |
XMTEXT | MAILLST+9~, MAILLST+23* |
XMY | MAILLST+9~, BAD+18! |
XMY( | BAD+18* |
XMY("G." | BAD+20* |
XMZ | MAILLST+9~ |
Y | MAILLST+9~, MAILLST+28*, MAILLST+29 |
ZTQUEUED | MAILLST+9~, MAILLST+11* |