©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
SCMCBK5 ;bp/cmf - multiple patient assignments mail queue - RPCVersion = 1 ;;Aug 7, 1998
Source file <SCMCBK5.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 4 | ($$OKDATA,$$PTTMACT)^SCAPMC6 ($$DP,$$OKPTTMPC,$$S)^SCMCBK6 MAILLST^SCMCBK7 AFTERTM^SCMCDD1 |
| VA Fileman | 1 | UPDATE^DIE |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 4 | SCMCBK4 SCMCBK8 SCMRBK SCMRTPM |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| T1() | ||
| PASSCNT(DFNA) | ;count total patients passed to queue
|
|
| 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)] |
|
| 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 |
|
| S(SCX) |
| Name | Line Occurrences |
|---|---|
| $$ACPTTM | ACPTATM+21 |
| $$PASSCNT | ACPTATM+16 |
| $$S | ACPTTM+15, ACPTTM+18, ACPTTM+28, ACPTTM+43 |
| $$T1 | ACPTTM+21 |
| APTTMQ | ACPTTM+15, ACPTTM+18, ACPTTM+21, ACPTTM+28 |
| ACPTATM+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | ACPTTM~, ACPTTM+18, ACPTTM+22, ACPTTM+27, ACPTTM+37, ACPTATM+13~, ACPTATM+19*, ACPTATM+20*, ACPTATM+21, ACPTATM+26 , ACPTATM+33, ACPTATM+37, PASSCNT+4~, PASSCNT+5*, PASSCNT+6* |
| DFNA | ACPTATM~, ACPTATM+16, ACPTATM+20, PASSCNT~, PASSCNT+6 |
| DT | MAIL+1 |
| SC | ACPTTM+12~ |
| SC( | ACPTTM+33*, ACPTTM+37*, ACPTTM+38*, ACPTTM+39* |
| SCACT | ACPTTM~, ACPTTM+22, ACPTTM+27, ACPTTM+38, ACPTATM~, ACPTATM+21 |
| >> SCADDFLD | MAIL+1 |
| SCBADCNT | ACPTATM+13~, ACPTATM+15*, ACPTATM+38*, MAIL+2 |
| SCBADTM | ACPTATM~, ACPTATM+37, MAIL+1 |
| SCERR | ACPTTM~, ACPTTM+27, ACPTATM~, ACPTATM+21 |
| SCESEQ | ACPTTM+12~ |
| SCFIELDA | ACPTTM~, ACPTTM+30, ACPTTM+32, ACPTTM+33, T1, ACPTATM~, ACPTATM+21 |
| SCFLD | ACPTTM+12~, ACPTTM+31*, ACPTTM+32*, ACPTTM+33 |
| SCIEN | ACPTTM+12~, ACPTTM+43! |
| SCIEN(1 | ACPTTM+45 |
| SCMESS | ACPTTM+12~, ACPTTM+15*, ACPTTM+18*, ACPTTM+21*, ACPTTM+28*, ACPTTM+43*, APTTMQ |
| SCNEWCNT | ACPTATM+13~, ACPTATM+15*, ACPTATM+25*, MAIL+2 |
| SCNEWTM | ACPTTM+12~, ACPTTM+46*, APTTMQ, ACPTATM~, ACPTATM+26, MAIL+1 |
| SCNOMAIL | ACPTATM+13~, ACPTATM+14*, MAIL! |
| SCOLDCNT | ACPTATM+13~, ACPTATM+15*, ACPTATM+32*, MAIL+2 |
| SCOLDTM | ACPTATM~, ACPTATM+33, MAIL+1 |
| SCPARM | ACPTTM+12~ |
| SCPTTM | ACPTTM+12~, ACPTTM+27*, ACPTTM+28, ACPTTM+45*, ACPTTM+47, APTTMQ |
| SCTM | ACPTTM~, ACPTTM+22, ACPTTM+27, ACPTTM+39, ACPTATM~, ACPTATM+21, MAIL+1 |
| SCTMERR | ACPTTM+40~, ACPTTM+43 |
| SCTOTCNT | ACPTATM+13~, ACPTATM+16*, ACPTATM+17, MAIL+1 |
| SCX | ACPTTM+12~, ACPTTM+21, ACPTTM+22*, S~, ACPTATM+13~, ACPTATM+21*, ACPTATM+24, ACPTATM+26, ACPTATM+30, ACPTATM+33 , ACPTATM+37, PASSCNT+4~, PASSCNT+5*, PASSCNT+6*, PASSCNT+7 |
| U | ACPTTM+21, APTTMQ, ACPTATM+24, ACPTATM+37, MAIL+2 |