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

Package: Incomplete Records Tracking

Routine: DGJTEE2


Information

DGJTEE2 ;ALB/MAF - ENTER/EDIT LIST PROCESSOR SET UP VARIABLES ;SEP 5 1992@100

Source Information

Source file <DGJTEE2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Incomplete Records Tracking 3 REP^DGJTEE  INIT^DGJTEE2  (DATA,DT1)^DGJTEE3  
List Manager 3 EN^VALM  FULL^VALM1  SEL^VALM2  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 ^DIE  

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

Package Total Caller Graph
Incomplete Records Tracking 6 DGJ IRT COMPLETE DEF  DGJTDEL  DGJTEE  DGJTEE1  DGJTEE2  DGJTEE3  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN
NEW
Q
EDIT
INCSP ;To increase speed of list.
; -- format vars |- column -| |- width -|
LIST
DT1
DT
CHOZ
SETG ;SET UP TEMP GLOBAL
INIT
INIT1
INIT3
INIT4 ;
QUICMP ;QUICK COMPLETE OF DEFICIENCIES ON THE SCREEN
SET
ENQ
QUIT

External References

Name Field # of Occurrence
REP^DGJTEE QUICMP+3, ENQ
INIT^DGJTEE2 EDIT+1
DATA^DGJTEE3 NEW
DT1^DGJTEE3 DT1
^DIE SET+1
EN^VALM INIT, INIT+1, INIT1, INIT3, INIT4+1, INIT4+2
FULL^VALM1 QUICMP+4
SEL^VALM2 QUICMP+3
$$FMTE^XLFDT DT1+1, DT1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !!,"Choose admission 1"
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: $S(DGJTCT=1:" ",1:"-"_DGJTCT_" ")_" or '^' to QUIT: "
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+9
Function Call: WRITE
  • Prompt: ?49,"Discharged: ",?61,$S(Z:$$FMTE^XLFDT($E(Z,1,12),5),1:"N/A")
  • Line Location: DT1+2
Function Call: WRITE
  • Prompt: !,?10,DGJTCT_". "_Y
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !!,"Type '^' to QUIT, or <RETURN> to display more ",!
  • Line Location: CHOZ+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CHOZ+1
Routine Call
  • DIE
  • Line Location:
    • SET+1
Routine Call
  • VALM
  • Line Location:
    • INIT
    • INIT+1
    • INIT1
    • INIT3
    • INIT4+1
    • INIT4+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VAS(393 - [#393] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DT
^DG(393.2 - [#393.2] INCSP+8, INCSP+9, INCSP+10, SET+1
^DGPM - [#405] LIST+1, DT1+2
^TMP("DGJIDX" QUICMP+5
^TMP("DGJRPIDX" SETG+5*
^TMP("DGJRPT" SETG+4*
^UTILITY("DGJTADM" LIST+1, QUIT+1!
^VAS(393 - [#393] EDIT+1, SET
^VAS(393.3 - [#393.3] EDIT+1, SET

Label References

Name Line Occurrences
CHOZ DT1+3, DT
DT1 LIST+1
EDIT EN
ENQ QUICMP+6
INIT4 EDIT+2
LIST LIST+4, LIST+8
SET QUICMP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CC INCSP+6*
>> CM INCSP+8*
>> CW INCSP+6*
DA QUICMP+5*, SET+1!, QUIT!
>> DC INCSP+3*
DFN QUIT!
DGA1 QUIT!
DGJAT QUICMP+1~
DGJC LIST*, LIST+1, CHOZ+1*, QUIT!
DGJCNT SETG+1~, SETG+2*, SETG+3*, SETG+4, SETG+5
>> DGJDFNO QUICMP+5*
DGJFFL QUIT!
DGJT QUIT!
DGJT1PH QUIT+1!
DGJT2PH QUIT+1!
DGJTADN LIST+1*, DT1+2, QUIT!
DGJTADTP DT1+1, QUIT!
>> DGJTAIFN LIST+10*
DGJTAT QUIT!
DGJTCFLG QUIT+1!
DGJTCH LIST+1, LIST+3!, CHOZ+1*, QUIT+1!
DGJTCH1 LIST+1, LIST+2!, LIST+3!, CHOZ+1*, QUIT+1!
DGJTCNT QUIT!
DGJTCT LIST*, LIST+1*, LIST+4, LIST+6, DT1+1, DT1+3, DT, CHOZ+1, QUIT!
DGJTDBY QUIT!
DGJTDD QUIT!
DGJTDDT QUIT+1!
DGJTDEL QUIT+1!
>> DGJTDLT INIT, INIT4+1
DGJTDT QUIT!
DGJTEDT EN, EDIT+1, QUICMP+5*, SET, QUIT!
DGJTF QUIT+1!
DGJTFG LIST+2*, LIST+4*, QUIT+1!
DGJTFL QUIT+1!
DGJTOA QUIT!
DGJTOA( LIST+1*, LIST+8, LIST+10, CHOZ+1
DGJTOUT QUIT!
DGJTPR QUIT!
DGJTRC CHOZ+1, QUIT!
DGJTRC( CHOZ+1
>> DGJTREC INCSP+2, INCSP+3
DGJTSBY QUIT!
DGJTSDT QUIT!, QUIT+1!
DGJTSP QUIT!
DGJTST QUIT!
DGJTSV QUIT!
DGJTTBY QUIT!, QUIT+1!
DGJTTD QUIT+1!
DGJTWD QUIT+1!
DGJTWD1 QUIT!
DGJTX LIST*, LIST+9*, CHOZ+1*, QUIT+1!
DGJTYP QUIT+1!
DGJVALM QUICMP+1~, QUICMP+3*, QUICMP+5*
DGPM2X QUIT+1!
DGPMCA QUIT+1!
DGPMDCD QUIT+1!
DGPMT QUIT+1!
DGPMVI QUIT+1!
DGPMY QUIT+1!
DGT QUIT+1!
DIC QUIT!
DIC("A" QUIT+2!
DIC("S" QUIT+2!
DIE QUICMP+5*, QUIT!
DIR QUIT!
DIV QUIT+1!
DR SET+1*!, QUIT!
DTIME LIST+7, CHOZ+1
DTOUT QUIT!
>> DW INCSP+3*
>> EC INCSP+7*
>> EW INCSP+7*
I LIST+1*, SETG+5, QUIT!
IFN LIST+1*, QUIT!
OK QUIT+1!
>> PC INCSP+4*
POP QUIT+1!
PTF QUIT!
>> PW INCSP+4*
>> RV INCSP+9*
>> SC INCSP+5*
>> SN INCSP+10*
>> SW INCSP+5*
>> TC INCSP+2*
>> TW INCSP+2*
U INCSP+2, INCSP+3, INCSP+4, INCSP+5, INCSP+6, INCSP+7
VAERR QUIT+1!
VAINDT QUIT+1!
VAIP QUIT!
>> VALMBCK EDIT*, EDIT+1*, EDIT+3*, QUICMP+2*, QUICMP+4*
VALMCNT SETG+1~, SETG+2*, SETG+3*, SETG+4, SETG+5
>> VALMDDF("CATEGORY" INCSP+6
>> VALMDDF("DEFICIENCY" INCSP+3
>> VALMDDF("EVEN T DATE" , INCSP+7
>> VALMDDF("PHYSICIAN" INCSP+4
>> VALMDDF("RECO RD TYPE" , INCSP+2
>> VALMDDF("STATUS" INCSP+5
VALMY QUICMP+1~
VALMY( QUICMP+5
VALMY(0 QUICMP+3
X INCSP+2*, INCSP+3*, INCSP+4*, INCSP+5*, INCSP+6*, INCSP+7*, LIST+4, LIST+7*, LIST+8, LIST+9
, LIST+10, CHOZ+1*, SETG+3*, SETG+4, QUIT+1!
Y LIST+1*, DT1+1, DT, QUIT+1!
Z DT1+2*, QUIT!
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