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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
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)] |
|
APTTMQ | ||
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 |
|
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 |