Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call