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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DENTQ

Package: Dental

Routine: DENTQ


Information

DENTQ ;ISC2/SAW-DENTAL PATIENT INQUIRY ;4/17/90 16:13 ;

Source Information

Source file <DENTQ.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 1 (ALL,KVAR)^VADPT  
VA FileMan 1 ^DIC  

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

Package Total Caller Graph
Dental 6 DENTA11  DENTA13  DENTAR  DENTAR1  DENTE2  DENTPAT INQ  

Entry Points

Name Comments DBIA/ICR reference
REM
EXIT
Q1
Q2
Q3
Q4
Q5
Q6

External References

Name Field # of Occurrence
^DIC DENTQ+2
ALL^VADPT DENTQ+2
KVAR^VADPT REM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DENTQ+2
Function Call: WRITE
  • Prompt: @IOF,$C(13),X
  • Line Location: DENTQ+3
Function Call: WRITE
  • Prompt: !,"NAME: ",VADM(1),?35,"SSN: ",$P(VADM(2),"^",2),?55,"AGE: ",VADM(4),?67,"SEX: ",$P(VADM(5),"^",2),!,X
  • Line Location: DENTQ+4
Function Call: WRITE
  • Prompt: !!,"ELIGIBILITY: ",$P(VAEL(1),"^",2),!!,"LEGAL RESIDENCE: ",VAPA(1)
  • Line Location: DENTQ+5
Function Call: WRITE
  • Prompt: !,?17,VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: DENTQ+6
Function Call: WRITE
  • Prompt: !,?17,VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: DENTQ+6
Function Call: WRITE
  • Prompt: !,?17
  • Line Location: DENTQ+6
Function Call: WRITE
  • Prompt: VAPA(4),", "
  • Condition for execution: VAPA(4)]""
  • Line Location: DENTQ+6
Function Call: WRITE
  • Prompt: $P(VAPA(5),"^",2)
  • Condition for execution: VAPA(5)]""
  • Line Location: DENTQ+6
Function Call: WRITE
  • Prompt: " ",VAPA(6)
  • Condition for execution: VAPA(6)]""
  • Line Location: DENTQ+6
Function Call: WRITE
  • Prompt: !,?17,VAPA(8)
  • Condition for execution: VAPA(8)]""
  • Line Location: DENTQ+6
Function Call: WRITE
  • Prompt: !!,"PATIENT IS NOT CURRENTLY ADMITTED."
  • Line Location: DENTQ+7
Function Call: WRITE
  • Prompt: !!,"ADMISSION DATE: ",$P(VAIN(7),"^",2)
  • Line Location: DENTQ+8
Function Call: WRITE
  • Prompt: ?37,"WARD: ",$P(VAIN(4),"^",2),?55,"ROOM-BED: ",VAIN(5)
  • Line Location: DENTQ+8
Function Call: WRITE
  • Prompt: !!,"Enter 'Y' or 'Yes' to enable a range of treatment data for re-release.",!,"Press return or enter 'N' or 'No' if you do not want to enable a range",!,"of treatment data for re-release. Enter an uparrow (^) to exit."
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !!,"Enter 'Y' or 'Yes' to edit or display this data entry. Press return or",!,"enter 'N' or 'No' if you do not want to edit or display this data entry.",!,"Enter an uparrow (^) to exit."
  • Line Location: Q2+0
Function Call: WRITE
  • Prompt: !,"Enter 'Y' or 'Yes' to enable this data for re-release. Press return or",!,"enter 'N' or 'No' if you do not want to enable this data for re-release.",!,"Enter an uparrow (^) to exit."
  • Line Location: Q3+0
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' or 'Yes' if you are ready to transmit this data to Austin.",!,"Press return or enter an uparrow (^) if you want to re-edit the data or",!,"are not sure you want to release the data at this time."
  • Line Location: Q4+0
Function Call: WRITE
  • Prompt: !!,"Enter 'Y' or 'Yes' to include composite time value (CTV) information in this",!,"report. Press return if you do not want to include CTV information.",!,"Enter an uparrow (^) to exit this option entirely."
  • Line Location: Q5+0
Function Call: WRITE
  • Prompt: !!,"Enter 'Y' or 'Yes' to include dollar values along with CTV values in this",!,"report. Press return if you do not want to include dollar values.",!,"Enter an uparrow (^) to exit this option entirely."
  • Line Location: Q6+0
Routine Call
  • DIC
  • Line Location:
    • DENTQ+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Label References

Name Line Occurrences
DENTQ REM
EXIT DENTQ+2
REM DENTQ+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DENTQ+2*
DIC DENTQ+2*, EXIT!
DIC(0 DENTQ+2*
IOF DENTQ+3
>> VADM(1 DENTQ+4
>> VADM(2 DENTQ+4
>> VADM(4 DENTQ+4
>> VADM(5 DENTQ+4
>> VADM(7 REM
>> VAEL(1 DENTQ+5
>> VAIN(1 DENTQ+7
>> VAIN(4 DENTQ+8
>> VAIN(5 DENTQ+8
>> VAIN(7 DENTQ+8
>> VAIN(9 DENTQ+9
>> VAPA(1 DENTQ+5
>> VAPA(2 DENTQ+6
>> VAPA(3 DENTQ+6
>> VAPA(4 DENTQ+6
>> VAPA(5 DENTQ+6
>> VAPA(6 DENTQ+6
>> VAPA(8 DENTQ+6
X DENTQ+3*, DENTQ+4, EXIT!
Y DENTQ+2, EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All