Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SCAPMCU1

Package: Scheduling

Routine: SCAPMCU1


Information

SCAPMCU1 ;ALB/REW - TEAM API UTILITIES ; 7/12/99 9:33am ;07/06/2017

Source Information

Source file <SCAPMCU1.m>

Entry Points

Name Comments DBIA/ICR reference
INIT(SCOK) ; setup date array & error arrays if none passed in
; VARIABLES SET:
; SCOK - SET TO 0 IF ERROR
PCPOSCNT(SCTP,SCDATE,SCPCONLY,SCFUTURE) ;this is a more efficient count of PC patients assigned to position
; Input: SCTP - ien to 404.57
; SCDATE - date of concern, default=DT
; SCPCONLY - 1= must be pc, 0=all assignments 1=DEFAULT
; SCFUTURE - 1= include future, 0=current 0=DEFAULT ;;bp/cmf 177
TEAMCNT(SCTM,DATE) ;this is a more efficient version of the count
  • ICR #1918
    • Status: Retired
    • Usage: Private
    TEAMCNT2(SCTM,DATE) ;this is the count of patients assigned to the team on a date
    ; Input: SCTM - ien to 404.51
    ; DATE - date of concern, default=DT
    ACTHISTB(FILE,IEN) ;boolean active function
    ACTHIST(FILE,IEN,SCDATES,SCERR) ;is entry active for a time period?
    LASTDATE(FILE,IEN) ;gets last date for team or position from 404.52,404.58,404.59 - uses DATES function below
    ; Input Parameters:
    ; File = either 404.52 or 404.58 or 404.59
    ; IEN = pointer to team(404.51) or team position(404.57)
    ; Returned:
    ; -1 if error,o/w latest date defined 0=no historical dates
    DATES(FILE,IEN,DATE) ;used to return latest activation & inactivation date
    ; Input Parameters:
    ; File = either 404.52, 404.53, 404.58, or 404.59
    ; IEN = pointer to team(404.51) or team position(404.57)
    ; DATE = default=DT
    ; Returned:
    ; status^actdate^inactdate^scien^first actdate? [1=yes/null=no]
  • ICR #1918
    • Status: Retired
    • Usage: Private
    ST
    QTDATES
    ERR(SEQ,ERNUM,PARMS,OUTPUT,SCER) ;-- process errors
    OKTMPOS(TEAM,POSITION,DATE) ;validate legitimate position in a team for a dt
    ; used in screen for pc practitioner position of patient team assngt
    CHK ;
    QTOKTP
    RSNDICS(EVCODE) ; -- called by input transform and screen logic for type of reason
    ; Input: EVCODE = event code (e.g. ZM1)
    ; Used to check for fields that point to Scheduling Reason File
    ; Piece = Piece number of zero node of
  • ICR #1918
    • Status: Retired
    • Usage: Private
    OKPREC(TEAM) ; - called by screen logic for preceptor position file (#.1) of team position (#404.57) file
    ; Input; TEAM = Pointer to team file (#404.51) for team position with preceptor
    ; requires position being assigned to be a possible preceptor position
    ; AND that position is from the same team as the supervised position

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DI(.84 - [#.84] GET1^DIQ
    Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call