SCAPMC28 ;ALB/REW - Patients with an Appointment ; 1/10/05 2:49pm
Source file <SCAPMC28.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTAP(SCCL,SCDATES,SCMAXCNT,SCLIST,SCERR,MORE) | ; -- list of patients with an appointment in a given clinic
; ; input: ; SCCL = Pointer to File #44 ; SCDATES("BEGIN") = begin date to search (inclusive) ; [default: TODAY] ; ("END") = end date to search (inclusive) ; [default: TODAY] ; ("INCL") = 1: only use patients who were assigned to ; team for entire date range ; 0: anytime in date range ; [default: 1] ; SCMAXCNT - Maximum # of patients to return, default=99 ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] ; MORE - This is a flag that says that this list exists and has been ; aborted because it reached the maxcount. If this =1 it means ; 'kill the old list & start where you finished' ; Note: Don't Return DFNs where $D(^TMP("SCMC",$J,"EXCLUDE PT","SCPTA",+DFN)) is true ; Output: ; SCLIST() = array of patients ; Format: ; Subscript: Sequential # from 1 to n ; Piece Description ; 1 IEN of PATIENT file entry ; 2 Name of patient ; 3 ien to 40.7 - Not Stop Code!! stp=$$intstp ; 4 AMIS reporting stop code ; 5 Patient's Long ID (SSN) |
|
| ST | ||
| LP | ||
| APQ | ||
| PTAPX(SCCL,SCBEGIN,SCEND,MAXCNT,SCLIST,SCERR,SCSTART) | ;return appointments in dt range
; Input: (As above plus:) ; SCSTART - Continue with list at this point ; output: SCN - COUNT OF PTS ; returns: dfn^ptname^clinic^apptdt^long id ; |
|
| OKDATA() | ;check/setup variables
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
