Routine: SCMCTPU2

Information

SCMCTPU2 ;ALB/REW - Team Position Utilities ; 9 Jun 1995

Source file <SCMCTPU2.m>

Name	Comments	DBIA/ICR reference
YSPTTPPC(DFN,SCACT,SCROLE)	;is it ok to give patient a new pc position ; ; Return [OK:1,Not OK: 0^Message]
QTOKPC
OKACPTTP(DFN,SCTP,DATE,ACTIVE)	;is it ok to activate pt pos assignment?
ENDOK
PCRLPTTP(DFN,SCTP,DATE)	; can position be pc practitioner or pc attending ; return yes pract^yes attend
CHKROLE(DFN,SCTP,DATE,ROLE)	;can position file role for patient?
QTCHKRL