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

Package: Registration

Routine: DGRUGPP1


Information

DGRUGPP1 ;ALB/BOK/MLI - PRINT PAI FOR A PATIENT ; 25 FEB 87 12:00

Source Information

Source file <DGRUGPP1.m>

Entry Points

Name Comments DBIA/ICR reference
QUIT
START
EN
PRT
MT
ADL
ADL1
ADL2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,!!,"THIS REPORT REQUIRES 132 COLUMN OUTPUT"
  • Line Location: DGRUGPP1+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !?48,">>>>PATIENT ASSESSMENT INSTRUMENT<<<<",!!,"NAME: ",$P(^DPT(+DGI,0),U),?92,"PRINTED: ",DGNOW,!," 1.",$J("SSN: ",32),$P(DGI,U,3)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: ?86,$J("RUG-II GROUP: ",15),$P(DGG,U,2),!," 2.",$J("SEX: ",32),$P(DGI,U,4),?86,$J("ADL SUM: ",15),$P(DGG,U,3)
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !," 3.",$J("YEAR OF BIRTH: ",32),$P(DGI,U,5),?86,$J("CATEGORY: ",15),DGCAT,!," 4.",$J("ASSESSMENT DATE: ",32),$$FMTE^XLFDT($P(DGI,U,2),"5DZ")
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: ?86,$J("RUG-II WWUs: ",15)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: $S($D(^DG(45.91,+$P(DGG,U,2),"FY",DGFY,0)):$P(^(0),U,2),1:"")
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !," 5.",$J("ASSESSMENT PURPOSE: ",32),$S($P(DGI,U,6)=1:"1 ADMISSION/TRANSFER",$P(DGI,U,6)=2:"2 SEMI-ANNUAL CENSUS",1:"3 CONTRACT NURSING HOME")
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !," 6.",$J("DATE OF ADMISSION/TRANSFER IN: ",32),$$FMTE^XLFDT($P(DGI,U,7),"5DZ")
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: ?86,$J("RECORD STATUS: ",15),$S($P(DGS,U)]"":$P(DGS,U),1:"INCOMPLETE")," "
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: $P($P(^DD(45.9,80,0),$P(DGS,U)_":",2),";",1)
  • Condition for execution: $P(DGS,U)]""
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !," 7.",$J("MEDICAL CENTER CODE: ",32),$P(DGI,U,8),!," 8.",$J("BED SECTION: ",32),$P(DGI,U,9),$S($P(DGI,U,9)="I":"-INTERMEDIATE MED.",$P(DGI,U,9)="N":"-NURSING HOME CARE",1:"")
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: ?86,$J("WARD: ",15)
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: $P(^(0),U,1)
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: ?86,$J("CNH LOCATION: ",15)
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: $P(^(0),U)
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!?24,"MEDICAL TREATMENTS",?91,"SELECTED DIAGNOSIS",!
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?24,Y
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?24,Y
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?66
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?87,"ACTIVITIES OF DAILY LIVING"
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: ?66
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !!?26,"MEDICAL EVENTS",?95,"BEHAVIORS",!
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: ?26,Y
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: ?26,Y
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: ?26,Y
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: ?26,Y
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !!?56,"SPECIALIZED SERVICES"
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !?56,Y,!?17,"REHABILITATION MEDICINE THERAPIES",?86,"CHRONIC RESPIRATORY SUPPORT",!
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !?56,Y,!?17,"REHABILITATION MEDICINE THERAPIES",?86,"CHRONIC RESPIRATORY SUPPORT",!
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !?56,Y,!?17,"REHABILITATION MEDICINE THERAPIES",?86,"CHRONIC RESPIRATORY SUPPORT",!
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?66
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?66
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?66
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !?26,"*QUESTIONS 21,28,29,30,35,36,37 AND 38 ARE RESERVED FIELDS AND ARE NOT DISPLAYED",!
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: E+21,".",$J($P(^DD(45.9,(E+22),0),U),30),": "
  • Line Location: ADL+0
Function Call: WRITE
  • Prompt: $E($P($P(^DD(45.9,(E+22),0),$P(DGI,U,(E+22))_":",2),";",1),1,27)
  • Condition for execution: $P(DGI,U,(E+22))]""
  • Line Location: ADL+0
Function Call: WRITE
  • Prompt: $E($P($P(^DD(45.9,(E+32),0),$P(DGI,U,(E+32))_":",2),";",1),1,27)
  • Condition for execution: E>26
  • Line Location: ADL1+0
Function Call: WRITE
  • Prompt: $P(DGI,U,E+32),"> ",$S($P(DGI,U,E+32)=1:"NO",1:"YES")
  • Line Location: ADL1+0
Function Call: WRITE
  • Prompt: E(2),".",$J($P(^DD(45.9,(E(2)+6),0),U),30),": "
  • Line Location: ADL2+0
Function Call: WRITE
  • Prompt: $P(DGI,U,E(2)+6),"> ",$S($P(DGI,U,E(2)+6)=1:"NO",1:"YES")
  • Line Location: ADL2+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