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

Package: Registration

Routine: DGRUGV


Information

DGRUGV ;ALB/BOK - RUG/PAI TRANSMISSION ; 12 MAY 87 07:25

Source Information

Source file <DGRUGV.m>

Entry Points

Name Comments DBIA/ICR reference
A
QUIT
START
DATE
DEV
EN
ROUTER
SET
ERR
PERR
CLOSE
STAT
DAT
HELP
CLOUT
FUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"This option will send the RUG/PAI data to the Austin DPC."
  • Line Location: DGRUGV+3
Function Call: WRITE
  • Prompt: !,"REPLY (Y)ES OR (N)O"
  • Line Location: A+0
Function Call: READ
  • Formatting: !
  • Prompt: "Survey purpose: (A)dmission/transfer & CNH or (S)emi-annual? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: START+0
Function Call: WRITE
  • Prompt: @IOF,!?95,"Transmission Date: "
  • Line Location: PERR+1
Function Call: WRITE
  • Prompt: !!?5,"NAME",?40,"SSN",?55,"ASSESSMENT DATE",?80,"STATUS",!
  • Condition for execution: ($D(^UTILITY($J,"ERR"))!$D(^("TRANS")))
  • Line Location: PERR+1
Function Call: WRITE
  • Prompt: I
  • Line Location: PERR+1
Function Call: WRITE
  • Prompt: !,$P(^DPT(+K,0),U,1),?38,$P(K,U,3),?55,$$FMTE^XLFDT($P(K,U,2),"5DZ"),?82
  • Line Location: PERR+2
Function Call: WRITE
  • Prompt: S
  • Line Location: PERR+2
Function Call: WRITE
  • Prompt: !,$P(^DPT(+K,0),U,1),?38,$P(K,U,3),?55,$$FMTE^XLFDT($P(K,U,2),"5DZ"),?82
  • Line Location: PERR+3
Function Call: WRITE
  • Prompt: S
  • Line Location: PERR+3
Function Call: WRITE
  • Prompt: !!,"Depending on type of survey being transmitted enter",!?5,"A - Admission/Transfer PAI Survey",!?5,"S - Semi-annual PAI survey",!
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,*7,"Start date must be within current closeout cycle.",!,"Date must not be before "
  • Line Location: CLOUT+0
Function Call: WRITE
  • Prompt: ".",!!
  • Line Location: CLOUT+0
Function Call: WRITE
  • Prompt: !!,*7,"Can not transmit for future dates",!!
  • Line Location: FUT+0

FileMan Files Accessed Via FileMan Db Call

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