;Called from SD EDIT LOCAL STOP CODE NAME option. Allows entry of the .01 field of file 40.7 only if the amis code indicates it is a local entry
INPTPR(DFN,PRACT)
;store current PC practitioner; return SDOKS=1, if OK
; Input: DFN: ien of patient file (#2)
; PRACT: ien of file #200 if adding,changing field
; null or '@' if deleting field
; Output:SDOKS: 0, if fails to store, 1 otherwise
;store current PC team; return SDOKS=0, if fails
; Input: DFN: ien of patient file (#2)
; TEAM: ien of file #404.51 if adding,changing field
; null or '@' if deleting field
; Output:SDOKS: 0, if fails to store, 1 otherwise
;given patient, return internal^external of the pc practitioner
; Input: DFN - ien of patient file (#2)
; SCDATE - Relevant Date (Default=DT)
; SCPCROLE - Type of PC Role (Default =1 (PC Practitioner),2=Attending
; Returned: pointer to file #200^external value of name
; or, if error or none defined, returns a 0 or null
; Note: This call will continue to be supported with the PCMM release
;
; *** SUPPORTED API ***
;given patient, return internal^external of the pc associate provider
; Input: DFN - ien of patient file (#2)
; SCDATE - Relevant Date (Default=DT)
; Returned: pointer to file #200^external value of name
; or, if error or none defined, returns a 0 or null