©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
SCAPMC7 ;ALB/REW - Team APIs:INPTTM ; 5 Jul 1995
Source file <SCAPMC7.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 3 | $$TMPT^SCAPMC3 (ERR,INIT)^SCAPMCU1 $$HISTPTTM^SCAPMCU2 |
| VA Fileman | 2 | NOW^%DTC UPDATE^DIE |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 4 | SCAPMC SCMCEV1 SCMCQK1 SCMCQK2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTTMACT(DFN,SCTM,SCDT,SCERR) | ;is patient assigned to a team on a given date-time?
|
|
| INPTTM(DFN,SCPTTM,SCINACT,SCERR) | ;inactivate patient from a team (pt tm assgn - #404.42
; input: ; DFN = pointer to PATIENT file (#2) ; SCPTTM = pointer to pt team assign file (#404.42) ; SCINACT = date to inactivate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| APTTMQ | ||
| INPTATM(DFNA,SCTM,SCFIELDA,SCACT,SCERR,SCNEWTM,SCOLDTM,SCBADTM) | ;list of patients assigned to a team (404.42)
; input: as per ACPTTM (above with the following change:) ; DFNA = is the literal value of a patient array (e.g. "scpt" ; there is at least one scpt(dfn)="" defined ; SCNEWTM = Subset of DFNA that was NEWLY assigned to Team [returned] ; SCOLDTM = Subset of DFNA that was already assigned -Team [returned] ; SCBADTP = Subset of DFNA that was NOT assigned to Team [returned] ; Note: The above three arrays return data in a user determined array ; output: Count of Patients: ; 1 2 3 4 ; total assigned^newly assigned^assigned prior^not assigned |
|
| INPTSCTM(DFN,SCTM,SCINACT,SCERR) | ;inactivate patient from a team - using last pt team assignment - Note: This uses pointer to 404.51 (team) not 404.42 as input
; input: ; DFN = pointer to PATIENT file (#2) ; SCTM = pointer to TEAM file (#404.51) ; 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.42 - [#404.42] | INPTTM+19, OKDATA+4, INPTSCTM+18, INPTSCTM+19 |
| Name | Line Occurrences |
|---|---|
| $$INPTTM | INPTATM+15, INPTSCTM+20 |
| $$OKDATA | INPTTM+18 |
| $$PTTMACT | INPTTM+20 |
| APTTMQ | INPTTM+18, INPTTM+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | INPTTM+29 |
| DFN | INPTTM~, INPTTM+20, PTTMACT~, PTTMACT+4, OKDATA+4, OKDATA+5, INPTATM+11~, INPTATM+13*, INPTATM+14, INPTATM+15 , INPTATM+19, INPTATM+22, INPTATM+24, INPTSCTM~, INPTSCTM+18, INPTSCTM+19, INPTSCTM+20 |
| DFNA | INPTATM~, INPTATM+13 |
| DT | OKDATA+8, OKDATA+9 |
| DUZ | INPTTM+27 |
| SC | INPTTM+16~ |
| SC( | INPTTM+26*, INPTTM+27*, INPTTM+29* |
| SCACT | OKDATA+8*, INPTATM~, INPTATM+14, INPTATM+15, INPTSCTM+17~, INPTSCTM+18*, INPTSCTM+19 |
| SCBADCNT | INPTATM+11~, INPTATM+12*, INPTATM+25*, INPTATM+26 |
| SCBADTM | INPTATM~, INPTATM+24 |
| SCDT | PTTMACT~, PTTMACT+3 |
| SCERR | INPTTM~, INPTTM+20, INPTTM+23, INPTTM+30, INPTTM+31, PTTMACT~, PTTMACT+4, OKDATA+7, INPTATM~, INPTATM+15 , INPTSCTM~, INPTSCTM+20 |
| SCESEQ | INPTTM+16~, INPTTM+23, OKDATA+7 |
| SCFIELDA | INPTATM~, INPTATM+15 |
| SCINACT | INPTTM~, INPTTM+20, INPTTM+22, INPTTM+26, OKDATA+9*, INPTSCTM~, INPTSCTM+20 |
| SCLSEQ | INPTTM+16~ |
| SCNEWCNT | INPTATM+11~, INPTATM+12*, INPTATM+18*, INPTATM+26 |
| SCNEWTM | INPTATM~, INPTATM+19 |
| SCOK | INPTTM+16~, INPTTM+17*, INPTTM+21*, INPTTM+25*, INPTTM+31*, APTTMQ, PTTMACT+1~, PTTMACT+2*, PTTMACT+4*, PTTMACT+5 , OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+10 |
| SCOLDCNT | INPTATM+11~, INPTATM+12*, INPTATM+21*, INPTATM+26 |
| SCOLDTM | INPTATM~, INPTATM+22 |
| SCPARM | INPTTM+16~, INPTTM+23, OKDATA+7 |
| SCPARM("INACT | IVE DATE" , INPTTM+22* |
| SCPARM("PATIENT" | OKDATA+5* |
| SCPARM("Pt TE | AM Asnt" , OKDATA+6* |
| SCPTTM | INPTTM~, INPTTM+19, INPTTM+26, INPTTM+27, INPTTM+29, OKDATA+4, OKDATA+6, INPTATM+14*, INPTATM+15, INPTSCTM+19* , INPTSCTM+20 |
| SCTM | INPTTM+16~, INPTTM+19*, INPTTM+20, PTTMACT~, PTTMACT+4, INPTATM~, INPTATM+14, INPTSCTM~, INPTSCTM+18, INPTSCTM+19 |
| SCTMDTS | PTTMACT+1~ |
| SCTMDTS("BEGIN" | PTTMACT+3* |
| SCTMDTS("END" | PTTMACT+3* |
| SCTMLST | PTTMACT+1~ |
| SCTMLST("SCTM" | PTTMACT+4 |
| SCX | INPTATM+11~, INPTATM+15*, INPTATM+17, INPTATM+19, INPTATM+20, INPTATM+22, INPTATM+23 |
| U | INPTTM+19, INPTATM+17, INPTATM+20, INPTATM+26 |