Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SCMCBK8

Package: Scheduling

Routine: SCMCBK8


Information

SCMCBK8 ;bp/cmf - multiple patient assignments mail queue - RPCVersion = 1;;Aug 7, 1998

Source Information

Source file <SCMCBK8.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Scheduling 8 ($$ACPTTM,$$TPPT)^SCAPMC  ($$CHKPC,$$OKDATA)^SCAPMC21  ($$HISTPTTM,$$HISTPTTP)^SCAPMCU2  $$PASSCNT^SCMCBK5  ($$DP,$$S)^SCMCBK6  MAILLST^SCMCBK9  AFTERTP^SCMCDD1  $$OKPREC5^SCMCLK  
VA Fileman 1 (FILE,UPDATE)^DIE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SCMCBK4  

Entry Points

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
MAIL
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)

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SCTM(404.57 - [#404.57] ACPTTP+44
^XTMP("SCMC POS ASGN" ACPTTP+28, ACPTTP+29*

Label References

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
MAIL ACPTATP+14

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All