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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Scheduling 16 $$ACPTTM^SCAPMC  $$ACPTCL^SCAPMC18  $$ACPTTP^SCAPMC21  $$INPTSCTP^SCAPMC22  $$TPPT^SCAPMC23  $$INPTSCTM^SCAPMC7  ($$PCPOSCNT,$$TEAMCNT)^SCAPMCU1  $$GETPRTP^SCAPMCU2  
$$GETEAM^SCAPMCU3  $$RESTPT^SCAPMCU4  $$WRITETP^SCMCDD1  WARNMESS^SCMCQK1  $$OKINPTTM^SCMCTMU2  $$ACTTP^SCMCTPU  ($$ONWAIT,$$WAITS)^SCMCWAIT  ^SDCD  
VA FileMan 4 NOW^%DTC  ^DIC  MIX^DIC1  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Registration 1 ELIG^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Scheduling 4 SCMCQK  SCMCQK1  SCMCQK2  SCMCTSK6  

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

External References

Name Field # of Occurrence
NOW^%DTC ASTM+34, ASTP+37
^DIC ASTM+9
MIX^DIC1 ASTP+19
^DIR YESNO+3, YESNO1+4, YESNO2+4, CONFIRM+4, SELPOS+5, DATE+11, WAITYN+7
$$ACPTTM^SCAPMC ASTM+35
$$ACPTCL^SCAPMC18 ENRCL+23
$$ACPTTP^SCAPMC21 ASTP+38
$$INPTSCTP^SCAPMC22 UNTP+8, UNTM+11, ALLPOS+26
$$TPPT^SCAPMC23 ALLPOS+7
$$INPTSCTM^SCAPMC7 UNTM+18
$$PCPOSCNT^SCAPMCU1 ASTP+27
$$TEAMCNT^SCAPMCU1 ASTM+23
$$GETPRTP^SCAPMCU2 UNTP+4
$$GETEAM^SCAPMCU3 ASTM+24
$$RESTPT^SCAPMCU4 ENRCL+9
$$WRITETP^SCMCDD1 UNTM+5
WARNMESS^SCMCQK1 DATE+13
$$OKINPTTM^SCMCTMU2 UNTM+17
$$ACTTP^SCMCTPU PRACSCR+6, POSSCR+3
$$ONWAIT^SCMCWAIT WAITYN+3
$$WAITS^SCMCWAIT WAITYN+8
^SDCD DISCL+9
ELIG^VADPT SC+1
$$FMTE^XLFDT WARNMESS+11

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
Routine Call
  • DIC
  • Line Location:
    • ASTM+9
Routine Call
  • DIR
  • Line Location:
    • YESNO+3
    • YESNO1+4
    • YESNO2+4
    • CONFIRM+4
    • SELPOS+5
    • DATE+11
    • WAITYN+7

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ENRCL+20, DISCL+6, DATE+9
^DPT - [#2] NAME+1, ACTCL+3, ACTCL+4, WARNMESS+8, WARNMESS+9, WARNMESS+10
^SC - [#44] CLINIC+1
^SCTM(404.51 - [#404.51] ASTM+13, TEAMNM+1
^SCTM(404.52 - [#404.52] PRACSCR+2, PRACSCR+6
^SCTM(404.57 - [#404.57] ENRCL+4, DISCL+2, UNTM+14, ASTP+27, ASTP+40, POSITION+1, PRACSCR+5, POSSCR+2

Label References

Name Line Occurrences
$$ACTCL ENRCL+5, DISCL+3
$$ALLPOS UNTM+16
$$CLINIC ENRCL+6, DISCL+4
$$CONFIRM UNTP+7, UNTM+8, ALLPOS+23, ASTM+19, ASTM+29, ASTP+32
$$DATE UNTP+5, UNTM+6, ASTM+21, ASTP+25
$$NAME UNTP+4, DISCL+4, UNTM+4, ASTM+3, ASTP+3
$$POSITION UNTP+4, ENRCL+6, UNTM+5
$$SC ASTM+4, ASTP+4
$$SELPOS ASTM+36
$$TEAMNM UNTM+4
$$WAITYN ASTM+25, ASTP+28
$$YESNO ENRCL+21, DISCL+7
$$YESNO1 ASTM+18
$$YESNO2 ASTM+25, ASTP+28
ASTP ASTM+37
ENRCL ASTP+41
QTALL ALLPOS+21, ALLPOS+23
QTASTM ASTM+10, ASTM+13, ASTM+22, ASTM+25, ASTM+29
QTASTP ASTP+20, ASTP+26, ASTP+28, ASTP+32
QTECL ENRCL+16
QTPP PRACSCR+4
QTUNTM UNTM+7, UNTM+8, UNTM+9
QTUNTP UNTP+6, UNTP+7, UNTP+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASTM+34, ASTP+37, WAITYN+1~
A WAITYN+3~*
>> D ASTP+12*, ASTP+15*
DFN UNTP+4, UNTP+5, UNTP+8, ENRCL+5, ENRCL+9, ENRCL+23, DISCL+3, DISCL+4, DISCL+8, DISCL+9~
, UNTM+4, UNTM+6, UNTM+11, UNTM+17, UNTM+18, ALLPOS+7, ALLPOS+26, ASTM+3, ASTM+4, ASTM+21
, ASTM+35, ASTP+3, ASTP+4, ASTP+25, ASTP+38, NAME~, NAME+1, DATE~, DATE+2, DATE+13
, ACTCL~, ACTCL+3, ACTCL+4, WAITYN+3, WAITYN+8, SC~, WARNMESS~, WARNMESS+8, WARNMESS+9, WARNMESS+10
DIC ASTM+1~, ASTM+5*, ASTP+1~, ASTP+9*, ASTP+14*
DIC("A" ASTP+8*, ASTP+16*
DIC("S" ASTM+7*, ASTP+11*, ASTP+17*
DIC("W" ASTP+7*
DIC(0 ASTM+6*, ASTP+18*
DIR YESNO+1~, YESNO1+1~, YESNO2+1~, CONFIRM+1~, SELPOS+1~, DATE+3~, DATE+11!, WAITYN+4~
DIR("A" YESNO1+2*, YESNO2+3*, CONFIRM+2*, DATE+6*, WAITYN+6*
DIR("B" YESNO+2*, YESNO1+3*, YESNO2+2*, SELPOS+4*, DATE+10*, WAITYN+5*
DIR(0 YESNO+2*, YESNO1+2*, YESNO2+2*, CONFIRM+3*, SELPOS+3*, DATE+7*, WAITYN+5*
DIRUT DATE+12!
DT UNTP+4, ENRCL+9
DUOUT DATE+12!
DUZ ASTM+33, ASTP+36
OK UNTP+2~, UNTP+3*, UNTP+8*, UNTP+9, QTUNTP, UNTM+2~, UNTM+3*, UNTM+18*, QTUNTM, ALLPOS+3~
, ALLPOS+7*, ALLPOS+19*, ALLPOS+21, ALLPOS+23*, ALLPOS+25, ALLPOS+26*, ALLPOS+27, QTALL, ASTM+1~, ASTM+2*
, ASTM+38*, QTASTM, QTASTM+1, ASTP+1~, ASTP+2*, ASTP+39*, QTASTP, QTASTP+1, PRACSCR+1~, PRACSCR+3*
, PRACSCR+6*, QTPP, WAITYN+1~
OK2 UNTM+2~, UNTM+9, UNTM+11*, UNTM+12
OK3 UNTM+2~, UNTM+16*
SC WAITYN+3~, WAITYN+8
SC40452 PRACSCR~, PRACSCR+2
>> SCASSDT ENRCL+20, ENRCL+23, ASTM+21*, ASTM+22, ASTM+35, ASTP+25*, ASTP+26, ASTP+34, ASTP+38, DATE+8
SCBEGIN UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCCL UNTP+2~, ENRCL+3~, ENRCL+4*, ENRCL+5, ENRCL+6, ENRCL+23, DISCL+2~*, DISCL+3, DISCL+4, DISCL+8
, UNTM+14*, ASTP+1~, ASTP+40*, ASTP+41, CLINIC~, CLINIC+1, ACTCL~, ACTCL+3
SCCLNM ENRCL+2~, ENRCL+12*
SCCNT ALLPOS+3~, ALLPOS+8*, ALLPOS+10*, ALLPOS+20, ALLPOS+21
SCDATES UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
>> SCDISCH UNTP+5*, UNTP+6, UNTP+8, DISCL+6, UNTM+6*, UNTM+7, UNTM+11, UNTM+17, UNTM+18, ALLPOS+4
, ALLPOS+16, ALLPOS+26, DATE+8
SCDT1 ALLPOS+3~
SCDT1("BEGIN" ALLPOS+4*
SCDT1("END" ALLPOS+5*
SCDT1("INCL" ALLPOS+6*
SCDTS UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCEND UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCER UNTP+2~, UNTP+8, UNTM+2~, UNTM+11, UNTM+18, ALLPOS+26, ASTM+1~, ASTP+1~
SCERRR ALLPOS+3~, ALLPOS+7
>> SCFLAG ASTM+13, ASTM+14*, ASTM+20*
SCINCL UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCLIST UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCLOC ALLPOS+3~, ALLPOS+12*, ALLPOS+13
SCLSEQ UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCN UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCNODE ALLPOS+3~, ALLPOS+13*, ALLPOS+15, ALLPOS+16, PRACSCR+1~, PRACSCR+5*, PRACSCR+6, POSSCR+1~, POSSCR+2*, POSSCR+3
>> SCOKCONS ENRCL+16
SCP PRACSCR+1~, PRACSCR+2*, PRACSCR+4, PRACSCR+5, PRACSCR+6
SCPTTP2 ALLPOS+3~
SCPTTP2( ALLPOS+14*, ALLPOS+25
SCPTTPI ALLPOS+3~, ALLPOS+11*, ALLPOS+12
SCPTTPX ALLPOS+3~
SCPTTPX( ALLPOS+13
SCPTTPX("SCTP" ALLPOS+10, ALLPOS+11, ALLPOS+12
SCREST ENRCL+2~, ENRCL+9*, ENRCL+10, ENRCL+16
SCRESTA ENRCL+2~, ENRCL+8~
SCRESTA( ENRCL+15
>> SCSELECT ASTM+36*, ASTM+37, ASTP+6, ASTP+21
SCTM ENRCL+2~, ENRCL+11~, ENRCL+14*, ENRCL+15*, UNTM+4, UNTM+17, UNTM+18, ALLPOS+10, ALLPOS+11, ALLPOS+12
, ASTM+1~, ASTM+11*, ASTM+13, ASTM+23, ASTM+24, ASTM+30*, ASTM+35, TEAMNM~, TEAMNM+1, PRACSCR+6
, POSSCR+3, WAITYN+8
>> SCTMCT ASTM+23*, ASTM+25, ASTM+27, ASTM+29, ASTP+27*, ASTP+28, ASTP+30, WAITYN+2
SCTMFLDS ASTM+1~
SCTMFLDS( ASTM+32*, ASTM+33*, ASTM+34*
>> SCTMMAX ASTM+24*, ASTM+25, ASTM+28, ASTM+29, ASTP+27*, ASTP+28, ASTP+31, WAITYN+2
SCTP UNTP+1, UNTP+4, UNTP+8, ENRCL+4, ENRCL+6, DISCL+2, UNTM+5, UNTM+11, UNTM+14, ALLPOS+3~
, ALLPOS+8*, ALLPOS+10*, ALLPOS+11, ALLPOS+12, ALLPOS+14, ALLPOS+24*, ALLPOS+25*, ALLPOS+26, ASTP+22*, ASTP+24*
, ASTP+27, ASTP+38, ASTP+40, POSITION~, POSITION+1, POSSCR~, POSSCR+2, POSSCR+3, WAITYN+3, WAITYN+8
SCTPFLDS ASTP+1~
SCTPFLDS( ASTP+34*, ASTP+35*, ASTP+36*, ASTP+37*
>> SCTPSTAT UNTM+5, UNTM+9
SCXX ACTCL+2~, ACTCL+3*, ACTCL+4
SDCLN DISCL+8~*
SDDODCF WARNMESS+6~, WARNMESS+11*, WARNMESS+14
SDDODPAT WARNMESS+6~, WARNMESS+10*, WARNMESS+11, WARNMESS+12, WARNMESS+13
SDFLG DATE+3~, DATE+5, DATE+12*, DATE+13, WARNMESS~, WARNMESS+7*, WARNMESS+8*, WARNMESS+12*
SDFN DISCL+8~*
>> SDWLPCMM QTASTM+1*, QTASTP+1*
SDY DATE+3~, DATE+11*, DATE+13, DATE+14, WARNMESS~, WARNMESS+12, WARNMESS+13
TYPE DATE~, DATE+6, DATE+8
U UNTP+4, UNTM+14, ALLPOS+15, ALLPOS+16, ASTM+13, ASTP+22, ASTP+24, ASTP+27, NAME+1, POSITION+1
, TEAMNM+1, CLINIC+1, ACTCL+4, PRACSCR+6, POSSCR+3, SC+1, WARNMESS+8, WARNMESS+9, WARNMESS+10
>> VAEL(3 SC+1
X ASTP+1~, YESNO+1~, YESNO1+1~, YESNO2+1~, CONFIRM+1~, SELPOS+1~, DATE+3~, DATE+12!, WAITYN+4~
Y ENRCL+12, ENRCL+20*, DISCL+6*, ASTM+1~, ASTM+10, ASTM+11, ASTM+30, ASTP+1~, ASTP+20, ASTP+22
, ASTP+24, YESNO+1~, YESNO+4, YESNO1+1~, YESNO1+5, YESNO2+1~, YESNO2+5, CONFIRM+1~, CONFIRM+5, SELPOS+1~
, SELPOS+6, DATE+3~, DATE+8*, DATE+10, DATE+11, DATE+12!, WAITYN+1~, WAITYN+4~, WAITYN+8*, WAITYN+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All