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

Package: Scheduling

Routine: SCAPMCU2


Information

SCAPMCU2 ;ALB/REW - TEAM API UTILITIES ;6/29/99 19:40 ; Compiled May 29, 2007 15:16:13

Source Information

Source file <SCAPMCU2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Scheduling 3 $$PRTP^SCAPMC  ($$DATES,ERR,INIT)^SCAPMCU1  $$PCPROV^SCAPMCU3  

Caller Graph

Caller Graph Total: 59

Package Total Caller Graph
Scheduling 54 SCAPMC1  SCAPMC12  SCAPMC13  SCAPMC15  SCAPMC17  SCAPMC19  SCAPMC20  SCAPMC21  
SCAPMC23  SCAPMC24  SCAPMC3  SCAPMC30  SCAPMC4  SCAPMC5  SCAPMC7  SCAPMC9  
SCAPMCU1  SCMCBK  SCMCBK1  SCMCBK6  SCMCBK8  SCMCCV  SCMCCV3  SCMCDD  
SCMCDD1  SCMCLK  SCMCMM  SCMCPM1  SCMCPT2  SCMCQK  SCMCQK1  SCMCQK2  
SCMCRT1A  SCMCTMU  SCMCTMU2  SCMCTPU2  SCMCTSK1  SCMCTSK2  SCMCTSK3  SCMCTSK5  
SCMCTSK6  SCMCTSK9  SCMRBK  SCRPV1A  SCUTBK11  SCUTBK12  SDCO31  SDUTL3  
SDWLE1  SDWLE20  SDWLTR  ^SCPT(404.41  ^SCTM(404.53  ^SCTM(404.57  
Registration 3 DGRRLU6  DGRRLUA  DGRRPSD2  
Automated Information Collection System 1 IBDFRPC3  
Text Integration Utility 1 TIUTIUS  

Entry Points

Name Comments DBIA/ICR reference
DTAFTER(FILE,IEN,STATUS,DATE) ;return next date after given one
QTDTAF
DTBEFORE(FILE,IEN,STATUS,DATE) ;return next date before given one
QTDTBF
ACTHISTB(FILE,IEN) ;boolean active function
ACTHIST(FILE,IEN,SCDATES,SCERR,SCLIST) ;is entry active for a time period?
; Input Parameters:
; File = either 404.52 or 404.58 or 404.59
; IEN = pointer to team(404.51) or team position(404.57)
; SCDATES = (SEE PRIOR DEFINITION)
; SCLIST = Output array
; Returned:
; status (-1:error|0:inactive|1:active)^ien for file^actdt^inacdt
; which ien depends on status
LOOP
QTACTH
EXT(FILE,IEN) ;return external value of team or team position file
QTEXT
GETPC(DFN,DATE,PCROLE,ASSTYPE) ;return pc position & team for a date
; DFN - pointer to patient file
; DATE - date of interest (Default=DT)
; PCROLE - Default=1 (PC Practitioner Position) note 2= pc attending
; ASSTYPE - Default=1 (PC Team)
; returns sctp^sctm^assigned to pc?
HISTPTTP(DFN,SCTP,DATE) ;404.43 entry for pt,position - if active on date
HISTPTTM(DFN,SCTM,DATE) ;404.42 entry for tm,position - if active on date
; return -1 if error, 0 if no active entry or 404.42 entyr if one
GETPCTM(DFN,DATE,ASSTYPE) ;return pc team for a date
; DFN - pointer to patient file
; DATE - date of interest
; ASSTYPE - Default=1 (PC Team)
; returns sctm
GETPCTP(DFN,DATE,PCROLE) ;return pc position for a date
; DFN - pointer to patient file
; DATE - date of interest
; PCROLE - Default=1 (PC Practitioner Position) note 2= pc attending
; returns sctp,or 0 if none or -1 if error
GETPRTP(SCTP,DATE) ;returns ien & name of practitioner filling position
; Returned [Error:-1,Else: sc200^practname]
EXTMPRTP(SCTP,DATE) ;returns external of team and practitioner for position
NMPCTP(DFN,DATE,PCROLE) ;returns ien & name of pc position
; (See GETPCTP for variables)
  • ICR #3284
    • Status: Active
    • Usage: Private
    NMPCPR(DFN,DATE,PCROLE) ;returns ien & name of pract filling pc position
    ; DFN - pointer to patient file
    ; DATE - date of interest
    ; PCROLE - Practitioner Position where '1' = PC provider
    ; '2' = PC attending
    ; '3' = PC associate provider
  • ICR #1590
    • Status: Active
    • Usage: Controlled Subscription
    NMPCTM(DFN,DATE,PCROLE) ;returns ien & name of pc team
    ; (See GETPCTM for variables)
    ALPHA(INARRAY,OUTARRAY) ;not supported - for PCMM only
    ; returns array sorted by 2nd piece's value
    ; it keeps the 0 node -it does not return any x-ref values
    ; it only converts arrays of type 1-n to another 1-n array

    External References

    Name Field # of Occurrence
    $$PRTP^SCAPMC GETPRTP+6
    $$DATES^SCAPMCU1 LOOP+1, LOOP+16
    ERR^SCAPMCU1 LOOP+14
    INIT^SCAPMCU1 ACTHIST+14
    $$PCPROV^SCAPMCU3 NMPCPR+19

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^SCPT(404.41 - [#404.41] GETPC+8
    ^SCPT(404.42 - [#404.42] HISTPTTM+5, HISTPTTM+6, HISTPTTM+7, GETPCTM+10, GETPCTM+13, GETPCTM+14, GETPCTM+15
    ^SCPT(404.43 - [#404.43] HISTPTTP+5, HISTPTTP+6, HISTPTTP+7, GETPCTP+11, GETPCTP+12, GETPCTP+14!, GETPCTP+15
    ^SCTM(404.51 - [#404.51] EXT+4, EXTMPRTP+4, NMPCTM+4
    ^SCTM(404.57 - [#404.57] EXT+7, EXTMPRTP+4, NMPCTP+4
    ^TMP($J ALPHA+8*, ALPHA+10, ALPHA+12, ALPHA+15!

    Label References

    Name Line Occurrences
    $$ACTHIST ACTHISTB+3
    $$EXT LOOP+9, LOOP+22
    $$GETPCTM GETPC+8, NMPCTM+3
    $$GETPCTP GETPC+8, NMPCTP+3
    $$GETPRTP EXTMPRTP+3
    $$NMPCTP NMPCPR+18
    QTACTH ACTHIST+12, ACTHIST+15
    QTDTAF DTAFTER+3
    QTDTBF DTBEFORE+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACTDT GETPC+7~, GETPCTM+6~, GETPCTM+10*, GETPCTM+11, GETPCTM+13, GETPCTM+14, GETPCTP+6~, GETPCTP+11*, GETPCTP+12, GETPCTP+14
    ASSTYPE GETPC~, GETPC+8, GETPCTM~, GETPCTM+7*, GETPCTM+10, GETPCTM+13, GETPCTM+14
    DATE DTAFTER~, DTAFTER+5, DTBEFORE~, DTBEFORE+5, GETPC~, GETPC+8, HISTPTTP~, HISTPTTP+2, HISTPTTP+4, HISTPTTP+8
    , HISTPTTM~, HISTPTTM+2, HISTPTTM+4, HISTPTTM+8, GETPCTM~, GETPCTM+8*, GETPCTM+10, GETPCTM+17, GETPCTP~, GETPCTP+8*
    , GETPCTP+11, GETPCTP+18, GETPRTP~, GETPRTP+3*, GETPRTP+4, GETPRTP+5, EXTMPRTP~, EXTMPRTP+3, NMPCTP~, NMPCTP+3
    , NMPCPR~, NMPCPR+18, NMPCPR+19, NMPCTM~, NMPCTM+3
    DFN GETPC~, GETPC+8, HISTPTTP~, HISTPTTP+2, HISTPTTP+5, HISTPTTP+6, HISTPTTM~, HISTPTTM+2, HISTPTTM+5, HISTPTTM+6
    , GETPCTM~, GETPCTM+10, GETPCTM+13, GETPCTM+14, GETPCTP~, GETPCTP+11, GETPCTP+12, GETPCTP+14, NMPCTP~, NMPCTP+3
    , NMPCPR~, NMPCPR+18, NMPCTM~, NMPCTM+3
    DT GETPCTM+8, GETPCTP+8, GETPRTP+3
    >> EFFDT DTAFTER+5*, DTAFTER+6, DTBEFORE+5*, DTBEFORE+6
    FILE DTAFTER~, DTAFTER+3, DTAFTER+4, DTBEFORE~, DTBEFORE+3, DTBEFORE+4, ACTHISTB~, ACTHISTB+3, ACTHIST~, ACTHIST+12
    , ACTHIST+13, LOOP+1, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, LOOP+16, LOOP+19, LOOP+20
    , LOOP+21, LOOP+22, LOOP+23, EXT~, EXT+3, EXT+6
    HISTIEN HISTPTTP+3~, HISTPTTP+6*, HISTPTTP+7, HISTPTTP+8, HISTPTTM+3~, HISTPTTM+6*, HISTPTTM+7, HISTPTTM+8
    IEN DTAFTER~, DTAFTER+3, DTBEFORE~, DTBEFORE+3, ACTHISTB~, ACTHISTB+3, ACTHIST~, ACTHIST+12, LOOP+1, LOOP+6
    , LOOP+9, LOOP+10, LOOP+16, LOOP+19, LOOP+22, LOOP+23, EXT~, EXT+4, EXT+7
    INACTDT GETPC+7~, GETPCTP+6~, GETPCTP+15*, GETPCTP+17, GETPCTP+18
    INARRAY ALPHA~, ALPHA+6, ALPHA+7, ALPHA+14
    OK ACTHIST+10~, ACTHIST+11*, ACTHIST+14, ACTHIST+15*, ACTHIST+17*, LOOP+1, LOOP+4*, LOOP+12*, LOOP+18*, QTACTH
    OUTARRAY ALPHA~, ALPHA+6, ALPHA+14
    PCAP NMPCPR+9~, NMPCPR+14*, NMPCPR+15*, NMPCPR+19
    PCROLE GETPC~, GETPC+8, GETPCTP~, GETPCTP+9*, GETPCTP+11, GETPCTP+12, GETPCTP+14, NMPCTP~, NMPCTP+3, NMPCPR~
    , NMPCPR+14*, NMPCPR+16*, NMPCPR+18, NMPCTM~, NMPCTM+3
    ROOT DTAFTER+4*, DTAFTER+6, DTBEFORE+4*, DTBEFORE+6, ACTHIST+10~, ACTHIST+13*
    SCA ACTHIST+10~, LOOP+1*, LOOP+2, LOOP+5, LOOP+6, LOOP+9, LOOP+10
    SCACT HISTPTTP+3~, HISTPTTP+5*, HISTPTTP+6, HISTPTTP+8, HISTPTTM+3~, HISTPTTM+5*, HISTPTTM+6, HISTPTTM+8
    SCACTB ACTHISTB+2~
    SCBEGIN ACTHIST+10~, LOOP+1, LOOP+17
    SCDATE ACTHIST+10~, ACTHIST+16*, LOOP+1, LOOP+2*, LOOP+5*, LOOP+13, LOOP+16
    SCDATES ACTHIST~
    SCDT HISTPTTP+3~, HISTPTTP+4*, HISTPTTP+5, HISTPTTM+3~, HISTPTTM+4*, HISTPTTM+5
    SCDTS ACTHIST+10~
    SCE ACTHIST+10~, LOOP+1*
    SCEND ACTHIST+10~, ACTHIST+16
    SCERR ACTHIST~, LOOP+14
    >> SCESEQ LOOP+14
    SCEXT EXT+1~, EXT+2*, EXT+4*, EXT+5*, EXT+7*, EXT+8*, QTEXT
    SCGOOD GETPCTM+6~, GETPCTM+12*, GETPCTM+13, GETPCTM+16*
    SCINACT HISTPTTP+3~, HISTPTTP+7*, HISTPTTP+8, HISTPTTM+3~, HISTPTTM+7*, HISTPTTM+8
    SCINCL ACTHIST+10~, LOOP
    SCINDT GETPCTM+6~, GETPCTM+15*, GETPCTM+16, GETPCTM+17
    SCLIST ACTHIST~, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, LOOP+19, LOOP+20, LOOP+21, LOOP+22
    , LOOP+23
    >> SCN LOOP+7*, LOOP+8, LOOP+9, LOOP+10, LOOP+20*, LOOP+21, LOOP+22, LOOP+23
    SCNDX ALPHA+4~, ALPHA+9*, ALPHA+10*, ALPHA+12
    SCNODE ALPHA+4~, ALPHA+7*, ALPHA+8
    SCOK GETPCTP+6~, GETPCTP+7*
    >> SCPARM LOOP+14
    >> SCPARM("EFFEC TIVE DATE" , LOOP+13*
    SCPR GETPRTP+2~
    SCPR(1 GETPRTP+7
    SCPRDTS GETPRTP+2~
    SCPRDTS("BEGIN" GETPRTP+4*
    SCPRDTS("END" GETPRTP+5*
    SCPTA GETPC+7~, GETPCTP+6~
    SCPTTMA GETPCTM+6~, GETPCTM+14*, GETPCTM+15
    SCPTTPA GETPCTP+6~
    SCTM GETPC+7~, HISTPTTM~, HISTPTTM+2, HISTPTTM+5, HISTPTTM+6, GETPCTM+6~, GETPCTM+12*, GETPCTM+13*, GETPCTM+14, GETPCTM+17
    , GETPCTP+6~
    SCTP GETPC+7~, HISTPTTP~, HISTPTTP+2, HISTPTTP+5, HISTPTTP+6, GETPCTM+6~, GETPCTP+6~, GETPCTP+7*, GETPCTP+12, GETPCTP+17*
    , GETPCTP+18*, GETPCTP+20, GETPRTP~, GETPRTP+6, EXTMPRTP~, EXTMPRTP+3, EXTMPRTP+4, NMPCPR+9~, NMPCPR+18*, NMPCPR+19
    SCX DTAFTER+1~, DTAFTER+2*, DTAFTER+6*, QTDTAF, DTBEFORE+1~, DTBEFORE+2*, DTBEFORE+6*, QTDTBF, EXTMPRTP+2~, EXTMPRTP+3*
    , EXTMPRTP+4, ALPHA+4~, ALPHA+5*, ALPHA+7*, ALPHA+8, ALPHA+11*, ALPHA+12*, ALPHA+14
    SCY ALPHA+4~, ALPHA+5*, ALPHA+13*, ALPHA+14
    STATUS DTAFTER~, DTBEFORE~
    TPDALP GETPCTP+6~, GETPCTP+12*, GETPCTP+14, GETPCTP+15
    TPLP GETPCTP+6~, GETPCTP+12*, GETPCTP+14, GETPCTP+17, GETPCTP+18
    U LOOP+1, LOOP+9, LOOP+17, LOOP+19, LOOP+22, LOOP+23, QTACTH, EXT+4, EXT+6, EXT+7
    , GETPC+8, HISTPTTP+7, HISTPTTM+7, GETPCTM+15, GETPCTP+15, GETPRTP+7, EXTMPRTP+4, NMPCTP+4, NMPCTM+4, ALPHA+8
    X ACTHISTB+2~, ACTHISTB+3*, ACTHISTB+4, ACTHIST+10~, ACTHIST+11*, LOOP+1*, LOOP+2, LOOP+3, LOOP+9, LOOP+16*
    , LOOP+17, LOOP+19, LOOP+22, LOOP+23, QTACTH, GETPRTP+2~, GETPRTP+6*, GETPRTP+7, NMPCTP+2~, NMPCTP+3*
    , NMPCTP+4, NMPCTM+2~, NMPCTM+3*, NMPCTM+4
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All