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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SCMCQK1

Package: Scheduling

Routine: SCMCQK1


Information

SCMCQK1 ;ALBOI/REW - Single Pt Tm/Pt Tm Pos Assign and Discharge;11/07/02 ; 6/13/12 3:38pm

Source Information

Source file <SCMCQK1.m>

Entry Points

Name Comments DBIA/ICR reference
UNTP ;unassign patient from pc prac position
QTUNTP
ENRCL ; no longer used with SD*5.3*535
QTECL
DISCL ; no longer used with SD*5.3*535
QTDCL
UNTM ;
QTUNTM
ALLPOS() ;unassign all patient-positions for team
QTALL
ASTM ;assign patient to PC team
QTASTM
ASTP ;assign patient to PC practitioner
QTASTP
NAME(DFN) ;return patient name
POSITION(SCTP) ;return position name
TEAMNM(SCTM) ;return team name
CLINIC(SCCL) ;return clinic name
YESNO() ;
YESNO1() ; added per SD*5.3*436
YESNO2() ;
CONFIRM() ;confirmation call
SELPOS() ;return way to select position: 1=PRACT,2=POSIT,3=NONE
DATE(TYPE,DFN) ;type=A(Assignment) or D(Unassignment)
; Returns assignment/unassignment date or "^"
ACTCL(DFN,SCCL) ;is patient enrolled in clinic? - not called with SD*5.3*535
PRACSCR(SC40452) ;screen for for file 404.52
QTPP
POSSCR(SCTP) ;screen for file 404.57
WAITYN() ;
SC(DFN) ;Is patient 50 to 100%
WARNMESS(SDY,DFN,SDFLG) ;SD*5.3*563

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No position defined"
  • Line Location: UNTP+1
Function Call: WRITE
  • Prompt: !,"About to Unassign "_$$NAME(DFN)_" from: ",!,?8,$$POSITION(SCTP)_" position ["_$P($$GETPRTP^SCAPMCU2(SCTP,DT),U,2)_"]"
  • Line Location: UNTP+4
Function Call: WRITE
  • Prompt: !,"Position Unassignment "_$S(OK:"made.",1:"NOT made.")
  • Line Location: QTUNTP+0
Function Call: WRITE
  • Prompt: !,?10,SCRESTA(SCTM)
  • Line Location: ENRCL+15
Function Call: WRITE
  • Prompt: Y,"?"
  • Line Location: ENRCL+20
Function Call: WRITE
  • Prompt: " made"
  • Line Location: ENRCL+23
Function Call: WRITE
  • Prompt: "NOT made "
  • Line Location: ENRCL+24
Function Call: WRITE
  • Prompt: Y,"?"
  • Line Location: DISCL+6
Function Call: WRITE
  • Prompt: !!,"About to Unassign "_$$NAME(DFN)_" from "_$$TEAMNM(SCTM)_" team"
  • Line Location: UNTM+4
Function Call: WRITE
  • Prompt: !,"Team Unassignment "_$S(OK:"made",1:"NOT made.")
  • Line Location: QTUNTM+0
Function Call: WRITE
  • Prompt: !,"Checking for other position assignments to team..."
  • Line Location: ALLPOS+9
Function Call: WRITE
  • Prompt: !,?5,$S(SCCNT:SCCNT,1:"No")_" current/future position assignment(s)"
  • Line Location: ALLPOS+20
Function Call: WRITE
  • Prompt: !!,"About to unassign the above patient-position assignments"
  • Line Location: ALLPOS+22
Function Call: WRITE
  • Prompt: !!,"About to Assign "_$$NAME(DFN)_" to a primary care team"
  • Line Location: ASTM+3
Function Call: WRITE
  • Prompt: !!,"********** This patient is 50 percent or greater service-connected ************"
  • Line Location: ASTM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASTM+20
Function Call: WRITE
  • Prompt: !,"Team Assignment "_$S(OK:"made",1:"NOT made.")
  • Line Location: QTASTM+0
Function Call: WRITE
  • Prompt: !!,"About to Assign "_$$NAME(DFN)_" to PC Position Assignment"
  • Line Location: ASTP+3
Function Call: WRITE
  • Prompt: !!,"********** This patient is 50 percent or greater service-connected ************"
  • Line Location: ASTP+4
Function Call: WRITE
  • Prompt: !,"Position Assignment "_$S(OK:"made",1:"NOT made.")
  • Line Location: QTASTP+0
Function Call: WRITE
  • Prompt: !,"Choose way to select PC POSITION Assignment: "
  • Line Location: SELPOS+2
Function Call: WRITE
  • Prompt: !,"Patient Placed on Wait List"
  • Line Location: WAITYN+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SCTM(404.51 - [#404.51] Classic Fileman Calls
^SCTM(404.52 - [#404.52] Classic Fileman Calls
^SCTM(404.57 - [#404.57] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call