SCMCDD2 ;ALB/REW - DD Calls used by PCMM ; 27 March 1996
Source file <SCMCDD2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| 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 |
|
| OKTMCL(SCTM,SCTP,SCCL) | ;does team have another position with this clinic as an assoicated clinic?
|
|
| 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 |
