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

Package: Scheduling

Routine: SCAPMC7


Information

SCAPMC7 ;ALB/REW - Team APIs:INPTTM ; 5 Jul 1995

Source Information

Source file <SCAPMC7.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Scheduling 3 $$TMPT^SCAPMC3  (ERR,INIT)^SCAPMCU1  $$HISTPTTM^SCAPMCU2  
VA Fileman 2 NOW^%DTC  UPDATE^DIE  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Scheduling 4 SCAPMC  SCMCEV1  SCMCQK1  SCMCQK2  

Entry Points

Name Comments DBIA/ICR reference
PTTMACT(DFN,SCTM,SCDT,SCERR) ;is patient assigned to a team on a given date-time?
INPTTM(DFN,SCPTTM,SCINACT,SCERR) ;inactivate patient from a team (pt tm assgn - #404.42
; input:
; DFN = pointer to PATIENT file (#2)
; SCPTTM = pointer to pt team assign file (#404.42)
; SCINACT = date to inactivate [default=DT]
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]
APTTMQ
INPTATM(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
INPTSCTM(DFN,SCTM,SCINACT,SCERR) ;inactivate patient from a team - using last pt team assignment - Note: This uses pointer to 404.51 (team) not 404.42 as input
; input:
; DFN = pointer to PATIENT file (#2)
; SCTM = pointer to TEAM file (#404.51)
; SCINACT = date to inactivate [default=DT]
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]
OKDATA() ;check/setup variables - return 1 if ok/0 if error

External References

Name Field # of Occurrence
NOW^%DTC INPTTM+28
UPDATE^DIE INPTTM+30
$$TMPT^SCAPMC3 PTTMACT+4
ERR^SCAPMCU1 INPTTM+23, OKDATA+7
INIT^SCAPMCU1 OKDATA+3
$$HISTPTTM^SCAPMCU2 INPTATM+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] OKDATA+4
^SCPT(404.42 - [#404.42] INPTTM+19, OKDATA+4, INPTSCTM+18, INPTSCTM+19

Label References

Name Line Occurrences
$$INPTTM INPTATM+15, INPTSCTM+20
$$OKDATA INPTTM+18
$$PTTMACT INPTTM+20
APTTMQ INPTTM+18, INPTTM+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % INPTTM+29
DFN INPTTM~, INPTTM+20, PTTMACT~, PTTMACT+4, OKDATA+4, OKDATA+5, INPTATM+11~, INPTATM+13*, INPTATM+14, INPTATM+15
, INPTATM+19, INPTATM+22, INPTATM+24, INPTSCTM~, INPTSCTM+18, INPTSCTM+19, INPTSCTM+20
DFNA INPTATM~, INPTATM+13
DT OKDATA+8, OKDATA+9
DUZ INPTTM+27
SC INPTTM+16~
SC( INPTTM+26*, INPTTM+27*, INPTTM+29*
SCACT OKDATA+8*, INPTATM~, INPTATM+14, INPTATM+15, INPTSCTM+17~, INPTSCTM+18*, INPTSCTM+19
SCBADCNT INPTATM+11~, INPTATM+12*, INPTATM+25*, INPTATM+26
SCBADTM INPTATM~, INPTATM+24
SCDT PTTMACT~, PTTMACT+3
SCERR INPTTM~, INPTTM+20, INPTTM+23, INPTTM+30, INPTTM+31, PTTMACT~, PTTMACT+4, OKDATA+7, INPTATM~, INPTATM+15
, INPTSCTM~, INPTSCTM+20
SCESEQ INPTTM+16~, INPTTM+23, OKDATA+7
SCFIELDA INPTATM~, INPTATM+15
SCINACT INPTTM~, INPTTM+20, INPTTM+22, INPTTM+26, OKDATA+9*, INPTSCTM~, INPTSCTM+20
SCLSEQ INPTTM+16~
SCNEWCNT INPTATM+11~, INPTATM+12*, INPTATM+18*, INPTATM+26
SCNEWTM INPTATM~, INPTATM+19
SCOK INPTTM+16~, INPTTM+17*, INPTTM+21*, INPTTM+25*, INPTTM+31*, APTTMQ, PTTMACT+1~, PTTMACT+2*, PTTMACT+4*, PTTMACT+5
, OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+10
SCOLDCNT INPTATM+11~, INPTATM+12*, INPTATM+21*, INPTATM+26
SCOLDTM INPTATM~, INPTATM+22
SCPARM INPTTM+16~, INPTTM+23, OKDATA+7
SCPARM("INACT IVE DATE" , INPTTM+22*
SCPARM("PATIENT" OKDATA+5*
SCPARM("Pt TE AM Asnt" , OKDATA+6*
SCPTTM INPTTM~, INPTTM+19, INPTTM+26, INPTTM+27, INPTTM+29, OKDATA+4, OKDATA+6, INPTATM+14*, INPTATM+15, INPTSCTM+19*
, INPTSCTM+20
SCTM INPTTM+16~, INPTTM+19*, INPTTM+20, PTTMACT~, PTTMACT+4, INPTATM~, INPTATM+14, INPTSCTM~, INPTSCTM+18, INPTSCTM+19
SCTMDTS PTTMACT+1~
SCTMDTS("BEGIN" PTTMACT+3*
SCTMDTS("END" PTTMACT+3*
SCTMLST PTTMACT+1~
SCTMLST("SCTM" PTTMACT+4
SCX INPTATM+11~, INPTATM+15*, INPTATM+17, INPTATM+19, INPTATM+20, INPTATM+22, INPTATM+23
U INPTTM+19, INPTATM+17, INPTATM+20, INPTATM+26
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All