©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
SCMCBK8 ;bp/cmf - multiple patient assignments mail queue - RPCVersion = 1;;Aug 7, 1998
Source file <SCMCBK8.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| T1() | ||
| S(SCX) | ||
| APTTPQ | ;bp/cmf 210 new code begin
|
|
| TM | ||
| ACPTATP(DFNA,SCTP,SCFIELDA,SCACT,SCERR,SCYESTM,SCMAINA,SCNEWTP,SCNEWTM,SCOLDTP,SCBADTP) | ;list of patients to a position (pt TP assgn - #404.43 and possibly #404.42
; input: as per ACPTTP (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 ; SCNEWTP = Subset of DFNA that was NEWLY assigned to a Position ; SCNEWTM = Subset of DFNA that was NEWLY assigned to a Team ; SCOLDTP = Subset of DFNA that was already assigned to Position ; SCBADTP = Subset of DFNA that was NOT assigned to Position ; output: Count of Patients (New or Old) assigned to Position |
|
| ACPTTP(DFN,SCTP,SCFIELDA,SCACT,SCERR,SCYESTM,SCMAINA) | ;add/edit a patient to a position (pt TP assgn - #404.43
; input: ; DFN = pointer to PATIENT file (#2) ; SCTP = pointer to TEAM POSTION file (#404.57) ; SCFIELDA= array of extra field entries - scfielda('fld#')=value ; SCACT = date to activate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] ; SCYESTM = Should team assignment be made, if none active now?[1=YES] ; SCMAINA= array of extra field entries for 404.42 (only if scyestm=1) |
| Name | Field # of Occurrence |
|---|---|
| FILE^DIE | ACPTTP+70 |
| UPDATE^DIE | TM+13 |
| $$ACPTTM^SCAPMC | ACPTTP+83 |
| $$TPPT^SCAPMC | ACPTTP+58 |
| $$CHKPC^SCAPMC21 | ACPTTP+56 |
| $$OKDATA^SCAPMC21 | ACPTTP+24 |
| $$HISTPTTM^SCAPMCU2 | ACPTTP+74 |
| $$HISTPTTP^SCAPMCU2 | ACPTTP+40 |
| $$PASSCNT^SCMCBK5 | ACPTATP+13 |
| $$DP^SCMCBK6 | ACPTTP+50 |
| $$S^SCMCBK6 | S |
| MAILLST^SCMCBK9 | MAIL+1 |
| AFTERTP^SCMCDD1 | TM+19 |
| $$OKPREC5^SCMCLK | ACPTTP+52 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCTM(404.57 - [#404.57] | ACPTTP+44 |
| ^XTMP("SCMC POS ASGN" | ACPTTP+28, ACPTTP+29* |
| Name | Line Occurrences |
|---|---|
| $$ACPTTP | ACPTATP+17 |
| $$S | ACPTTP+24, ACPTTP+34, ACPTTP+41, ACPTTP+50, ACPTTP+56, ACPTTP+58, TM, TM+15 |
| $$T1 | ACPTTP+56 |
| APTTPQ | ACPTTP+24, ACPTTP+34, ACPTTP+41, ACPTTP+50, ACPTTP+53, ACPTTP+56, ACPTTP+58, ACPTTP+62, TM |
| ACPTATP+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | ACPTTP~, ACPTTP+40, ACPTTP+50, ACPTTP+56, ACPTTP+58, ACPTTP+74, ACPTTP+83, ACPTATP+10~, ACPTATP+15*, ACPTATP+16* , ACPTATP+17, ACPTATP+22, ACPTATP+23, ACPTATP+30, ACPTATP+34 |
| DFNA | ACPTATP~, ACPTATP+13, ACPTATP+16 |
| DT | ACPTTP+29, MAIL+1 |
| HISTPTTP | ACPTTP+19~ |
| SC | ACPTTP+19~ |
| SC( | ACPTTP+63*, ACPTTP+67*, TM+5*, TM+9*, TM+10*, TM+11* |
| SCACT | ACPTTP~, ACPTTP+40, ACPTTP+45, ACPTTP+52, ACPTTP+63, ACPTTP+74, ACPTTP+83, TM+11, ACPTATP~, ACPTATP+17 |
| >> SCADDFLD | MAIL+1 |
| SCAPTDT | ACPTTP+20~ |
| SCAPTDT("BEGIN" | ACPTTP+45* |
| SCAPTDT("END" | ACPTTP+46* |
| SCAPTDT("INCL" | ACPTTP+47* |
| SCAPTTPE | ACPTTP+20~ |
| SCAPTTPO | ACPTTP+20~ |
| SCAPTTPO("SCTP" | ACPTTP+59 |
| SCBADTP | ACPTATP~, ACPTATP+34, MAIL+1 |
| SCCNT | ACPTATP+10~, ACPTATP+12*, ACPTATP+21*, ACPTATP+29*, MAIL+2 |
| SCERR | ACPTTP~, ACPTTP+70, ACPTTP+83, ACPTATP~, ACPTATP+17 |
| SCESEQ | ACPTTP+19~ |
| SCFIELDA | ACPTTP~, ACPTTP+64, ACPTTP+66, ACPTTP+67, ACPTTP+77, ACPTTP+78, ACPTTP+79, ACPTTP+80, ACPTTP+81, ACPTTP+82 , TM+2, TM+4, TM+5, T1, ACPTATP~, ACPTATP+17 |
| SCFLD | ACPTTP+19~, ACPTTP+65*, ACPTTP+66*, ACPTTP+67, TM+3*, TM+4*, TM+5 |
| SCIEN | ACPTTP+19~, TM+15! |
| SCIEN(1 | TM+17 |
| SCLOCK | ACPTTP+21~, ACPTTP+33*, ACPTTP+34, ACPTTP+35, APTTPQ+1 |
| SCMAINA | ACPTTP~, ACPTTP+78, ACPTTP+79, ACPTTP+80, ACPTTP+81, ACPTTP+82, ACPTTP+83, ACPTATP~ |
| SCMESS | ACPTTP+20~, ACPTTP+24*, ACPTTP+34*, ACPTTP+41*, ACPTTP+50*, ACPTTP+53*, ACPTTP+56*, ACPTTP+58*, TM*, TM+15* , APTTPQ+3 |
| SCNEWTM | ACPTTP+20~, ACPTATP~, ACPTATP+23 |
| SCNEWTP | ACPTTP+20~, TM+18*, APTTPQ+3, ACPTATP~, ACPTATP+22, MAIL+1 |
| SCNOMAIL | ACPTATP+10~, ACPTATP+11*, MAIL! |
| SCOLDTP | ACPTATP~, ACPTATP+30, MAIL+1 |
| SCPARM | ACPTTP+19~ |
| SCPTTMA | ACPTTP+19~, ACPTTP+74*, ACPTTP+77, ACPTTP+83*, TM, TM+9, APTTPQ+3 |
| SCPTTPA | ACPTTP+19~, ACPTTP+40*, ACPTTP+41, ACPTTP+59*, ACPTTP+62, ACPTTP+63, ACPTTP+67, TM+17*, TM+19, APTTPQ+3 |
| SCTM | ACPTTP+19~, ACPTTP+44*, ACPTTP+59, ACPTTP+74, ACPTTP+83 |
| SCTMFLDA | ACPTTP+19~ |
| SCTOTCNT | ACPTATP+10~, ACPTATP+13*, ACPTATP+14, MAIL+1 |
| SCTP | ACPTTP~, ACPTTP+40, ACPTTP+44, ACPTTP+52, ACPTTP+59, TM+10, ACPTATP~, ACPTATP+17, MAIL+1 |
| SCTPERR | TM+12~, TM+15 |
| SCX | ACPTTP+21~, ACPTTP+52*, ACPTTP+53, S~, ACPTATP+10~, ACPTATP+17*, ACPTATP+20, ACPTATP+22, ACPTATP+23, ACPTATP+28 , ACPTATP+30, ACPTATP+34 |
| SCXLOCK | ACPTTP+21~, ACPTTP+32*, ACPTTP+36*, APTTPQ+1 |
| SCYESTM | ACPTTP~, ACPTTP+77, ACPTATP~, ACPTATP+17 |
| U | ACPTTP+29, ACPTTP+44, ACPTTP+53, APTTPQ+3, ACPTATP+20, ACPTATP+23, ACPTATP+34 |