©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QTTXT | ||
| QTMULT | ;
|
|
| TEXT(SCFILE,SCNODE,SCPC,SCSPACE,SCLAB) | ;returns fldname & external value
|
|
| DDNAME(FILE,FIELD) | ;return the fieldname
|
|
| BAD | ; Guts of message
|
|
| SETLN(TEXT) | ;
|
|
| 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 |
| 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! |
| Name | Line Occurrences |
|---|---|
| $$DDNAME | TEXT+15 |
| $$TEXT | MAILLST+34 |
| QTMULT | MAILLST+7, MAILLST+8 |
| QTTXT | TEXT+11 |
| SETLN | MAILLST+27, MAILLST+29, MAILLST+30, MAILLST+34, MAILLST+35, BAD+1, BAD+2, BAD+15, BAD+16 |
| >> | 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* |