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
Print Page as PDF
Routine: DGRUGTG

Package: Registration

Routine: DGRUGTG


Information

DGRUGTG ;ALB/MLI - TEST RUG-II GROUPER ; 29 DEC 87 9:00

Source Information

Source file <DGRUGTG.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
YN
EDIT
MAIN
DT
MR
DB
CV
CH
QUIT
QR
RES
RESYN
CHK
FYH
FYH2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The information you are about to enter will be used to determine a TEST ",!,"RUG-II Grouper. The values you enter will not be saved and will not ",!," be able to be retrieved for later use."
  • Line Location: MAIN+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,"WWU values unavailable. Want most recent ones"
  • Line Location: MR+0
Function Call: WRITE
  • Prompt: !,"THERE ARE NO WWU VALUES IN YOUR RUG-II FILE"
  • Line Location: MR+1
Function Call: WRITE
  • Prompt: !," ANSWER 'Y'ES OR 'N'O"
  • Line Location: QR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RES+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RES+0
Function Call: WRITE
  • Prompt: I-2,">"
  • Condition for execution: (N=6)
  • Line Location: RES+0
Function Call: WRITE
  • Prompt: I-1,">"
  • Condition for execution: (N=3)
  • Line Location: RES+0
Function Call: WRITE
  • Prompt: $P($P($P(^DD(45.9,DGNO,0),U,3),":",I),";",1)
  • Line Location: RES+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RES+1
Function Call: WRITE
  • Prompt: !,^(I,0)
  • Line Location: RESYN+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !,*7," INVALID RESPONSE--TRY AGAIN"
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !,^DD(45.9,DGNO,3)
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !,"Enter fiscal year of RUG-II WWU values you want to use. Must not precede 1987."
  • Line Location: FYH+0
Function Call: WRITE
  • Prompt: !,"Fiscal year RUG-II WWU values not available for the year requested",!,"Enter 'Y'es to accept most recent values in file or 'N'o",!,"to choose another year"
  • Line Location: FYH2+0
Info |  Source |  Entry Points |  Interaction Calls