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

Package: Scheduling

Routine: SCMCQK2


Information

SCMCQK2 ;ALB/REW - Single Pt Tm/Pt Tm Pos Assign and Discharge ; 5/16/12 12:09pm

Source Information

Source file <SCMCQK2.m>

Entry Points

Name Comments DBIA/ICR reference
DSPL ;
NPC
READ
UNTP ;unassign patient from position
QTUNTP
UNTM ;
QTUNTM
ASTM ;assign patient to team
QTASTM
ASTP ;assign patient to practitioner
QTASTP
NAME(DFN) ;return patient name
POSITION(SCTP) ;return position name
TEAMNM(SCTM) ;return team name
CLINIC(SCCL) ;return clinic name
YESNO() ;
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 "^"
PRACSCR(SC40452) ;screen for for file 404.52
QTPP
POSSCR(SCTP) ;screen for file 404.57
NEW() ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NON PC ASSIGNMENTS",!
  • Line Location: DSPL+13
Function Call: WRITE
  • Prompt: !,CNT,?4,"Non-PC Team: "_$P(A,U,2),?48,"Phone: "_$P($G(^SCTM(404.51,+A,0)),U,2)
  • Line Location: DSPL+14
Function Call: WRITE
  • Prompt: !,"No active NON PC ASSIGNMENTS for this patient",!
  • Line Location: DSPL+23
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: !,"Select 1-"_CNT_": "
  • Line Location: READ+0
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: !!,"About to Unassign "_$$NAME(DFN)_" from "_$$TEAMNM(SCTM)_" team"
  • Line Location: UNTM+4
Function Call: WRITE
  • Prompt: !,"Future/Current Patient-Position Assignment exists"
  • Line Location: UNTM+19
Function Call: WRITE
  • Prompt: !,"Team Unassignment "_$S(OK:"made",1:"NOT made.")
  • Line Location: QTUNTM+0
Function Call: WRITE
  • Prompt: !!,"About to Assign "_$$NAME(DFN)_" to a non 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: !,"Team Assignment "_$S(OK:"made",1:"NOT made.")
  • Line Location: QTASTM+0
Function Call: WRITE
  • Prompt: !!,"About to Assign "_$$NAME(DFN)_" to non 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 NON PC POSITION Assignment: "
  • Line Location: SELPOS+2

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