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

Package: Registration

Routine: DGPTDRG


Information

DGPTDRG ;ALB/ABS - DRG Information Report User Prompts ; 11/15/06 8:31am

Source Information

Source file <DGPTDRG.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 5 IN^DGHELP  ICDEN1^DGPTF5  ^DGPTICD  ^DGPTODR  (CLOSE,ZIS)^DGUTQ  
VA Fileman 5 ^%DTC  ^DIC  YN^DICN  DT^DICRW  ^DIR  
DRG Grouper 2 ($$CODEN,$$ICDDX,$$ICDOP)^ICDCODE  $$ISVALID^ICDGTDRG  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG DRG CALCULATION  DG PTF DRG INFORMATION OUTPUT  

Entry Points

Name Comments DBIA/ICR reference
PAT
DX
AGE
SEX
Q
DMS
EXP
TRS
INAC ;
EFFDATE ;prompts for effective date for DRG grouper?

External References

Name Field # of Occurrence
^%DTC PAT+4
IN^DGHELP SEX+1
ICDEN1^DGPTF5 DX+2, DX+10
^DGPTICD DX+17
^DGPTODR DX+16
CLOSE^DGUTQ DX+16
ZIS^DGUTQ DX+16
^DIC PAT+4, DX+13
YN^DICN PAT+1, EXP, TRS, DMS
DT^DICRW DGPTDRG+3
^DIR EFFDATE+3
$$CODEN^ICDCODE DX+4, DX+10
$$ICDDX^ICDCODE DX+5, DX+8, DX+10
$$ICDOP^ICDCODE DX+13
$$ISVALID^ICDGTDRG DX+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Choose Patient from PATIENT file"
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !?3,"Enter <RET> for YES if you want DRGs for a patient from your PATIENT File",!?3,"Answer 'N' for NO if you want DRGs for a hypothetical patient"
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: " AGE:",AGE
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !,"Unacceptable AGE",!,"Grouper accepts age values from 0-124 years.",!,"Verify patient's age in PATIENT File before continuing."
  • Line Location: PAT+5
Function Call: READ
  • Prompt: "Patient's AGE: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: AGE
  • Line Location: AGE+0
Function Call: WRITE
  • Prompt: !,"Enter a number for patient's age in years (0-124)"
  • Line Location: AGE+0
Function Call: READ
  • Prompt: "Patient's SEX: MALE// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEX+0
Function Call: WRITE
  • Prompt: X
  • Line Location: SEX+0
Function Call: WRITE
  • Prompt: !?3,"Enter <RET> for MALE if hypothetical patient is male",!?3,"Enter 'F' for Female"
  • Line Location: SEX+1
Function Call: WRITE
  • Prompt: !?3,"Enter <RET> for NO if patient did not die during the hospital",!?15,"stay for which this DRG is to be calculated",!?3,"Enter 'Y' for YES"
  • Line Location: EXP+0
Function Call: WRITE
  • Prompt: !?3,"Enter <RET> for NO if patient not transfered to an acute care facility",!?3,"Enter 'Y' for YES if patient was transfered to acute care facility"
  • Line Location: TRS+0
Function Call: WRITE
  • Prompt: !?3,"Enter <RET> for NO if patient did not leave against medical advice",!?3,"Enter 'Y' for YES if patient did leave against medical advice",!,*7
  • Line Location: DMS+0
Function Call: WRITE
  • Prompt: !,*7,">>>You have selected diagnosis code that is not considered"
  • Line Location: DX+6
Function Call: WRITE
  • Prompt: !,"a primary diagnosis code. Please enter a PRIMARY code."
  • Line Location: DX+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DX+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DX+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DX+16
Function Call: WRITE
  • Prompt: !,*7,">>> You have selected an INACTIVE diagnosis code."
  • Line Location: INAC+1
Function Call: WRITE
  • Prompt: !," This code is not used by the grouper and may cause"
  • Line Location: INAC+2
Function Call: WRITE
  • Prompt: !," the case to be grouped into DRG 470 - UNGROUPABLE.",!
  • Line Location: INAC+3
Function Call: WRITE
  • Prompt: !," Therefore, this diagnosis code will NOT be passed"
  • Line Location: INAC+4
Function Call: WRITE
  • Prompt: !," to the grouper. Please enter another code."
  • Line Location: INAC+5
Routine Call
  • DIC
  • Line Location:
    • PAT+4
    • DX+13
Routine Call
  • DIR
  • Line Location:
    • EFFDATE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^ICD0 - [#80.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PAT+6

Label References

Name Line Occurrences
AGE PAT+3, AGE
DMS DMS
DX EXP+1, DX+5, DX+8
EFFDATE PAT
EXP PAT+7, EXP
INAC DX+8, DX+11
PAT PAT+2, DX+16, DX+17
Q DGPTDRG+3, PAT, PAT+1, PAT+4, AGE, SEX, EXP, TRS, DMS, DX+12
, DX+16, DX+17
SEX SEX+1
TRS PAT+7, TRS

Naked Globals

Name Field # of Occurrence
^( PAT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PAT+1*, PAT+2, PAT+3, SEX+1, EXP*, EXP+1, TRS*, TRS+1, DMS*, DMS+1
, Q!
%Y PAT+2, EXP, TRS, DMS, Q!
AGE PAT+4*, AGE*, Q!
DFN PAT+4*, PAT+6, Q!
>> DGDAT DX, DX+5, DX+8, DX+10, DX+13, EFFDATE+4*
DGDMS EXP+1*, DMS+1*, Q!
DGDRGPRT DX+17*, Q!
DGDX DX+1*, DX+8*, DX+10*, Q!
DGDX( DX+10*
DGDX(1 DX+8*
DGEXP PAT+6*, PAT+7, EXP+1*, Q!
DGI DX+10*, DX+11*, DX+13*, Q!
DGPGM DX+16*, Q!
DGPTHOW PAT+3*, Q!
>> DGPTODR DX+16*
>> DGPTTMP DX+8*, DX+10*, DX+11
DGSURG DX+1*, DX+13*, DX+15*, Q!
DGSURG( DX+13*
DGTRS EXP+1*, TRS+1*, Q!
DGVAR DX+16*, Q!
DIC PAT+4*, DX+12*, Q!
DIC("A" DX+12*
DIC("S" DX+12*
DIC(0 PAT+4*, DX+12*
DIR EFFDATE+1!, EFFDATE+3!
DIR("?" EFFDATE+2*
DIR("A" EFFDATE+1*
DIR("B" EFFDATE+1*
DIR(0 EFFDATE+1*
>> DIRUT EFFDATE+3
DOB PAT+4~*
DRG Q!
DT PAT+4
DTIME AGE, SEX
>> DTOUT PAT
>> DUOUT PAT
DXINF DX~, DX+8*, DX+10*, DX+13*
ICDVDT DX~*
IO DX+16
NAME PAT+3*, PAT+4*, Q!
POP DX+16, Q!
>> PROMPT DX+1*, DX+9*
>> QUIT EFFDATE+3*
SEX PAT+4*, SEX+2*, Q!
U DGPTDRG+3*, PAT+4, DX+5, DX+8, DX+10, DX+11, DX+13, DX+15
X PAT+4, SEX*, SEX+2, DX+3, DX+4, DX+10, DX+12, DX+13, DX+16, Q!
X1 PAT+4*, Q!
X2 PAT+4*, Q!
Y PAT+4, DX+4*, DX+5, DX+8, DX+10*, DX+13, Q!, EFFDATE+4
Y(0 PAT+4
Z SEX*, Q!
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