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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DENTPEX

Package: Dental

Routine: DENTPEX


Information

DENTPEX ;ISC2/HCD-Inpatients needing Dental Exam Report ;10/23/90 14:35 ;

Source Information

Source file <DENTPEX.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZTLOAD  
VA FileMan 2 NOW^%DTC  ^DIC  
Registration 1 (DEM,INP)^VADPT  

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

Package Total Caller Graph
Dental 1 DENTEXM RPT  

Entry Points

Name Comments DBIA/ICR reference
D
QUE
RET
WRD
SET
WRD1
PR
PR2
PR1
HOLD1
HOLD
W
EXIT2
CLOSE
EXIT1

External References

Name Field # of Occurrence
NOW^%DTC RET
^%ZIS D
^%ZTLOAD D+1
^DIC DENTPEX+3
DEM^VADPT WRD
INP^VADPT WRD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: I
  • Line Location: DENTPEX+2
Function Call: WRITE
  • Prompt: !,$J(DENTNB,3),?5,$E(X,1,10),?17,$E(X1,1,10),?29,$E(DENTNM,1,24),?54,DENTSSN,?65,$E(DENTDX,1,15),!
  • Line Location: PR2+1
Function Call: WRITE
  • Prompt: @IOF,$C(13),?(80-$L(Z1)/2),Z1,!,?(80-$L(Z2)/2),Z2,!,?(80-$L(Z3)/2),Z3,!!
  • Line Location: PR1+1
Function Call: WRITE
  • Prompt: !,?5,"Ward",?17,"Room-Bed",?29,"Patient Name",?54,"SSN",?65,"Diagnosis",!,?5,"----",?17,"--------",?29,"------------",?54,"---------",?65,"---------"
  • Line Location: PR1+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: HOLD+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"Stations have not been entered in the Dental Site Parameter file.",!,"You must enter a station before you can use this option."
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"There are no examinations for station "_DENTSTA_" that need to be done today.",!
  • Line Location: EXIT2+0
Routine Call
  • DIC
  • Line Location:
    • DENTPEX+3
Routine Call
  • %ZIS
  • Line Location:
    • D

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DENT(225 - [#225] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" CLOSE
^%ZTSK - [#14.4] EXIT1!
^DD("DD" RET
^DENT(221 - [#221] WRD+1, WRD+2
^DENT(225 - [#225] DENTPEX+2
^DPT - [#2] RET+1
^DPT("CN" RET+1
^UTILITY($J QUE, RET!, SET*, PR, PR2, EXIT1!

Label References

Name Line Occurrences
CLOSE D+1, QUE+2
D DENTPEX+2
EXIT1 DENTPEX+3, D, W
EXIT2 QUE
HOLD HOLD1
HOLD1 PR, PR2+1
PR QUE
PR1 QUE, HOLD1
PR2 PR
RET QUE
SET WRD+1
W DENTPEX+2
WRD RET+1
WRD1 WRD+2

Naked Globals

Name Field # of Occurrence
^(0 DENTPEX+2, WRD1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT1!
>> %ZIS D*
DATE RET*, PR1, EXIT1!
>> DENT RET+1*, WRD
DENTDX WRD*, SET, PR2*, PR2+1, EXIT1!
DENTI RET+1*, EXIT1!
DENTNB PR*, PR2*, PR2+1, EXIT1!
DENTNM PR*, PR2, PR2+1, EXIT1!
DENTSSN PR2*, PR2+1, EXIT1!
DENTSTA DENTPEX+2*, DENTPEX+3*, WRD1, WRD1+1, PR1, EXIT2, EXIT1!
DENTTD WRD1*, WRD1+1, EXIT1!
DENTX WRD+1*, WRD+2*, SET, WRD1*, EXIT1!
DENTX1 WRD+2, SET!, WRD1*, EXIT1!
DENTX2 WRD*, SET, WRD1*, WRD1+1*, EXIT1!
>> DFN WRD*
DIC DENTPEX+3*, EXIT1!
DIC(0 DENTPEX+3*
DTIME QUE+1, HOLD
I PR*, EXIT1!
IO D, QUE, QUE+1, HOLD
IO("Q" D!, D+1
IO(0 QUE+1, HOLD
IOF PR1+1
IOSL PR, PR2+1
J RET+1*, PR*, EXIT1!
K WRD+2*, PR*, EXIT1!
U DENTPEX+2, DENTPEX+3, QUE+1, WRD+1, WRD+2, SET, WRD1, WRD1+1, PR, PR2
, PR2+1, HOLD1
VADM EXIT1!
VADM(1 SET
VADM(2 WRD, WRD+1, WRD+2, SET
VAIN EXIT1!
VAIN(1 WRD
VAIN(4 SET
VAIN(5 WRD*, SET
VAIN(7 WRD, WRD1, WRD1+1
VAIN(9 WRD
X DENTPEX+2*, QUE+1*, RET, PR*, PR2, PR2+1, EXIT1!
X1 RET+1*, PR*, PR2, PR2+1, EXIT1!
X2 WRD+2*, EXIT1!
Y DENTPEX+3, RET*, EXIT1!
Z PR2*, EXIT1!
Z1 PR1*, PR1+1, EXIT1!
Z2 PR1*, PR1+1, EXIT1!
Z3 PR1*, PR1+1, EXIT1!
Z4 DENTPEX+2*, QUE+1, PR, PR2+1, HOLD1, HOLD*, EXIT1!
ZTRTN D+1*!
ZTSAVE D+1!
ZTSAVE("DENTSTA" D+1*
ZTSAVE("U" D+1*
ZTSAVE("Z4" D+1*
ZTSK D+1!, QUE+1, HOLD, EXIT1!
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 |  Naked Globals |  Local Variables  | All