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

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 3 NOW^DGPTOTRL  (LEV,THER)^DGRUGPP  (CLOSE,ZIS)^DGUTQ  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DG RUG PAI SINGLE  DGRUGIX  DGRUGPP  

Entry Points

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

External References

Name Field # of Occurrence
NOW^DGPTOTRL EN
LEV^DGRUGPP PRT+6
THER^DGRUGPP PRT+6
CLOSE^DGUTQ DGRUGPP1+5
ZIS^DGUTQ DGRUGPP1+4
^DIC DGRUGPP1+2
$$FMTE^XLFDT EN+7, EN+10

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
Routine Call
  • DIC
  • Line Location:
    • DGRUGPP1+2

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" START
^DD(45.9 EN+11, MTADLADL1ADL2
^DG(45.9 - [#45.9] EN
^DG(45.91 - [#45.91] EN+8
^DIC(42 - [#42] EN+13
^DPT - [#2] EN+3, EN+5
^FBAAV - [#161.2] EN+14
^UTILITY($J QUIT!

Label References

Name Line Occurrences
ADL PRT+3, PRT+4
ADL2 PRT+6
MT PRT+1, PRT+2, PRT+4
QUIT DGRUGPP1+2, DGRUGPP1+4
START DGRUGPP1+4

Naked Globals

Name Field # of Occurrence
^( EN
^("C" EN
^("R" EN
^(0 EN+8, EN+13, EN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUIT!, PRT+7*
%DT QUIT!
%ZIS QUIT!
%ZIS("B" DGRUGPP1+4*
DA QUIT!
DGA QUIT!
DGA1 QUIT!
DGAD QUIT!
DGALL QUIT!
DGCAT QUIT!, EN+2*, EN+7
DGED QUIT!
DGFY QUIT!, EN+1*, EN+8
DGG QUIT!, EN*, EN+2, EN+6, EN+8, EN+13, EN+14
DGHM QUIT!
DGI QUIT!, EN*, EN+1, EN+3, EN+5, EN+6, EN+7, EN+9, EN+10, EN+12
EN+13, EN+14, MTADLADL1ADL2
DGNO QUIT!
DGNOW QUIT!, EN+5
DGPGM DGRUGPP1+4*, QUIT!
DGPT DGRUGPP1+2*, QUIT!, EN
DGR QUIT!
DGS QUIT!, EN*, EN+11
DGSD QUIT!
DGT QUIT!
DGVAR DGRUGPP1+4*, QUIT!
DGW QUIT!
DGX QUIT!
DIC DGRUGPP1+2*!, QUIT!
DIC(0 DGRUGPP1+2*
DIV QUIT!
E QUIT!, PRT+1*, PRT+2*, PRT+3*, PRT+4*, PRT+6*, MTADLADL1ADL2
E(2 PRT+6*, ADL2
>> FIRST EN+4
I QUIT!, PRT+7*
IO START
IOF EN+4
IOSL PRT+7
IOST EN+4
J QUIT!
K QUIT!
M QUIT!
POP DGRUGPP1+4, QUIT!
U EN+1, EN+2, EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, EN+12
EN+13, EN+14, MTADLADL1ADL2
VAUTD QUIT!
W QUIT!
X QUIT!, START*
X1 QUIT!, PRT+4*
Y DGRUGPP1+2, QUIT!, PRT!*, PRT+2*, PRT+4!*, PRT+5!*
Z QUIT!, EN+2*
Info |  Source |  Call Graph |  Caller 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