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

Package: Registration

Routine: DGRUGSA


Information

DGRUGSA ;ALB/MLI/BOK - RUG-II BACK GROUND TRIGGER FOR SEMI-ANNUAL CENSUS ; 21 JAN 88

Source Information

Source file <DGRUGSA.m>

Entry Points

Name Comments DBIA/ICR reference
1
PRT
QUIT
CK
HEAD
FILE
BUL
DATES ;;0401
EN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Semi-annual assessments can only be run for April 1 and September 30.",!,"Can not complete now."
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: !,I,?30,$P(^(S),"^",2),?55
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUIT+0
Function Call: WRITE
  • Prompt: @IOF,!,?3,$P(^DIC(42,+W,0),U),?60,"DATE: "
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!,"PATIENT ASSESSMENT INSTRUMENTS HAVE BEEN CREATED FOR THE FOLLOWING PATIENTS ",!?5,"RESIDING ON INTERMEDIATE MEDICINE WARDS OR NURSING HOME CARE UNITS"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !?25,"DUE TO SEMI-ANNUAL CENSUS",!!,?5,"NAME",?33,"SSN",?46,"DATE OF ADMISSION/TRANSFER IN"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"There was an attempt to set up a PAI record on ",$P(^DPT(DFN,0),U)," ",$P(^(0),U,9),!,"Please verify that this patient's data is accurate and create a PAI record."
  • Line Location: BUL+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