©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCAPMC27 ;ALB/REW - PTST Patients with a Stop Code ; JUN 30, 1995
Source file <SCAPMC27.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | $$PTAPX^SCAPMC28 (ERR,INIT)^SCAPMCU1 |
| Kernel | 1 | $$FMADD^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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? |
|
| ST | ||
| INTST(STOP) | ;given stop code return ient
|
|
| STQ | ||
| LP | ||
| 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) |
|
| OKDATA() | ;check/setup variables
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(40.7 - [#40.7] | OKDATA+5, INTST+1 |
| ^SC - [#44] | LP+11 |
| Name | Line Occurrences |
|---|---|
| $$INTST | PTSTEXT+4 |
| $$OKDATA | ST+3 |
| $$PTST | PTSTEXT+5 |
| STQ | ST+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| MORE | PTST~, LP+2, LP+11*, PTSTEXT+5 |
| SCBEGIN | ST+1~, LP, LP+4*, LP+11 |
| SCCL | ST~, LP+5*, LP+9*, LP+11* |
| SCDATES | PTST~, PTSTEXT~, PTSTEXT+5 |
| SCDT | ST~, LP* |
| SCDTS | ST+1~ |
| SCEND | ST~, ST+1~, LP+1*, LP+11 |
| SCERR | PTST~, LP+11, OKDATA+7, PTSTEXT~, PTSTEXT+5 |
| SCESEQ | ST+1~, OKDATA+7 |
| SCINCL | ST+1~ |
| SCLIST | PTST~, LP+3, LP+4, LP+5, LP+6, LP+11, PTSTEXT~, PTSTEXT+5 |
| SCLSEQ | ST+1~ |
| SCMAXCNT | PTST~, LP+11, OKDATA+3*, PTSTEXT~, PTSTEXT+5 |
| SCN | ST+1~ |
| SCNODE | ST~ |
| SCOK | OKDATA+1~, OKDATA+2*, OKDATA+4, OKDATA+5*, OKDATA+9 |
| SCP | ST+1~ |
| SCPARM | ST+1~, OKDATA+7 |
| SCPARM("STOP" | OKDATA+6* |
| SCST | PTST~, LP+11, OKDATA+5, OKDATA+6, PTSTEXT+3~, PTSTEXT+4*, PTSTEXT+5 |
| >> SCSTART | LP+3*, LP+8*, LP+11 |
| SCSTOP | PTSTEXT~, PTSTEXT+4 |
| SCX | ST~, ST+2*, LP+11*, STQ |
| STOP | INTST~, INTST+1 |
| U | LP+3, LP+4, LP+5, LP+11 |