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

Package: Scheduling

Routine: SCMCQK2


Information

SCMCQK2 ;ALB/REW - Single Pt Tm/Pt Tm Pos Assign and Discharge ; 07 Oct 2002 12:10 PM

Source Information

Source file <SCMCQK2.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Scheduling 13 ($$ACPTTM,$$TPPT)^SCAPMC  $$ACPTTP^SCAPMC21  $$INPTSCTP^SCAPMC22  $$TMPT^SCAPMC3  $$INPTSCTM^SCAPMC7  ($$PCPOSCNT,$$TEAMCNT)^SCAPMCU1  $$GETPRTP^SCAPMCU2  $$GETEAM^SCAPMCU3  
$$WRITETP^SCMCDD1  $$NEWPERSN^SCMCGU  ($$ALLPOS,$$SC)^SCMCQK1  $$OKINPTTM^SCMCTMU2  $$ACTTP^SCMCTPU  
VA Fileman 4 NOW^%DTC  ^DIC  MIX^DIC1  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SCMCQK  

Entry Points

Name Comments DBIA/ICR reference
POSITION(SCTP) ;return position name
READ
CONFIRM() ;confirmation call
DSPL ;
NEW() ;
ASTM ;assign patient to team
PRACSCR(SC40452) ;screen for for file 404.52
UNTM ;
ASTP ;assign patient to practitioner
YESNO2() ;
DATE(TYPE) ;return date type=A or D
CLINIC(SCCL) ;return clinic name
UNTP ;unassign patient from position
QTUNTP
NAME(DFN) ;return patient name
QTUNTM
TEAMNM(SCTM) ;return team name
QTASTM
POSSCR(SCTP) ;screen for file 404.57
NPC
SELPOS() ;return way to select position: 1=PRACT,2=POSIT,3=NONE
YESNO() ;
QTPP
QTASTP

External References

Name Field # of Occurrence
NOW^%DTC ASTM+25, ASTP+37
^DIC ASTM+9
MIX^DIC1 ASTP+19
^DIR NPC+4, YESNO+3, YESNO2+4, CONFIRM+4, SELPOS+5, DATE+7
$$ACPTTM^SCAPMC ASTM+26
$$TPPT^SCAPMC DSPL+3
$$ACPTTP^SCAPMC21 ASTP+38
$$INPTSCTP^SCAPMC22 UNTP+8, UNTM+11
$$TMPT^SCAPMC3 DSPL+2
$$INPTSCTM^SCAPMC7 UNTM+17
$$PCPOSCNT^SCAPMCU1 ASTP+27
$$TEAMCNT^SCAPMCU1 ASTM+14
$$GETPRTP^SCAPMCU2 DSPL+19, UNTP+4
$$GETEAM^SCAPMCU3 ASTM+15
$$WRITETP^SCMCDD1 UNTM+5
$$NEWPERSN^SCMCGU DSPL+19
$$ALLPOS^SCMCQK1 UNTM+15
$$SC^SCMCQK1 ASTM+4, ASTP+4
$$OKINPTTM^SCMCTMU2 UNTM+16
$$ACTTP^SCMCTPU PRACSCR+6, POSSCR+3

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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIC
  • Line Location:
    • ASTM+9
Routine Call
  • DIR
  • Line Location:
    • NPC+4
    • YESNO+3
    • YESNO2+4
    • CONFIRM+4
    • SELPOS+5
    • DATE+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" DATE+5
^DPT - [#2] NAME+1
^SC - [#44] CLINIC+1
^SCTM(404.51 - [#404.51] DSPL+14, DSPL+20, TEAMNM+1
^SCTM(404.52 - [#404.52] PRACSCR+2, PRACSCR+6
^SCTM(404.57 - [#404.57] UNTP+10, UNTM+14, ASTP+27, ASTP+40, POSITION+1, PRACSCR+5, POSSCR+2

Label References

Name Line Occurrences
$$CONFIRM UNTP+7, UNTM+8, ASTM+20, ASTP+32
$$DATE UNTP+5, UNTM+6, ASTM+12, ASTP+25
$$NAME UNTP+4, UNTM+4, ASTM+3, ASTP+3
$$POSITION UNTP+4, UNTM+5
$$SELPOS READ+2, ASTM+27
$$TEAMNM UNTM+4
$$YESNO2 ASTM+16, ASTP+28
ASTM NPC+7
ASTP READ+2, ASTM+28
DSPL NPC+1
NPC NPC+7, READ+1, READ+2
QTASTM ASTM+10, ASTM+13, ASTM+16, ASTM+20
QTASTP ASTP+20, ASTP+26, ASTP+28, ASTP+32
QTPP PRACSCR+4
QTUNTM UNTM+7, UNTM+8, UNTM+9
QTUNTP UNTP+6, UNTP+7, UNTP+9
READ READ
UNTM READ+1
UNTP READ+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASTM+25, ASTP+37
>> A DSPL+12*, DSPL+14, DSPL+15, DSPL+17, DSPL+18, DSPL+20
>> B DSPL+17*, DSPL+18, DSPL+19, DSPL+21
>> CNT DSPL+11*, DSPL+13, DSPL+14*, DSPL+16*, DSPL+18, DSPL+20, DSPL+23, NPC+2, READ
>> D ASTP+12*, ASTP+15*
>> DATA READ+1*, READ+2*
>> DATA( DSPL+14*, DSPL+16, DSPL+18*, READ+1, READ+2
DFN DSPL+2, DSPL+3, UNTP+4, UNTP+8, UNTM+4, UNTM+11, UNTM+16, UNTM+17, ASTM+3, ASTM+4
, ASTM+26, ASTP+3, ASTP+4, ASTP+38, NAME~, NAME+1
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~, YESNO2+1~, CONFIRM+1~, SELPOS+1~, DATE+1~
DIR("A" YESNO2+3*, CONFIRM+2*, DATE+2*
DIR("B" NPC+3*, YESNO+2*, YESNO2+2*, SELPOS+4*, DATE+6*
DIR(0 NPC+2*, YESNO+2*, YESNO2+2*, CONFIRM+3*, SELPOS+3*, DATE+3*
DT DSPL+19, UNTP+4
DTIME READ
DUZ ASTM+24, ASTP+36
>> I DSPL+15*, DSPL+17, NEW+1*, NEW+2
LP DSPL+1~, DSPL+8*, DSPL+9, DSPL+10, DSPL+12*
OK UNTP+2~, UNTP+3*, UNTP+8*, UNTP+9, QTUNTP, UNTM+2~, UNTM+3*, UNTM+17*, QTUNTM, ASTM+1~
, ASTM+2*, ASTM+29*, QTASTM, ASTP+1~, ASTP+2*, ASTP+39*, QTASTP, PRACSCR+1~, PRACSCR+3*, PRACSCR+6*
, QTPP
OK2 UNTM+2~, UNTM+9, UNTM+11*, UNTM+12
OK3 UNTM+2~, UNTM+15*
>> POS DSPL+11*, DSPL+18*
>> RES DSPL+19*
SC40452 PRACSCR~, PRACSCR+2
>> SCASSDT ASTM+12*, ASTM+13, ASTM+26, ASTP+25*, ASTP+26, ASTP+34, ASTP+38, DATE+4
SCBEGIN UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCCL UNTP+2~, UNTP+10*, UNTM+14*, ASTP+1~, ASTP+40*, CLINIC~, CLINIC+1
SCD DSPL+1~, NPC~
SCD( DSPL+12, NEW+1
SCDATES UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
>> SCDISCH UNTP+5*, UNTP+6, UNTP+8, UNTM+6*, UNTM+7, UNTM+11, UNTM+16, UNTM+17, DATE+4
SCDT NPC~
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+17, ASTM+1~, ASTP+1~
SCER1 NPC~
SCINCL UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCLIST UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCLSEQ UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCN UNTP+2~, UNTM+2~, ASTM+1~, ASTP+1~
SCNODE PRACSCR+1~, PRACSCR+5*, PRACSCR+6, POSSCR+1~, POSSCR+2*, POSSCR+3
>> SCOK DSPL+3*
SCP PRACSCR+1~, PRACSCR+2*, PRACSCR+4, PRACSCR+5, PRACSCR+6
SCPOS DSPL+1~, NPC~
SCPOS( DSPL+8, DSPL+9!, DSPL+10
SCPOS("T" DSPL+10*, DSPL+15, DSPL+17
>> SCPR DSPL+19*, DSPL+21, DSPL+22
>> SCPR( DSPL+22
>> SCSELECT READ+2*, ASTM+27*, ASTM+28, ASTP+6, ASTP+21
SCTM READ+1*, READ+2*, UNTM+4, UNTM+16, UNTM+17, ASTM+1~, ASTM+11*, ASTM+14, ASTM+15, ASTM+21*
, ASTM+26, TEAMNM~, TEAMNM+1, PRACSCR+6, POSSCR+3
>> SCTMCT ASTM+14*, ASTM+16, ASTM+18, ASTM+20, ASTP+27*, ASTP+28, ASTP+30
SCTMFLDS ASTM+1~
SCTMFLDS( ASTM+24*, ASTM+25*
>> SCTMMAX ASTM+15*, ASTM+16, ASTM+19, ASTM+20, ASTP+27*, ASTP+28, ASTP+31
>> SCTOK DSPL+2*
SCTP READ+1*, UNTP+1, UNTP+4, UNTP+8, UNTP+10, UNTM+5, UNTM+11, UNTM+14, ASTP+22*, ASTP+24*
, ASTP+27, ASTP+38, ASTP+40, POSITION~, POSITION+1, POSSCR~, POSSCR+2, POSSCR+3
SCTPFLDS ASTP+1~
SCTPFLDS( ASTP+34*, ASTP+36*, ASTP+37*
>> SCTPSTAT READ+1*, UNTM+5, UNTM+9
TYPE DATE~, DATE+2, DATE+4
U DSPL+9, DSPL+10, DSPL+12, DSPL+14, DSPL+16, DSPL+18, DSPL+20, DSPL+21, DSPL+22, NPC+6
, READ, READ+1, UNTP+4, UNTP+10, UNTM+14, ASTP+22, ASTP+24, ASTP+27, ASTP+40, NAME+1
, POSITION+1, TEAMNM+1, CLINIC+1, PRACSCR+6, POSSCR+3
X READ*, READ+1, READ+2, ASTP+1~, YESNO+1~, YESNO2+1~, CONFIRM+1~, SELPOS+1~, DATE+1~
Y NPC+5, NPC+6, NPC+7, READ+1, ASTM+1~, ASTM+10, ASTM+11, ASTM+21, ASTP+1~, ASTP+20
, ASTP+22, ASTP+24, YESNO+1~, YESNO+4, YESNO2+1~, YESNO2+5, CONFIRM+1~, CONFIRM+5, SELPOS+1~, SELPOS+6
, DATE+1~, DATE+4*, DATE+6, DATE+8, NEW+1
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