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,HIOFO/FT - DRG Information Report User Prompts ;07/01/2015 11:21 AM

Source Information

Source file <DGPTDRG.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 7 IN^DGHELP  $$POA^DGPTFD  (DIAG,PROC)^DGPTFIC  EFFDAT1^DGPTIC10  ^DGPTICD  ^DGPTODR  (CLOSE,ZIS)^DGUTQ  
VA FileMan 6 DD^%DT  ^%DTC  ^DIC  YN^DICN  DT^DICRW  ^DIR  
Kernel 1 HOME^%ZIS  

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 2 DG DRG CALCULATION  DG PTF DRG INFORMATION OUTPUT  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
PAT ;
AGE ;
SEX ;
EXP ;
TRS
DMS ;
DX ;
Q
DISP() ; -- Return value to display
EFFDATE ;prompts for effective date for DRG grouper?
INAC ;
ASKPOA(CNT) ; -- asks POA for each Diagnosis
OP() ; -- asks Operation Procedure code.
NEWOUT ;
Q2
HDR ;print heading
CONT

External References

Name Field # of Occurrence
DD^%DT HDR+2
^%DTC PAT+9
HOME^%ZIS NEWOUT+1
IN^DGHELP SEX+3
$$POA^DGPTFD ASKPOA+6
DIAG^DGPTFIC DX+11, DX+26
PROC^DGPTFIC OP+8
EFFDAT1^DGPTIC10 EFFDATE+5
^DGPTICD NEWOUT+3
^DGPTODR DX+41
CLOSE^DGUTQ DX+41
ZIS^DGUTQ DX+41
^DIC PAT+7
YN^DICN PAT+2, EXP+1, TRS, DMS+1
DT^DICRW DGPTDRG+9
^DIR EFFDATE+3, ASKPOA+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Choose Patient from PATIENT file"
  • Line Location: PAT+2
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+3
Function Call: WRITE
  • Prompt: " AGE:",AGE
  • Line Location: PAT+9
Function Call: WRITE
  • Prompt: !,"Enter a number for patient's age in years (0-124)"
  • Line Location: AGE+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Patient's SEX: MALE// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEX+1
Function Call: WRITE
  • Prompt: X
  • Line Location: SEX+2
Function Call: WRITE
  • Prompt: !?3,"Enter <RET> for MALE if hypothetical patient is male",!?3,"Enter 'F' for Female"
  • Line Location: SEX+3
Function Call: WRITE
  • Prompt: !!,"Did patient die during this episode"
  • Line Location: EXP+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+2
Function Call: WRITE
  • Prompt: !!,"Transfer to an acute care facility"
  • Line Location: TRS+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+1
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+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DX+8
Function Call: WRITE
  • Prompt: !,*7,">>>You have selected diagnosis code that is not considered"
  • Line Location: DX+17
Function Call: WRITE
  • Prompt: !,"a primary diagnosis code. Please enter a PRIMARY code."
  • Line Location: DX+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DX+25
Function Call: WRITE
  • Prompt: !
  • Line Location: DX+32
Function Call: WRITE
  • Prompt: !
  • Line Location: DX+41
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
Function Call: WRITE
  • Prompt: !
  • Line Location: OP+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWOUT+4
Function Call: WRITE
  • Prompt: @IOF,"DRG Calculation",?45,"Date: "
  • Condition for execution: $Y>0
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," Page: ",DGPG,!!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "Effective Date: ",Y,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Patient: ",NAME,?40
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Sex: ",$S(SEX="M":"Male",1:"Female"),?61,"Age: ",AGE,!,"Expired: ",$S(DGEXP:"Yes",1:"No"),?18,"Transferred to Acute Care: ",$S(DGTRS:"Yes",1:"No"),?55,"Irreg D/C: ",$S(DGDMS:"Yes",1:"No")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"Diagnosis Codes:"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$J($P(DGSURG(I),"^"),8)," ",$P(DGSURG(I),"^",2)
  • Line Location: HDR+9
Function Call: READ
  • Formatting: !!?20
  • Prompt: "Press <RET> to continue or ""^"" to EXIT "
  • Variable: DGQ
  • Timeout: DTIME
  • Line Location: CONT+0
Routine Call
  • DIC
  • Line Location:
    • PAT+7
Routine Call
  • DIR
  • Line Location:
    • EFFDATE+3
    • ASKPOA+5
Routine Call
  • %ZIS
  • Line Location:
    • NEWOUT+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+1
^DPT - [#2] PAT+11

Label References

Name Line Occurrences
$$ASKPOA DX+23, DX+30
$$DISP DX+9, DX+25, OP+6
AGE PAT+4, AGE+4
DMS DMS+1
DX EXP+3, DX+16, DX+20
EFFDATE PAT+1
EXP PAT+12, EXP+2
HDR NEWOUT+2
INAC DX+20, DX+28
NEWOUT DX+44
OP DX+37
PAT PAT+3, DX+41, DX+44
Q DGPTDRG+9, PAT+1, PAT+2, PAT+7, AGE+2, SEX+1, EXP+1, TRS, DMS+1, DX+34
, DX+39, DX+40, DX+41, DX+44
SEX SEX+3
TRS PAT+12, TRS+1

Naked Globals

Name Field # of Occurrence
^( PAT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PAT+2*, PAT+3, PAT+4, SEX+3, EXP+1*, EXP+2, EXP+3, TRS*, TRS+1, TRS+2
, DMS+1*, DMS+2, Q!
%Y PAT+3, EXP+2, TRS+1, DMS+1, Q!
AGE PAT+8*, PAT+9*, AGE+1*, AGE+2, AGE+3*, AGE+4, Q!, Q2!, HDR+4
CNT ASKPOA~, ASKPOA+3
CODESET DX+11*, Q+1!
DA ASKPOA+1~, OP+1~
DFN PAT+8*, PAT+11, Q!
>> DGDAT DX+5, DX+6, EFFDATE+4*, EFFDATE+5, OP+4*, OP+7, HDR+2
DGDMS EXP+3*, DMS+2*, Q!, Q2!, HDR+4
>> DGDRGDT OP+7*
DGDRGPRT Q!, NEWOUT+2*, Q2!
DGDX DX+9*, DX+21*, DX+29*, Q!, NEWOUT+2, Q2!
DGDX( DX+29*, HDR+6
DGDX(1 DX+21*
DGDXPOA DX+23*, DX+30*, DX+31*, Q+1!, HDR+6, HDR+7
DGENR Q+1!
DGEXP PAT+11*, PAT+12, EXP+3*, Q!, Q2!, HDR+4
DGI DX+26*, DX+28*, DX+29, DX+30, Q!, OP+1~, OP+5*, OP+8*, OP+10
DGLN NEWOUT+2*, Q2!
DGPG NEWOUT+2*, Q2!, HDR+1*
DGPGM DX+41*, Q!
DGPOA ASKPOA+1~, ASKPOA+6*, ASKPOA+7, OP+1~
DGPTHOW PAT+4*, Q!
DGPTODR DX+41*, Q2!
DGPTTMP DX+15*, DX+16, DX+20, DX+21, DX+27*, DX+28, DX+29, Q+1!
DGQ NEWOUT+2*, Q2!, CONT*
DGSURG DX+9*, DX+40, Q!, OP+9*, OP+12*, Q2!, HDR+9
DGSURG( OP+10*, HDR+9
DGTEMP Q+1!
DGTERMIN DX+5*, DX+6*, DX+11, DX+23, DX+30, DX+31, Q+1!, DISP+1, HDR+7
DGTMP NEWOUT+2*, Q2!
DGTRS EXP+3*, TRS+2*, Q!, Q2!, HDR+4
DGVAR DX+41*, Q!
DGX Q2!
DIC PAT+6*, Q!
DIC("S" DX+35*
DIC(0 PAT+6*, DX+35*
DIR EFFDATE+1!, EFFDATE+3!, ASKPOA+1~, ASKPOA+5!, OP+1~
DIR("?" EFFDATE+2*
DIR("A" EFFDATE+1*, ASKPOA+3*
DIR("B" EFFDATE+1*, ASKPOA+4*
DIR(0 EFFDATE+1*, ASKPOA+2*
DIROUT DX+13, DX+40, ASKPOA+1~, OP+1~
DIRUT DX+13, EFFDATE+3, ASKPOA+1~, OP+1~
DOB PAT+5~, PAT+8*
DRG Q!
DT PAT+9, OP+4, HDR+1
DTIME AGE+1, SEX+1, CONT
DTOUT PAT+1, DX+13, DX+40, ASKPOA+1~, OP+1~
DUOUT PAT+1, DX+13, DX+40, ASKPOA+1~, OP+1~
DXINF DX+1~
EFFDATE Q+1!
I Q2!, HDR+6*, HDR+7, HDR+9*
ICDDRG Q+2!
ICDDX Q+2!
ICDPDRG Q+2!
ICDPOA Q+2!
ICDSEX Q+2!
ICDSYS Q+2!
ICDTMP Q+2!
ICDVDT DX+1~, Q+1!
ICDY Q+2!
IMPDATE DX+5, DX+6, Q+1!
IO DX+41
IOF HDR+1
IOSL CONT
NAME PAT+4*, PAT+8*, Q!, Q2!, HDR+3
POP DX+41, Q!
PROMPT DX+9*, DX+25*, Q+1!, OP+1~, OP+6*
>> QUIT EFFDATE+3*
SEX PAT+8*, SEX+4*, Q!, Q2!, HDR+4
TERM Q+1!, OP+1~, OP+2*
U DGPTDRG+9*, PAT+8, DX+16, DX+20, DX+21, DX+28, DX+29, OP+9, OP+10, OP+12
X PAT+9, SEX+1*, SEX+2*, SEX+4, DX+2!, DX+12, DX+26, DX+34, DX+39, Q!
, ASKPOA+1~, OP+8
X1 PAT+9*, Q!
X2 PAT+9*, Q!
Y PAT+7, PAT+8, DX+2!, DX+15, DX+21, DX+27, DX+29, Q!, EFFDATE+4, ASKPOA+1~
, ASKPOA+6, OP+9, OP+10, Q2!, HDR+1*, HDR+2*, HDR+3
Y(0 PAT+8
Z SEX+2*, 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