©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
SCAPMC22 ;ALB/REW - Team API's ; December 1, 1995
Source file <SCAPMC22.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | $$TPPT^SCAPMC23 (ERR,INIT)^SCAPMCU1 |
| VA Fileman | 2 | NOW^%DTC UPDATE^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTTPACT(DFN,SCTP,SCDT,SCERR) | ;is patient assigned to a position on a given date-time?
|
|
| APTTPQ | ||
| INPTTP(DFN,SCPTTPA,SCINACT,SCERR) | ;inactivate patient from a position (pt tm pos assgn - #404.43
; input: ; DFN = pointer to PATIENT file (#2) ; SCPTTPA = pointer to pt team assign file (#404.43) ; SCINACT = date to inactivate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| INPTSCTP(DFN,SCTP,SCINACT,SCERR) | ;inactivate patient from a position - using last pt position assignment - Note: This uses pointer to 404.57 (position) not 404.43 as input
; input: ; DFN = pointer to PATIENT file (#2) ; SCTP = pointer to POSITION file (#404.57) ; SCINACT = date to inactivate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| OKDATA() | ;check/setup variables - return 1 if ok/0 if error
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | OKDATA+4 |
| ^SCPT(404.43 - [#404.43] | INPTTP+19, OKDATA+4, INPTSCTP+18, INPTSCTP+19 |
| ^SCTM(404.57 - [#404.57] | PTTPACT+2 |
| Name | Line Occurrences |
|---|---|
| $$INPTTP | INPTSCTP+20 |
| $$OKDATA | INPTTP+18 |
| $$PTTPACT | INPTTP+22 |
| APTTPQ | INPTTP+18, INPTTP+20, INPTTP+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | INPTTP+32 |
| DFN | INPTTP~, INPTTP+22, PTTPACT~, PTTPACT+5, OKDATA+4, OKDATA+5, INPTSCTP~, INPTSCTP+18, INPTSCTP+19, INPTSCTP+20 |
| DT | OKDATA+8, OKDATA+9 |
| DUZ | INPTTP+30 |
| SC | INPTTP+16~ |
| SC( | INPTTP+29*, INPTTP+30*, INPTTP+32* |
| SCACT | OKDATA+8*, INPTSCTP+17~, INPTSCTP+18*, INPTSCTP+19 |
| SCDT | PTTPACT~, PTTPACT+4 |
| SCERR | INPTTP~, INPTTP+22, INPTTP+26, INPTTP+33, INPTTP+34, PTTPACT~, PTTPACT+5, OKDATA+7, INPTSCTP~, INPTSCTP+20 |
| SCESEQ | INPTTP+16~, INPTTP+26, OKDATA+7 |
| SCINACT | INPTTP~, INPTTP+20, INPTTP+22, INPTTP+24, INPTTP+29, OKDATA+9*, INPTSCTP~, INPTSCTP+20 |
| SCLSEQ | INPTTP+16~ |
| SCND | INPTTP+16~, INPTTP+19*, INPTTP+20, INPTTP+21 |
| SCOK | INPTTP+16~, INPTTP+17*, INPTTP+23*, INPTTP+28*, INPTTP+34*, APTTPQ, PTTPACT+1~, PTTPACT+3*, PTTPACT+5*, PTTPACT+6 , OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+10 |
| SCPARM | INPTTP+16~, INPTTP+26, OKDATA+7 |
| SCPARM("INACT | IVE DATE" , INPTTP+24* |
| SCPARM("MESSAGE" | INPTTP+25* |
| SCPARM("PATIENT" | OKDATA+5* |
| SCPARM("Pt PO | SITION Asnt" , OKDATA+6* |
| SCPTDTS | PTTPACT+1~ |
| SCPTDTS("BEGIN" | PTTPACT+4* |
| SCPTDTS("END" | PTTPACT+4* |
| >> SCPTTP | INPTSCTP+19*, INPTSCTP+20 |
| SCPTTPA | INPTTP~, INPTTP+19, INPTTP+29, INPTTP+30, INPTTP+32, OKDATA+4, OKDATA+6 |
| SCTM | PTTPACT+1~, PTTPACT+2*, PTTPACT+5 |
| SCTP | INPTTP+16~, INPTTP+21*, INPTTP+22, PTTPACT~, PTTPACT+2, PTTPACT+5, INPTSCTP~, INPTSCTP+18, INPTSCTP+19 |
| SCTPLST | PTTPACT+1~ |
| SCTPLST("SCTP" | PTTPACT+5 |
| U | INPTTP+20, INPTTP+21, PTTPACT+2 |