SDUTL3 ;ALB/REW - Primary Care API Calls ;2/13/15 10:36
Source file <SDUTL3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OUTPTPR(DFN,SCDATE,SCPCROLE) | ;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 *** |
|
| OUTPTAP(DFN,SCDATE) | ;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 |
|
| OUTPTTM(DFN,SCDATE,ASSTYPE) | ;given patient, return internal^external of the pc team
|
|
| 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 |
|
| QTIPR | ||
| INPTTM(DFN,TEAM) | ;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 |
|
| QTITM |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
