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

Package: Registration

Routine: DGRUGPI


Information

DGRUGPI ;ALB/BOK/MLI - PRINT PATIENTS WITH INCOMPLETE PAIs ; 15 MAR 87

Source Information

Source file <DGRUGPI.m>

Entry Points

Name Comments DBIA/ICR reference
DATE
START
QUIT
SET
PRT
HEAD
NOWD
PAGEND
NOINC
DATES
LOC ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"**** Date Range Selection ****"
  • Line Location: DGRUGPI+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+0
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(+DGI,0),U),1,25),?27,$P(DGI,U,3),?42
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: ?62,$S($P(DGI,U,6)=1:"ADMISSION/TRANSFER",$P(DGI,U,6)=2:"SEMI-ANNUAL CENSUS",$P(DGI,U,6)=3:"CONTRACT NURSING HOME")
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!?20,"INCOMPLETE PATIENT ASSESSMENT INSTRUMENTS"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?20
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!,$P($G(^DIC(42,+W,0)),U)
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !!,$P($G(^FBAAV(+W,0)),U)
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !!?45,"DATE OF",?66,"ASSESSMENT",!,"NAME",?30,"SSN",?40,"ADMISSION/TRANSFER",?68,"PURPOSE"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,E
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !!,"No location listed in Patient Assessment File for:"
  • Line Location: NOWD+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGEND+0
Function Call: WRITE
  • Prompt: @IOF,!!,"INCOMPLETE PATIENT ASSESSMENTS",!!!!,"THERE ARE NO PATIENTS WITH THE STATUS OF INCOMPLETE"
  • Line Location: NOINC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NOINC+0
Function Call: WRITE
  • Prompt: !?20,"FOR DATE RANGE: "
  • Line Location: DATES+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DATES+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DATES+0
Function Call: WRITE
  • Prompt: !!?10,"FOR LOCATIONS: "
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: "ALL Contract Nursing Homes "
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: "ALL Wards"
  • Line Location: LOC+4
Info |  Source |  Entry Points |  Interaction Calls