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

Package: Scheduling

Routine: SCAPMC11


Information

SCAPMC11 ;ALB/REW - Team API's: PTTP ; JUN 30, 1995

Source Information

Source file <SCAPMC11.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Scheduling 2 (ERR,INIT)^SCAPMCU1  $$DTCHK^SCAPU1  
IHS Changes To ADT 1 $$HRCN^BDGF2  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Scheduling 4 SCAPMC  SCMCBK  SCMCBK1  SCMRBK  

Entry Points

Name Comments DBIA/ICR reference
LP
ST
BLD(SCLIST,SCPTTPA,SCPTTPA0) ; build list
; SCPTTPA - ien of patient team position assignment file #404.43
; SCEFFDT - negative of effective date
; SCN - current subscript (counter) 1->n
; SCPTTPA0 - IS 0 node of Pt Team Pos Assnt(404.43) 1st piece:pt tm ass
;
; this builds the array:
; sclist(1->n)=sc2^ptname^effdt^inactdt
; for each scpta zero node passed to it
PRACQ
PTTP(SCTP,SCDATES,SCLIST,SCERR) ; -- list of patient team position assignments
; input:
; SCTP = ien of TEAM POSITION [required]
; SCDATES("BEGIN") = begin date to search (inclusive)
; [default: TODAY]
; ("END") = end date to search (inclusive)
; [default: TODAY]
; ("INCL") = 1: only use patients who were assigned to
; position for entire date range
; 0: anytime in date range
; [default: 1]
; SCLIST -array name to store list
; [ex. ^TMP("SCPT",$J)]
;
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]
OKDATA() ;check/setup variables

External References

Name Field # of Occurrence
$$HRCN^BDGF2 BLD+17
ERR^SCAPMCU1 OKDATA+6, OKDATA+10
INIT^SCAPMCU1 OKDATA+3
$$DTCHK^SCAPU1 LP+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BLD+17
^SCPT(404.42 - [#404.42] BLD+12
^SCPT(404.43 - [#404.43] LP+1, LP+3, LP+4
^SCTM(404.57 - [#404.57] OKDATA+4, OKDATA+8
^TMP("SCMC" BLD+13

Label References

Name Line Occurrences
$$OKDATA ST+2
BLD LP+7
PRACQ ST+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN BLD+11~, BLD+12*, BLD+13, BLD+17, BLD+19
DUZ(2 BLD+17
SCBEGIN ST+1~, LP+6
SCCNT BLD+11~
SCDATES PTTP~
SCDTS ST+1~
SCEFFDT BLD+11~
SCEND ST+1~, LP+6
SCERR PTTP~, PRACQ, OKDATA+6, OKDATA+10
SCESEQ ST+1~, OKDATA+6, OKDATA+10
SCINCL ST+1~, LP+6
SCLIST PTTP~, LP+7, BLD~, BLD+10, BLD+14, BLD+15, BLD+17, BLD+18, BLD+19
SCLSEQ ST+1~
SCN ST+1~, BLD+14*, BLD+15, BLD+17, BLD+18, BLD+19
SCOK OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+8*, OKDATA+11
SCP ST+1~
SCPARM ST+1~, OKDATA+6, OKDATA+10
SCPARM("POSITION" OKDATA+5*
SCPARM("TEAM" OKDATA+9*
SCPTA ST~
SCPTA0 ST~
SCPTMA ST~, LP*, LP+1*, LP+3
SCPTPA ST~, LP+2*, LP+3*, LP+4, LP+7
SCPTPA0 ST~, LP+4*, LP+5, LP+6, LP+7
SCPTTPA BLD~, BLD+9, BLD+10, BLD+17, BLD+18
SCPTTPA0 BLD~, BLD+9, BLD+10, BLD+12, BLD+17, BLD+18
SCTP PTTP~, LP+1, LP+3, OKDATA+4, OKDATA+5, OKDATA+8, OKDATA+9
SCTPA ST~
U LP+6, BLD+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All