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: SCAPMC21

Package: Scheduling

Routine: SCAPMC21


Information

SCAPMC21 ;ALB/REW - Team APIs:ACPTTP ; 5 Jul 1995

Source Information

Source file <SCAPMC21.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Scheduling 7 ($$ACPTTM,$$TPPT)^SCAPMC  (ERR,INIT)^SCAPMCU1  $$HISTPTTM^SCAPMCU2  AFTERTP^SCMCDD1  $$OKPREC5^SCMCLK  MAILLST^SCMCTPM  $$PCRLPTTP^SCMCTPU2  
VA Fileman 1 (FILE,UPDATE)^DIE  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Scheduling 7 SCAPMC  SCMCBK  SCMCBK1  SCMCBK8  SCMCCV2  SCMCQK1  SCMCQK2  

Entry Points

Name Comments DBIA/ICR reference
QTCKPC
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
APTTPQ
CHKPC(DFN) ;not stand-alone
TM
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)
OKDATA() ;setup/check variables

External References

Name Field # of Occurrence
FILE^DIE ACPTTP+41
UPDATE^DIE TM+9
$$ACPTTM^SCAPMC ACPTTP+52
$$TPPT^SCAPMC ACPTTP+32
ERR^SCAPMCU1 OKDATA+7
INIT^SCAPMCU1 OKDATA+3
$$HISTPTTM^SCAPMCU2 ACPTTP+43
AFTERTP^SCMCDD1 TM+14
$$OKPREC5^SCMCLK ACPTTP+29
MAILLST^SCMCTPM ACPTATP+25
$$PCRLPTTP^SCMCTPU2 CHKPC+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] OKDATA+4
^SCTM(404.57 - [#404.57] ACPTTP+21, OKDATA+4

Label References

Name Line Occurrences
$$ACPTTP ACPTATP+13
$$CHKPC ACPTTP+26
$$OKDATA ACPTTP+20
APTTPQ ACPTTP+20, ACPTTP+26, ACPTTP+30, ACPTTP+32, ACPTTP+35, TM
QTCKPC CHKPC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN ACPTTP~, ACPTTP+26, ACPTTP+32, ACPTTP+43, ACPTTP+52, ACPTATP+9~, ACPTATP+12*, ACPTATP+13, ACPTATP+17, ACPTATP+18
, ACPTATP+21, ACPTATP+23, OKDATA+4, OKDATA+5, CHKPC~, CHKPC+4
DFNA ACPTATP~, ACPTATP+12
DT ACPTATP+25, OKDATA+8
HISTPTTP ACPTTP+18~
SC ACPTTP+18~
SC( ACPTTP+36*, ACPTTP+40*, TM+5*, TM+6*, TM+7*, TM+8*
SCACT ACPTTP~, ACPTTP+23, ACPTTP+29, ACPTTP+36, ACPTTP+43, ACPTTP+52, TM+8, ACPTATP~, ACPTATP+13, OKDATA+8*
, CHKPC+4
>> SCADDFLD ACPTATP+25
SCAPTDT ACPTTP+19~
SCAPTDT("BEGIN" ACPTTP+23*
SCAPTDT("END" ACPTTP+24*
SCAPTDT("INCL" ACPTTP+25*
SCAPTTPE ACPTTP+19~
SCAPTTPO ACPTTP+19~
SCAPTTPO("SCTP" ACPTTP+33
SCBADTP ACPTATP~, ACPTATP+23, ACPTATP+25
SCCNT ACPTATP+9~, ACPTATP+11*, ACPTATP+16*, ACPTATP+20*, ACPTATP+26
SCERR ACPTTP~, ACPTTP+41, ACPTTP+52, TM+9, TM+10, ACPTATP~, ACPTATP+13, OKDATA+7
SCESEQ ACPTTP+18~, OKDATA+7
SCFIELDA ACPTTP~, ACPTTP+26, ACPTTP+37, ACPTTP+39, ACPTTP+40, ACPTTP+46, ACPTTP+47, ACPTTP+48, ACPTTP+49, ACPTTP+50
, ACPTTP+51, TM+2, TM+4, TM+5, ACPTATP~, ACPTATP+13, CHKPC+3, CHKPC+5, CHKPC+7
SCFLD ACPTTP+18~, ACPTTP+38*, ACPTTP+39*, ACPTTP+40, TM+3*, TM+4*, TM+5
SCIEN ACPTTP+18~, TM+10!
SCIEN(1 TM+12
SCMAINA ACPTTP~, ACPTTP+47, ACPTTP+48, ACPTTP+49, ACPTTP+50, ACPTTP+51, ACPTTP+52, ACPTATP~, OKDATA+9*
SCMESS ACPTTP+19~, ACPTTP+27*, ACPTTP+30*, APTTPQ
SCNEWTM ACPTTP+19~, ACPTATP~, ACPTATP+18
SCNEWTP ACPTTP+19~, TM+13*, APTTPQ, ACPTATP~, ACPTATP+17, ACPTATP+25
SCNOMAIL ACPTATP+9~, ACPTATP+10*, ACPTATP+24!
SCOK OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+10, CHKPC+1~, CHKPC+2*, CHKPC+6*, CHKPC+8*, QTCKPC
SCOLDTP ACPTATP~, ACPTATP+21, ACPTATP+25
SCPARM ACPTTP+18~, OKDATA+7
SCPARM("PATIENT" OKDATA+5*
SCPARM("POSITION" OKDATA+6*
SCPTTMA ACPTTP+18~, ACPTTP+43*, ACPTTP+46, ACPTTP+52*, TM, TM+6, APTTPQ
SCPTTPA ACPTTP+18~, ACPTTP+33*, ACPTTP+35, ACPTTP+36, ACPTTP+40, TM+12*, TM+14, APTTPQ
SCTM ACPTTP+18~, ACPTTP+21*, ACPTTP+33, ACPTTP+43, ACPTTP+52
SCTMFLDA ACPTTP+19~
SCTP ACPTTP~, ACPTTP+21, ACPTTP+29, ACPTTP+33, TM+7, ACPTATP~, ACPTATP+13, ACPTATP+25, OKDATA+4, OKDATA+6
, CHKPC+4
SCX ACPTTP+19~, ACPTTP+29*, ACPTTP+30, ACPTATP+9~, ACPTATP+13*, ACPTATP+15, ACPTATP+17, ACPTATP+18, ACPTATP+19, ACPTATP+21
, ACPTATP+22, ACPTATP+23, CHKPC+1~, CHKPC+4*, CHKPC+6, CHKPC+8
SCYESTM ACPTTP~, ACPTTP+46, ACPTATP~, ACPTATP+13
U ACPTTP+21, ACPTTP+30, APTTPQ, ACPTATP+15, ACPTATP+18, ACPTATP+19, ACPTATP+23, CHKPC+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All