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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDYCENR

Package: Scheduling

Routine: SDYCENR


Information

SDYCENR ;ALB/CAW - CLINIC ENROLLMENT ; 7/18/94

Source Information

Source file <SDYCENR.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Scheduling 1 ^SDYCENR1  

Entry Points

Name Comments DBIA/ICR reference
EN
QUE() ; -- que job
; return: did job que [ 1|yes 0|no ]
WRT ;
ENQ
INIT ; Init variables
LOOP1 ; Find inactive enrollments with no date of discharge
LOOP ; Loop through the enrollment info

External References

Name Field # of Occurrence
^%ZIS EN+2
^%ZISC ENQ+1
^%ZTLOAD QUE+6
^SDYCENR1 LOOP+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The following will provide a listing which will include patients that "
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: !,"have an inactive enrollment with no date of discharge. Because the "
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: !,"date of discharge cannot be automatically determined, the dates of "
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,"discharge will have to be entered manually via the 'Edit Clinic "
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !,"Enrollment Data' option.",!
  • Line Location: WRT+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] LOOP+4, LOOP+5, LOOP+6, LOOP1+1
^DPT("AEB1" LOOP+2!, LOOP+7*
^SC - [#44] LOOP1+2
^TMP("EN2" LOOP+3!, LOOP1+2*

Label References

Name Line Occurrences
$$QUE EN+4
ENQ EN+2, EN+3
INIT EN+1
LOOP EN+3
LOOP1 LOOP+8
WRT EN+1

Naked Globals

Name Field # of Occurrence
^( LOOP+5, LOOP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN+2*
IO("Q" EN+3, QUE+3!
>> POP EN+2
SDASH EN~, ENQ!, INIT+1*
SDCLIN LOOP+1~, LOOP+5*, LOOP+7, LOOP1+1, LOOP1+2
SDCLN LOOP+1~, LOOP+5*, LOOP+6, LOOP+7
SDENR LOOP+1~, LOOP+6*, LOOP+7
SDENROL LOOP+1~, LOOP+6*, LOOP+7, LOOP1+1
SDFLAG EN~
SDPAGE EN~, ENQ!, INIT+1*
SDPAT LOOP+1~, LOOP+3*, LOOP+4*, LOOP+5, LOOP+6, LOOP+7, LOOP1+1
>> SDPT LOOP1+1*, LOOP1+2
SDQUIT EN~, ENQ!, INIT+1*
U LOOP1+1, LOOP1+2
>> Y EN+4*
>> ZTDESC QUE+4*
>> ZTQUEUED ENQ+1
>> ZTRTN QUE+4*
>> ZTSAVE("SDASH" QUE+5*
>> ZTSAVE("SDPAGE" QUE+5*
>> ZTSAVE("SDQUIT" QUE+5*
ZTSK QUE+3!, QUE+6, QUE+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All