©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
SCMCDD2 ;ALB/REW - DD Calls used by PCMM ; 27 March 1996
Source file <SCMCDD2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| KILLSCTM(SCTP,SCCL,SCTMNM) | ;kill 'TEAM' x-ref for File #44 (if no other positions from team have this as associated clinic)
; x=sccl, da=sctp sctmnm=name of team |
|
| USEPCDEF(SCCL) | ;how should pc practitioner be used for clinic
; return 2=always default 1=default if no provider listed 0 -never |
|
| SETSCTM(SCTP,SCCL,SCTMNM) | ;create 'TEAM' x-ref for Hospital Location File (#44)
; x=sccl, da=sctp sctmnm=name of team |
|
| STSCTMNM(SCTM,SCTMNM) | ;if team name changes - set for 'TEAM' xrefs for file#44
; sctm=da sctmnm=x |
|
| KLSCTMNM(SCTM,SCTMNM) | ;if team name changes - kill 'TEAM' xrefs for file #44
; sctm=da sctmnm=x |
|
| OKTMCL(SCTM,SCTP,SCCL) | ;does team have another position with this clinic as an assoicated clinic?
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC("TEAM" | SETSCTM+4*, KILLSCTM+6!, KLSCTMNM+8! |
| ^SCTM(404.51 - [#404.51] | SETSCTM+3, KILLSCTM+5 |
| ^SCTM(404.57 - [#404.57] | SETSCTM+3, KILLSCTM+4, OKTMCL+4, OKTMCL+5, STSCTMNM+5, STSCTMNM+6, STSCTMNM+7, KLSCTMNM+5, KLSCTMNM+6, KLSCTMNM+7 |
| Name | Line Occurrences |
|---|---|
| $$OKTMCL | KILLSCTM+6 |
| SETSCTM | STSCTMNM+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| SCCL | USEPCDEF~, SETSCTM~, SETSCTM+2, SETSCTM+4, KILLSCTM~, KILLSCTM+3, KILLSCTM+6, OKTMCL~, OKTMCL+4, STSCTMNM+3~ , STSCTMNM+7*, STSCTMNM+8, KLSCTMNM+3~, KLSCTMNM+7*, KLSCTMNM+8 |
| SCOK | OKTMCL+1~, OKTMCL+2*, OKTMCL+6*, OKTMCL+7 |
| SCTM | KILLSCTM+2~, KILLSCTM+4*, KILLSCTM+5, KILLSCTM+6, OKTMCL~, OKTMCL+5, STSCTMNM~, STSCTMNM+2, STSCTMNM+5, STSCTMNM+6 , KLSCTMNM~, KLSCTMNM+2, KLSCTMNM+5, KLSCTMNM+6 |
| SCTMNM | SETSCTM~, SETSCTM+3*, SETSCTM+4, KILLSCTM~, KILLSCTM+5*, KILLSCTM+6, STSCTMNM~, STSCTMNM+2, STSCTMNM+8, KLSCTMNM~ , KLSCTMNM+2, KLSCTMNM+8 |
| SCTP | SETSCTM~, SETSCTM+2, SETSCTM+3, KILLSCTM~, KILLSCTM+3, KILLSCTM+4, KILLSCTM+6, OKTMCL~, OKTMCL+4, STSCTMNM+6* , STSCTMNM+7, STSCTMNM+8, KLSCTMNM+6*, KLSCTMNM+7 |
| SCTPNM | STSCTMNM+3~, STSCTMNM+4*, STSCTMNM+5*, STSCTMNM+6, KLSCTMNM+3~, KLSCTMNM+4*, KLSCTMNM+5*, KLSCTMNM+6 |
| SCXTP | OKTMCL+1~, OKTMCL+3*, OKTMCL+4*, OKTMCL+5 |
| U | SETSCTM+3, KILLSCTM+4, KILLSCTM+5, OKTMCL+5, STSCTMNM+7, KLSCTMNM+7 |