©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
SCMCTMM ;ALB/REW - Patient Team Changes MailMessages ; 26 Mar 1996
Source file <SCMCTMM.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | EN^DDIOL FIELD^DID $$EXTERNAL^DILFD |
| Scheduling | 2 | $$PCMMXMY^SCAPMC25 $$PCMAIL^SCMCMM |
| MailMan | 1 | ^XMD |
| Registration | 1 | PID^VADPT6 |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 4 | SCAPMC6 SCMCBK7 SCMCCON SCMCCV |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QTTXT | ||
| QTMULT | ||
| END | ||
| TEXT(SCFILE,SCNODE,SCPC,SCSPACE,SCLAB) | ;returns fldname & external value
|
|
| MAILLST(SCTM,SCFIELDA,SCDATE,SCNEWTM,SCOLDTM,SCBADTM) | ;
; 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 |
|
| DDNAME(FILE,FIELD) | ;return the fieldname
|
|
| BAD | ||
| ;Do Patient Team Changes MailMan Message
; - called by SCMC PT TEAM CHANGES MAIL MESSAGE protocol |
||
| SETLN(TEXT) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | MAILLST+31 |
| ^DPT - [#2] | MAIL+30, MAILLST+44, BAD+6 |
| ^SCTM(404.51 - [#404.51] | MAILLST+25, MAILLST+29 |
| ^TMP("SCTM MAIL LST" | MAILLST+45*, MAILLST+46*, MAILLST+48, MAILLST+50, MAILLST+51, BAD+8*, BAD+9*, BAD+11, BAD+13, BAD+14 , QTMULT! |
| ^TMP($J | END!, SETLN+4*, QTMULT+1! |
| Name | Line Occurrences |
|---|---|
| $$DDNAME | TEXT+15 |
| $$TEXT | MAIL+36, MAIL+41, MAIL+47, MAIL+49, MAILLST+37 |
| END | MAIL+2, MAIL+27 |
| QTMULT | MAILLST+9, MAILLST+10, MAILLST+11 |
| QTTXT | TEXT+11 |
| SETLN | MAIL+33, MAIL+34, MAIL+36, MAIL+38, MAIL+39, MAIL+41, MAIL+43, MAIL+44, MAIL+50, MAILLST+30 , MAILLST+32, MAILLST+33, MAILLST+37, MAILLST+38, MAILLST+39, MAILLST+51, BAD+1, BAD+2, BAD+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | MAIL+4~, MAIL+25*, MAIL+27, MAIL+30, MAIL+51, MAILLST+13~, MAILLST+40*, MAILLST+41*, MAILLST+42, MAILLST+44 , MAILLST+45, MAILLST+46, MAILLST+49*, MAILLST+50*, MAILLST+51, BAD+3*, BAD+4*, BAD+5, BAD+6, BAD+8 , BAD+9, BAD+12*, BAD+13*, BAD+14 |
| >> DGQUIET | MAIL+28, MAILLST+27 |
| DT | MAIL+11, MAIL+13, MAIL+16, MAIL+17, MAIL+51, MAILLST+19, MAILLST+20 |
| DUZ | MAIL+52, BAD+15 |
| FIELD | DDNAME~, DDNAME+2 |
| FILE | DDNAME~, DDNAME+2 |
| SCB | MAIL+4~, MAIL+11*, MAIL+13*, MAIL+16*, MAIL+18, MAIL+22, MAILLST+13~, MAILLST+17*, MAILLST+19*, MAILLST+22 |
| SCB2 | MAIL+4~, MAIL+17*, MAIL+18 |
| SCBADTM | MAILLST~, BAD, BAD+4 |
| SCDATE | MAILLST~, MAILLST+22, MAILLST+23, MAILLST+31 |
| SCDELTEM | MAILLST+13~, MAILLST+15*, QTMULT |
| >> SCDETAIL | MAILLST+51*, BAD+14* |
| SCE | MAIL+4~, MAIL+11*, MAIL+13*, MAIL+16*, MAIL+19, MAIL+23, MAILLST+13~, MAILLST+18*, MAILLST+20*, MAILLST+23 |
| SCE2 | MAIL+4~, MAIL+17*, MAIL+19 |
| SCFIELDA | MAILLST~, MAILLST+16, MAILLST+34 |
| SCFIELDA( | MAILLST+17, MAILLST+18, MAILLST+35, MAILLST+36 |
| SCFILE | TEXT~, TEXT+15, TEXT+18 |
| SCFLD | MAIL+40*, MAIL+45*, TEXT+8~, TEXT+12*, TEXT+15, TEXT+18, MAILLST+13~, MAILLST+35*, MAILLST+36 |
| SCINT | TEXT+8~, TEXT+10*, TEXT+11, TEXT+18 |
| SCLAB | TEXT~, TEXT+14, TEXT+16, TEXT+17 |
| SCLAB2 | MAIL+46~, MAIL+48*, MAIL+49 |
| SCLNCNT | MAIL+4~, MAIL+31*, MAIL+51*, SETLN+3*, SETLN+4, MAILLST+26* |
| SCNDX | MAILLST+13~, MAILLST+35*, MAILLST+36, MAILLST+37 |
| SCNEWTM | MAILLST~, MAILLST+10, MAILLST+11, MAILLST+41 |
| SCNODE | MAIL+4~, TEXT~, TEXT+10, MAILLST+13~, MAILLST+36*, MAILLST+37 |
| >> SCNOMAIL | MAIL+2, MAILLST+9 |
| SCOK | MAILLST+13~, MAILLST+28*, MAILLST+42*, BAD+5* |
| SCOLDTM | MAILLST~ |
| SCPAD | MAIL+4~ |
| SCPC | TEXT~, TEXT+10, TEXT+12 |
| SCPHONE | MAIL+4~ |
| SCPTNM | MAIL+4~, MAIL+30*, MAIL+31, MAILLST+13~, MAILLST+44*, MAILLST+45, MAILLST+46, MAILLST+47*, MAILLST+48*, MAILLST+50 , BAD+6*, BAD+8, BAD+9, BAD+10*, BAD+11*, BAD+13 |
| >> SCPTTMAF | MAIL+13, MAIL+17, MAIL+25, MAIL+36, MAIL+49 |
| >> SCPTTMB4 | MAIL+11, MAIL+16, MAIL+25, MAIL+41, MAIL+47 |
| SCSPACE | MAIL+4~, MAIL+6*, MAIL+36, MAIL+41, MAIL+43, MAIL+47, MAIL+49, MAIL+50, TEXT~, TEXT+16 , TEXT+17, MAILLST+13~, MAILLST+21*, MAILLST+37 |
| SCSTAT | MAIL+4~, MAIL+11*, MAIL+13*, MAIL+15*, MAIL+21, MAIL+25, MAIL+28, MAIL+31, MAIL+32, MAIL+37 , MAIL+42 |
| SCTM | MAILLST~, MAILLST+25, MAILLST+29, MAILLST+45, MAILLST+46, MAILLST+48, MAILLST+50, MAILLST+51, BAD+8, BAD+9 , BAD+11, BAD+13, BAD+14, QTMULT |
| >> SCTMAF | MAIL+9, MAIL+10, MAIL+13, MAIL+14, MAIL+17 |
| SCTMAR | MAIL+4~ |
| SCTMAR( | MAIL+8*, MAIL+9* |
| >> SCTMB4 | MAIL+8, MAIL+11, MAIL+12, MAIL+14, MAIL+16 |
| SCTMDT | MAIL+4~, MAILLST+13~ |
| SCTMDT("BEGIN" | MAIL+18*, MAIL+22*, MAILLST+22* |
| SCTMDT("END" | MAIL+19*, MAIL+23*, MAILLST+23* |
| SCTMDT("INCL" | MAIL+20*, MAIL+24*, MAILLST+24* |
| SCTMNM | MAILLST+13~, MAILLST+25*, MAILLST+26, MAILLST+29*, MAILLST+30 |
| SCTMXM | MAIL+4~ |
| SCX | MAIL+3~, MAIL+35*, MAIL+36, MAIL+40*, MAIL+41, MAIL+45*, MAIL+47, MAIL+49, TEXT+8~, TEXT+9* , TEXT+15*, TEXT+16*, TEXT+17*, TEXT+18*, TEXT+20*, QTTXT, DDNAME+1~ |
| SCX("LABEL" | DDNAME+3 |
| SCY | MAIL+4~, MAIL+46~, MAIL+47*, MAIL+48, MAIL+50 |
| SCZ | MAIL+46~, MAIL+49*, MAIL+50 |
| TEXT | SETLN~, SETLN+1, SETLN+4 |
| U | MAIL+11, MAIL+13, MAIL+16, MAIL+17, MAIL+30, TEXT+10, MAILLST+25, MAILLST+29, MAILLST+36, MAILLST+44 , BAD+6 |
| VA | MAIL+3~, MAILLST+12~ |
| VA("BID" | MAIL+31 |
| VA("PID" | TEXT+20, MAILLST+45, BAD+8 |
| VAERR | MAIL+3~, MAILLST+12~ |
| XMDUZ | MAIL+3~, MAIL+52*, MAIL+53, MAILLST+12~, BAD+15* |
| XMSUB | MAIL+3~, MAIL+31*, MAILLST+12~, MAILLST+26* |
| XMTEXT | MAIL+3~, MAIL+31*, MAILLST+12~, MAILLST+26* |
| XMY | MAIL+3~, MAILLST+12~ |
| XMY( | MAIL+53* |
| XMZ | MAIL+3~, MAILLST+12~ |
| Y | MAIL+3~, MAILLST+12~, MAILLST+31*, MAILLST+32 |
| ZTQUEUED | MAIL+3~, MAIL+5*, MAILLST+12~, MAILLST+14* |