SCAPMC27 ;ALB/REW - PTST Patients with a Stop Code ; JUN 30, 1995
Source file <SCAPMC27.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTST(SCST,SCDATES,SCMAXCNT,SCLIST,SCERR,MORE) | ; -- list of patients with a IEN of 40.7
; USE $$PTSTEXT(below) if you have stop code (e.g. 301) ; input: ; SCST = stop code ; 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 Number 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 - For continuing lists (see scapmc28) |
|
| ST | ||
| LP | ||
| STQ | ||
| OKDATA() | ;check/setup variables
|
|
| INTST(STOP) | ;given stop code return ient
|
|
| PTSTEXT(SCSTOP,SCDATES,SCMAXCNT,SCLIST,SCERR) | ; -- list of patients with AMIS REPORTING STOP CODE
; For variables see: PTST (above) ; Returned: 1 if ok, 0 if error^More? |
