PSJPDAPP ;BIR/MHA - SEND APPOINTMENTS TO PADE ;11/27/15
Source file <PSJPDAPP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| APPT | ;
|
|
| ALLCLN | ;
|
|
| CLARR | ;
|
|
| PV19 | ;
|
|
| GETPSARS(PSYSIN,DFNIN,FILTER) | ; Return Send Area for all clinic orders for patient DFN
; OUTPUT: ^TMP($J,"PSJCLSA",PSYSIN,PDIVIN,"CL",CLINICIEN,SENDAREAIEN)=PCLSAS ; ^TMP($J,"PSJCLSA",PSYSIN,PDIVIN,"SA",SENDAREAIEN,CLINICIEN)=PCLSAS ; PCLSAS=Send Area Name^PADE System^Division^Clinic Name^Source of Send Area value ; INPUT ; PSYSIN (required) - PADE System IEN from File #58.7 ; FILTER (optional) - 0: No filter ; 1: INCLUDE CLINIC IN BG JOB required (set to YES). ; 2: RE-SEND ORDERS AT CHECK-IN required (set to YES) ; 3: Both INCLUDE CLINIC IN BG JOB and RE-SEND ORDERS AT CHECK-IN required (set to YES) |
|
| GETDSARS(PSYSIN,PDIVIN,FILTER) | ; Return Send Area for all clinics in Division PDIVIN
; OUTPUT: ^TMP($J,"PSJCLSA",PSYSIN,PDIVIN,"CL",CLINICIEN,SENDAREAIEN)=PCLSAS ; ^TMP($J,"PSJCLSA",PSYSIN,PDIVIN,"SA",SENDAREAIEN,CLINICIEN)=PCLSAS ; PCLSAS=Send Area Name^PADE System^Division^Clinic Name^Source of Send Area value ; INPUT ; PSYSIN (required) - PADE System IEN from File #58.7 ; PDIVIN (required) - PADE Division from File #58.7 ; FILTER (optional) - 0: No filter ; 1: INCLUDE CLINIC IN BG JOB required (set to YES). ; 2: RE-SEND ORDERS AT CHECK-IN required (set to YES) ; 3: Both INCLUDE CLINIC IN BG JOB and RE-SEND ORDERS AT CHECK-IN required (set to YES) |
|
| TMPSA(PSYSIN,PDIVIN,CLIN,FILTER) | ; Build ^TMP( for clinic CLIN
|
|
| GETSAR(PSYSIN,PDIVIN,PCLININ,FILTER) | ; Return Send Area for clinic PCLIN
; PSYS - PADE system from PADE SYSTEM SETUP (#58.7) ; PDIV - Division from PADE SYSTEM SETUP (#58.7) (pointer to MEDICAL CENTER DIVISION #40.8) ; PSNDAR - Send Area from PADE SYSTEM SETUP (58.7) associated with the lowest (most specific/granular) clinic parameter |
|
| KILLTMP | ; Clean up ^TMP($J,"PSJCLSA")
|
