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

Package: Registration

Routine: DGRUGV


Information

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

Source Information

Source file <DGRUGV.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 4 CLOSEOUT^DGRUG  LO^DGUTL  (CLOSE,ZIS)^DGUTQ  ^VATRAN  
VA FileMan 4 ^%DT  YN^DICN  ^DIE  DT^DIQ  
Kernel 1 $$FMTE^XLFDT  
MailMan 1 ^XMD  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DATE
CLOSEOUT^DGRUG DATE
LO^DGUTL START, EN
CLOSE^DGUTQ CLOSE
ZIS^DGUTQ DEV
YN^DICN A
^DIE SET+9
DT^DIQ PERR+1, PERR+4, CLOUT
^VATRAN DGRUGV+2
$$FMTE^XLFDT PERR+2, PERR+3
^XMD EN+7

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
Routine Call
  • DIE
  • Line Location:
    • SET+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(45.9 - [#45.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" PERR
^DG(45.9 - [#45.9] EN+4, EN+6, STAT
^DPT - [#2] PERR+2, PERR+3
^UTILITY($J QUIT!, START!, EN+7, SET+8*, ERR*, PERR+1, PERR+2, PERR+3

Label References

Name Line Occurrences
A A
CLOUT DATE
DAT SET+1
DATE CLOUT, FUT
ERR EN+4, EN+6, SET, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6
FUT DATE
HELP START
PERR EN+8
QUIT DGRUGV+2, START, DATE, DEV, CLOSE
ROUTER EN+7
SET EN+4, EN+6
START A+1, HELP
STAT PERR+2, PERR+3

Naked Globals

Name Field # of Occurrence
^( PERR+2, PERR+3
^("C" EN+4, EN+6, STAT
^("TRANS" PERR+1
^(0 EN+4, EN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% A*, A+1, QUIT!
%DT QUIT!, DATE*
%DT("A" DATE*!
%DT(0 DATE*
>> %ZIS("A" DEV*
D QUIT!, SET+1*, DAT*, DAT+1*
DA QUIT!, SET+9*
DGBC QUIT!, EN+7*
DGCNT QUIT!, DATE*, EN*, SET+8*, PERR+4
DGCON QUIT!
DGD QUIT!
DGED QUIT!, DATE*, EN+4, EN+6, PERR+4
DGFLG QUIT!, EN*, EN+4, EN+6
DGI QUIT!, EN+4*, EN+6*, SET, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6
, ERR
DGLCO QUIT!, DATE, CLOUT
DGP QUIT!, START*, EN+4, EN+5*, EN+6, SET+1, PERR+4
DGPG QUIT!, EN*, EN+7, SET+8*
DGPGM QUIT!, DEV*
DGPT QUIT!
DGROW QUIT!, EN*, SET+8*
DGRUGYTK EN+2~, EN+3*, SET+1, SET+7, DAT
DGS QUIT!, EN+4*, EN+6*, ERR
DGSD QUIT!, DATE*, EN+4, EN+6, PERR+4
DGSDI QUIT!, ROUTER*
DGVAR QUIT!, DEV*
DGXX QUIT!, EN*, SET+8
DIE QUIT!, SET+9*
DR QUIT!, SET+9*
DT DATE, EN+3, SET+9, PERR+1
DTIME START
DUZ ROUTER+1
I QUIT!, EN+4*, EN+6*, PERR+1*, PERR+4
IOF PERR+1, PERR+4
J QUIT!, EN+4*, EN+6*, SET+9, ERR, PERR+2*, PERR+3*, STAT
K QUIT!, SET*, SET+1*, SET+2*, SET+3*, SET+4*, SET+5*, SET+6*, SET+7*, PERR+2*
, PERR+3*
L QUIT!, SET*, SET+1*, SET+2*, SET+3*, SET+4*, SET+5*, SET+6*
POP QUIT!, DEV
S QUIT!, PERR+2, PERR+3, STAT*
U START, SET, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, PERR+2, PERR+3
VAT QUIT!
VAT( ROUTER
VAT("F" SET+8
VATERR DGRUGV+2, QUIT!
VATNAME DGRUGV+2*, QUIT!
X QUIT!, START*, SET*, SET+1*, SET+2*, SET+3*, SET+4*, SET+5*, SET+6*, SET+7*
, SET+8, PERR*, DAT*, DAT+1*
XMDUZ QUIT!, ROUTER+1*
XMSUB QUIT!, EN+7*
XMTEXT QUIT!, EN+7*
XMY QUIT!
XMY( ROUTER*, ROUTER+1*
Y QUIT!, DATE, PERR+1*, PERR+4*, CLOUT*
Info |  Source |  Call 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