©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
SCAPMC6 ;ALB/REW - Team APIs:APPTTM ; 5 Jul 1995
Source file <SCAPMC6.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 5 | $$TMPT^SCAPMC3 (ERR,INIT)^SCAPMCU1 AFTERTM^SCMCDD1 MAILLST^SCMCTMM $$OKPTTMPC^SCMCTMU2 |
| VA Fileman | 1 | UPDATE^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTTMACT(DFN,SCTM,SCDT,SCERR) | ;what is patient/team assignment on a given date-time into the future? Return 404.42 ien or 0
|
|
| ACPTATM(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 |
|
| APTTMQ | ||
| ACPTTM(DFN,SCTM,SCFIELDA,SCACT,SCERR) | ;add a patient to a team (pt tm assgn - #404.42
; input: ; DFN = pointer to PATIENT file (#2) ; SCTM = pointer to TEAM file (#404.51) ; SCFIELDA= array of additional fields to be added ; SCACT = date to activate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| OKDATA() | ;setup/check variables
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | OKDATA+4 |
| ^SCTM(404.51 - [#404.51] | OKDATA+4 |
| Name | Line Occurrences |
|---|---|
| $$ACPTTM | ACPTATM+15 |
| $$OKDATA | ACPTTM+17 |
| $$PTTMACT | ACPTTM+20 |
| APTTMQ | ACPTTM+17, ACPTTM+18, ACPTTM+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | ACPTTM~, ACPTTM+18, ACPTTM+20, ACPTTM+27, PTTMACT~, PTTMACT+4, ACPTATM+11~, ACPTATM+14*, ACPTATM+15, ACPTATM+19 , ACPTATM+22, ACPTATM+24, OKDATA+4, OKDATA+5 |
| DFNA | ACPTATM~, ACPTATM+14 |
| DT | ACPTATM+27, OKDATA+8 |
| SC | ACPTTM+16~ |
| SC( | ACPTTM+26*, ACPTTM+27*, ACPTTM+28*, ACPTTM+29* |
| SCACT | ACPTTM~, ACPTTM+18, ACPTTM+20, ACPTTM+28, ACPTATM~, ACPTATM+15, OKDATA+8* |
| >> SCADDFLD | ACPTATM+27 |
| SCBADCNT | ACPTATM+11~, ACPTATM+13*, ACPTATM+25*, ACPTATM+28 |
| SCBADTM | ACPTATM~, ACPTATM+24, ACPTATM+27 |
| SCDT | PTTMACT~, PTTMACT+3 |
| SCERR | ACPTTM~, ACPTTM+20, ACPTTM+31, PTTMACT~, PTTMACT+4, ACPTATM~, ACPTATM+15, OKDATA+7 |
| SCESEQ | ACPTTM+16~, OKDATA+7 |
| SCFIELDA | ACPTTM~, ACPTTM+18, ACPTTM+23, ACPTTM+25, ACPTTM+26, ACPTATM~, ACPTATM+15 |
| SCFLD | ACPTTM+16~, ACPTTM+24*, ACPTTM+25*, ACPTTM+26 |
| SCIEN | ACPTTM+16~, ACPTTM+31! |
| SCIEN(1 | ACPTTM+33 |
| >> SCMESS | ACPTTM+19* |
| SCNEWCNT | ACPTATM+11~, ACPTATM+13*, ACPTATM+18*, ACPTATM+28 |
| SCNEWTM | ACPTTM+16~, ACPTTM+34*, APTTMQ, ACPTATM~, ACPTATM+19, ACPTATM+27 |
| SCNOMAIL | ACPTATM+11~, ACPTATM+12*, ACPTATM+26! |
| SCOK | PTTMACT+1~, PTTMACT+2*, PTTMACT+4*, PTTMACT+5, OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+9 |
| SCOLDCNT | ACPTATM+11~, ACPTATM+13*, ACPTATM+21*, ACPTATM+28 |
| SCOLDTM | ACPTATM~, ACPTATM+22, ACPTATM+27 |
| SCPARM | ACPTTM+16~, OKDATA+7 |
| SCPARM("PATIENT" | OKDATA+5* |
| SCPARM("TEAM" | OKDATA+6* |
| SCPTTM | ACPTTM+16~, ACPTTM+20*, ACPTTM+21, ACPTTM+33*, ACPTTM+35, APTTMQ |
| SCPTTMDT | PTTMACT+1~ |
| SCPTTMDT("BEGIN" | PTTMACT+3* |
| SCPTTMDT("END" | PTTMACT+3* |
| SCPTTMDT("INCL" | PTTMACT+3* |
| SCTM | ACPTTM~, ACPTTM+18, ACPTTM+20, ACPTTM+29, PTTMACT~, PTTMACT+4, ACPTATM~, ACPTATM+15, ACPTATM+27, OKDATA+4 , OKDATA+6 |
| SCTMLST | PTTMACT+1~ |
| SCTMLST("SCTM" | PTTMACT+4 |
| SCX | ACPTATM+11~, ACPTATM+15*, ACPTATM+17, ACPTATM+19, ACPTATM+20, ACPTATM+22, ACPTATM+23, ACPTATM+24 |
| U | APTTMQ, ACPTATM+17, ACPTATM+20, ACPTATM+24, ACPTATM+28 |