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 |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SCMCCV

Package: Scheduling

Routine: SCMCCV


Information

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

Source Information

Source file <SCMCCV.m>

Call Graph

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
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
OKASK() ;
QTASK
REP ;non-interactive portion
QRP
OKINIT() ;
OKBUILD() ;
OKREPORT() ;
OKTEAM(SCTM,SCDT) ;return 1 if exactly 1 posit for each team assignment
QTOKTM
PCUPD(DFN) ;
PCUPDTM(DFN) ;
OKCLEAN() ;
DISP200(SC200) ;
DISPTP(SCTP) ;
DISPTM(SCTM) ;
DISPPT(DFN) ;
MESS(TEXT,FORMAT) ;
GETDEV() ;
QTGDV
QUE(NAME,START) ;
; Needed: ZTSAVE array
; NAME = description
; START = starting point of routine

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All