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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call