Routine: SCMCCV

Information

SCMCCV ;ALB/REW - PCMM Conversion of Patient File Fields ; 1 Feb 1996

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Scheduling	7	($$ACPTTM,$$ACPTTP,$$TPPR)^SCAPMC INIT^SCAPMCU1 ($$NMPCTM,$$NMPCTP)^SCAPMCU2 ($$DDNAME,$$FIRST,OUT)^SCMCRU MAILLST^SCMCTMM $$ACTTM^SCMCTMU MAILLST^SCMCTPM
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	NOW^%DTC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PCUPDTM(DFN)	;
OKREPORT()	;
DISP200(SC200)	;
REP	;non-interactive portion
QUE(NAME,START)	; ; Needed: ZTSAVE array ; NAME = description ; START = starting point of routine
QTGDV
DISPPT(DFN)	;
DISPTM(SCTM)	;
QRP
OKINIT()	;
OKBUILD()	;
QTOKTM
GETDEV()	;
EN	; ; Variables: ; SCASSIGN: 1=Make Patient Assignments if unambiguous (0=No,default) ; SCDT: Date to make assignments (Default=DT) ; SCYESTM: 1=Make Pt Tm as well as Pt Posit Assmnts,default(0=No) ; SCNOPRPT 1=Don't print patient-detail lines
QTEN
MESS(TEXT,FORMAT)	;
QTASK
OKCLEAN()	;
OKASK()	;
OKTEAM(SCTM,SCDT)	;return 1 if exactly 1 posit for each team assignment
PCUPD(DFN)	;
DISPTP(SCTP)	;

External References

Name	Field # of Occurrence
NOW^%DTC	OKINIT+10
^%ZIS	GETDEV+3
HOME^%ZIS	QUE+6
^%ZISC	EN+13
^%ZTLOAD	QUE+5
^DIR	OKASK+10, OKASK+21
$$ACPTTM^SCAPMC	PCUPDTM+4
$$ACPTTP^SCAPMC	PCUPD+4
$$TPPR^SCAPMC	OKTEAM+41
INIT^SCAPMCU1	OKINIT+9
$$NMPCTM^SCAPMCU2	OKTEAM+24
$$NMPCTP^SCAPMCU2	OKTEAM+54
$$DDNAME^SCMCRU	OKTEAM+8
$$FIRST^SCMCRU	REP+1
OUT^SCMCRU	MESS+3
MAILLST^SCMCTMM	OKTEAM+29, OKTEAM+60
$$ACTTM^SCMCTMU	OKTEAM+11
MAILLST^SCMCTPM	OKTEAM+59

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	OKBUILD+5, DISPPT+1
^SCTM(404.51 - [#404.51]	OKREPORT+7, OKTEAM+5, DISPTM+1
^SCTM(404.57 - [#404.57]	DISPTP+1
^SCTM(404.58 - [#404.58]	OKTEAM+14
^TMP("SCMC"	OKBUILD+6, OKREPORT+6, OKTEAM+19, OKTEAM+22, OKTEAM+30!, OKTEAM+32, OKTEAM+38, OKTEAM+48, OKTEAM+52, OKTEAM+61! , OKTEAM+62!, OKTEAM+69, OKTEAM+70, PCUPD+9, PCUPD+12, PCUPD+15, PCUPD+18, PCUPDTM+9, PCUPDTM+12
^VA(200 - [#200]	OKTEAM+35, DISP200+1

Label References

Name	Line Occurrences
$$DISP200	OKTEAM+34
$$DISPPT	OKTEAM+23, OKTEAM+39, OKTEAM+53
$$DISPTM	OKREPORT+8
$$DISPTP	OKTEAM+42
$$GETDEV	OKASK+27
$$OKASK	EN+9
$$OKBUILD	REP+4
$$OKCLEAN	REP+8
$$OKINIT	REP+2
$$OKREPORT	REP+6
$$OKTEAM	OKREPORT+9
$$QUE	EN+16
MESS	EN+9, REP+3, REP+5, REP+7, REP+9, OKINIT+3, OKINIT+6, OKBUILD+3, OKBUILD+5, OKREPORT+3 , OKREPORT+4, OKREPORT+8, OKTEAM+9, OKTEAM+15, OKTEAM+16, OKTEAM+18, OKTEAM+20, OKTEAM+21, OKTEAM+23, OKTEAM+25 , OKTEAM+26, OKTEAM+34, OKTEAM+37, OKTEAM+39, OKTEAM+42, OKTEAM+46, OKTEAM+47, OKTEAM+51, OKTEAM+53, OKTEAM+55 , OKTEAM+56, OKTEAM+66, OKTEAM+67, OKTEAM+68, PCUPD+6, PCUPD+8, PCUPD+11, PCUPD+14, PCUPD+17, PCUPD+19 , PCUPDTM+6, PCUPDTM+8, PCUPDTM+11, OKCLEAN+1
PCUPD	OKTEAM+58
PCUPDTM	OKTEAM+28
QRP	REP+4, REP+6, REP+8
QTASK	OKASK+11, OKASK+22
QTEN	EN+9, REP+2
QTGDV	GETDEV+3
QTOKTM	OKTEAM+10, OKTEAM+12, OKTEAM+17
REP	EN+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	OKINIT+11
>> %ZIS	GETDEV+3*
DFN	EN+7~, OKBUILD+4, OKBUILD+5, OKBUILD+6, OKTEAM+22, OKTEAM+23, OKTEAM+24, OKTEAM+28, OKTEAM+33~, OKTEAM+38 , OKTEAM+39, OKTEAM+52*, OKTEAM+53, OKTEAM+54, OKTEAM+58, PCUPD~, PCUPD+4, PCUPD+9, PCUPD+12, PCUPD+15 , PCUPD+18, PCUPDTM~, PCUPDTM+4, PCUPDTM+9, PCUPDTM+12, DISPPT~, DISPPT+1
DIR	OKASK+1~
DIR("A"	OKASK+5, OKASK+6, OKASK+7, OKASK+8, OKASK+9, OKASK+16, OKASK+17, OKASK+18, OKASK+19, OKASK+20
DIR("B"	OKASK+4, OKASK+15
DIR(0	OKASK+3, OKASK+14
>> DIROUT	OKASK+11, OKASK+22
DT	OKASK+25, OKINIT+4
>> DTOUT	OKASK+11, OKASK+22
>> DUOUT	OKASK+11, OKASK+22
DUZ	OKINIT+4, OKINIT+13, OKINIT+16
FORMAT	MESS~, MESS+2*, MESS+3
IO	EN+11
IO("Q"	EN+10, QUE+6!
NAME	QUE~, QUE+4
>> POP	GETDEV+3
SC200	OKTEAM+3~, OKTEAM+31, OKTEAM+32, OKTEAM+34, OKTEAM+35, OKTEAM+38, OKTEAM+41, OKTEAM+48, OKTEAM+52, OKTEAM+69 , OKTEAM+70, DISP200~, DISP200+1
SCASSIGN	EN+7~, EN+16, OKASK+12, OKASK+24, OKTEAM+28, OKTEAM+29, OKTEAM+58, OKTEAM+59, OKTEAM+60
SCBEGIN	EN+8~
SCCNT	OKTEAM+33~, OKTEAM+42*, OKTEAM+44, OKTEAM+46, OKTEAM+50, OKTEAM+64, OKTEAM+66, OKTEAM+70
SCDT	OKASK+25*, OKREPORT+9, OKTEAM~, OKTEAM+11, OKTEAM+16, OKTEAM+24, OKTEAM+29, OKTEAM+54, OKTEAM+59, OKTEAM+60 , PCUPD+4, PCUPDTM+4
SCDTS	EN+8~
SCEND	EN+8~
>> SCERR	OKTEAM+41, PCUPD+4, PCUPDTM+4
SCESEQ	EN+8~
SCF	OKTEAM+3~, OKTEAM+8*, OKTEAM+9
SCFLD	OKTEAM+3~, OKTEAM+6*, OKTEAM+8, OKTEAM+9
SCHISTAR	EN+7~
SCHISTAR(	OKINIT+12, OKINIT+13, OKINIT+14*
SCINCL	EN+8~
SCLIST	EN+7~, OKINIT+8*
SCLSEQ	EN+8~
SCN	EN+8~
SCNOMAIL	PCUPD+1~, PCUPD+2, PCUPDTM+1~, PCUPDTM+2
SCNOPRPT	EN+7~, OKASK+23*, OKTEAM+21, OKTEAM+25, OKTEAM+26, OKTEAM+37, OKTEAM+51, OKTEAM+55, OKTEAM+56, DISPPT+1
SCNOW	EN+7~, OKINIT+11*, OKINIT+14, OKINIT+17
SCOK	EN+7~, OKASK+1~, OKASK+11, OKASK+22, OKASK+27, QTASK, OKINIT+1~, OKINIT+2, OKINIT+7, OKINIT+9 , OKINIT+18, OKBUILD+1~, OKBUILD+2, OKBUILD+7, OKREPORT+1~, OKREPORT+2, OKREPORT+10, OKREPORT+12, OKTEAM+3~, OKTEAM+4* , OKTEAM+7, OKTEAM+10, OKTEAM+11, OKTEAM+12, OKTEAM+17, OKTEAM+36, OKTEAM+41, OKTEAM+45, OKTEAM+65, QTOKTM , OKCLEAN+2~, OKCLEAN+3, OKCLEAN+5, GETDEV+1~, GETDEV+2, GETDEV+4*, QTGDV
SCP	EN+8~
SCPAGE	EN+7~
SCPARM	EN+8~
SCPCNODE	EN+7~, OKBUILD+5*, OKBUILD+6
SCPR	OKREPORT+1~
SCSTOP	EN+7~, OKREPORT+6, MESS+1
SCSUB	EN+7~, OKTEAM+30, OKTEAM+61
SCTEAMAR	EN+7~
SCTEAMAR(	OKINIT+15, OKINIT+16, OKINIT+17*
SCTM	EN+7~, OKREPORT+1~, OKREPORT+5, OKREPORT+6, OKREPORT+7, OKREPORT+8, OKREPORT+9, OKTEAM~, OKTEAM+5, OKTEAM+11 , OKTEAM+14, OKTEAM+19, OKTEAM+22, OKTEAM+25, OKTEAM+26, OKTEAM+29, OKTEAM+30, OKTEAM+32, OKTEAM+38, OKTEAM+42 , OKTEAM+48, OKTEAM+52, OKTEAM+60, OKTEAM+62, OKTEAM+69, OKTEAM+70, PCUPD+12, PCUPDTM+4, PCUPDTM+9, PCUPDTM+12 , DISPTM~, DISPTM+1
SCTMND	OKTEAM+3~, OKTEAM+5*, OKTEAM+6
SCTMNODE	OKREPORT+1~, OKREPORT+7*
SCTMPLST	EN+7~, OKTEAM+33~
SCTMPLST(	OKTEAM+42, OKTEAM+69
SCTP	OKTEAM+33~, OKTEAM+42, OKTEAM+55, OKTEAM+56, OKTEAM+59, OKTEAM+61, OKTEAM+69, OKTEAM+70, PCUPD+4, PCUPD+9 , PCUPD+15, PCUPD+18, DISPTP~, DISPTP+1
SCX	OKTEAM+13~, OKTEAM+14, OKTEAM+15, OKTEAM+16, OKTEAM+24, OKTEAM+25, OKTEAM+26, OKTEAM+27, OKTEAM+33~, OKTEAM+54* , OKTEAM+55, OKTEAM+56, OKTEAM+57, PCUPD+1~, PCUPD+4, PCUPD+5, PCUPD+6, PCUPD+7, PCUPD+10, PCUPD+11 , PCUPD+19, PCUPDTM+1~, PCUPDTM+4, PCUPDTM+5, PCUPDTM+6, PCUPDTM+7
>> SCXTP	OKTEAM+42*
SCYESTM	EN+7~, OKASK+26*, PCUPD+4
START	QUE~, QUE+4
TEXT	MESS~, MESS+1, MESS+3
U	OKINIT+4, OKBUILD+6, OKTEAM+6, OKTEAM+26, OKTEAM+56, PCUPD+7, PCUPD+10, PCUPD+11, PCUPD+19, PCUPDTM+7 , DISP200+1, DISPTP+1, DISPTM+1, DISPPT+1
>> X	EN+15*
>> XPDABORT	OKINIT+5*
Y	EN+7~, EN+16*, OKASK+12, OKASK+23
>> ZTDESC	QUE+4*
>> ZTRTN	QUE+4*
>> ZTSAVE(	EN+15*
>> ZTSK	QUE+5, QUE+7

Customize PDF page

Package: Scheduling

Routine: SCMCCV

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: