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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ICD187PT

Package: DRG Grouper

Routine: ICD187PT


Information

ICD187PT ; ALB/ADL - GROUPER DRIVER ; 04/11/03

Source Information

Source file <ICD187PT.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 (,UPDATE)^DIE  

Entry Points

Name Comments DBIA/ICR reference
UPDATE ; SET INACTIVE DRG LEVELS
CLEANUP ;REMOVE 66 LEVELS TO REPROCESS
ADDDRGZ(FN,IEN,NODE,X,STA,MDCD,SURGD)
MAINLOOP(ROOT,IEN)
ALTERICD
ALTERDRG
ALTERCPT
ADJDATA ;data to add/update
EFF(FILE,CODE)
ADDMULT(FN,IEN,NODE,X,STA,DRGZ) ; add to multiple
SETINACT(IEN)
EDIT0(DA,DIE,DR)

External References

Name Field # of Occurrence
^DIE EDIT0+3
UPDATE^DIE ADDMULT+8, ADDDRGZ+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?5,"APPLYING EDITS TO FILE ",FILE,!
  • Line Location: MAINLOOP+2
Function Call: WRITE
  • Prompt: !,"UPDATING ",IEN," TO INACTIVE"
  • Line Location: SETINACT+7
Function Call: WRITE
  • Prompt: !!!?5,"UPDATING INACTIVE FLAG FOR ",FILE,!
  • Line Location: UPDATE+10
Routine Call
  • DIE
  • Line Location:
    • ADDMULT+8
    • ADDDRGZ+10
Routine Call
  • DIE
  • Line Location:
    • EDIT0+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( ADDMULT+2, ADDDRGZ+2
^DIC - [#1] ICD187PT+12, EFF+2, UPDATE+7
^ICD - [#80.2] CLEANUP+2!, SETINACT+3, SETINACT+5
^TMP("DIERR" ADDMULT+4!, ADDMULT+9, ADDDRGZ+4!, ADDDRGZ+11

Label References

Name Line Occurrences
$$EDIT0 ALTERCPT+6
$$EFF ALTERCPT+2
ADDDRGZ ALTERDRG+7, ALTERDRG+11, ALTERDRG+12, SETINACT+6
ADDMULT ALTERICD+8, ALTERICD+9, ALTERCPT+9, ALTERCPT+10
ALTERCPT MAINLOOP+12
ALTERDRG MAINLOOP+8
ALTERICD MAINLOOP+11
CLEANUP MAINLOOP+3
MAINLOOP ICD187PT+12
SETINACT UPDATE+14

Naked Globals

Name Field # of Occurrence
^( ALTERDRG+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTFLG ALTERDRG+1~, ALTERDRG+3*, ALTERDRG+4, ALTERDRG+8*, ALTERDRG+10, ALTERDRG+11*, ALTERDRG+12*
AD ALTERICD+1~, ALTERICD+2*, ALTERICD+8, ALTERDRG+1~, ALTERCPT+1~, ALTERCPT+3*, ALTERCPT+9
ADATE ICD187PT+6~, ICD187PT+11*, ALTERICD+2, ALTERICD+3, ALTERCPT+9, UPDATE+1~, UPDATE+6*
ADT MAINLOOP+1~, MAINLOOP+6*, UPDATE+9~, UPDATE+13*
ANS ALTERICD+1~, ALTERICD+5*, ALTERDRG+1~, ALTERCPT+1~, ALTERCPT+6*, ADDMULT+1~, ADDMULT+9*, ADDDRGZ+1~, ADDDRGZ+11*
>> CD CLEANUP+1*, CLEANUP+2*
CODE EFF~, EFF+2
CSAN ICD187PT+6~, ICD187PT+10*, ALTERICD+2, ALTERICD+3, ALTERCPT+3, UPDATE+1~, UPDATE+5*
CSAP ICD187PT+6~, ICD187PT+11*, MAINLOOP+6, UPDATE+1~, UPDATE+6*, UPDATE+13
CSD ICD187PT+6~, ICD187PT+8*, ICD187PT+9, ICD187PT+10, ICD187PT+11, UPDATE+1~, UPDATE+3*, UPDATE+4, UPDATE+5, UPDATE+6
CSIN ICD187PT+6~, ICD187PT+10*, ALTERICD+3, ALTERCPT+4, UPDATE+1~, UPDATE+5*
CSIP ICD187PT+6~, ICD187PT+10*, MAINLOOP+6, UPDATE+1~, UPDATE+5*, UPDATE+13
DA EDIT0~, EDIT0+1
>> DATE SETINACT+4*, SETINACT+5, SETINACT+6
DIE EDIT0~, EDIT0+2, EDIT0+4
DKZ MAINLOOP+1~, MAINLOOP+5*, MAINLOOP+6, MAINLOOP+8, UPDATE+9~, UPDATE+12*, UPDATE+13, UPDATE+14
DR ALTERICD+1~, ALTERICD+2*, ALTERICD+3*, ALTERDRG+1~, ALTERCPT+1~, ALTERCPT+3*, ALTERCPT+4*, ALTERCPT+5*, ALTERCPT+6, EDIT0~
>> DRGCNT ADDMULT+7*
DRGZ MAINLOOP+1~, MAINLOOP+9*, MAINLOOP+10*, ALTERICD+8, ALTERICD+9, ADDMULT~, ADDMULT+7, UPDATE+9~
DT EFF+3
EFF ALTERCPT+1~, ALTERCPT+2*, ALTERCPT+3, EFF+1~, EFF+3*, EFF+4, EFF+8*, EFF+9, EFF+10*
EFFBOOL EFF+1~, EFF+7*, EFF+8, EFF+11*
EFFDFLT EFF+1~, EFF+2*, EFF+3, EFF+5, EFF+12
EFFDOS EFF+1~, EFF+10*, EFF+11, EFF+12*, EFF+13, EFF+14
EFFDT ALTERDRG+1~, ALTERDRG+5*, ALTERDRG+10, ALTERDRG+11, ALTERDRG+12, EFF+1~, EFF+7*, EFF+13, EFF+14
EFFDT2 ALTERDRG+1~, ALTERDRG+7*
EFFN EFF+1~, EFF+4*, EFF+5, EFF+9*, EFF+10
EFFS ALTERCPT+1~, ALTERCPT+3*, ALTERCPT+4, ALTERCPT+5, ALTERCPT+10
EFFST EFF+1~, EFF+7*, EFF+11, EFF+12, EFF+13
EFILE EFF+1~, EFF+2*, EFF+3, EFF+4, EFF+5, EFF+8, EFF+9, EFF+10
FDA ADDMULT+1~, ADDDRGZ+1~
FDA( ADDMULT+7*, ADDDRGZ+5*, ADDDRGZ+6*, ADDDRGZ+7*, ADDDRGZ+8*
FDAIEN ADDMULT+1~, ADDMULT+3*, ADDMULT+7, ADDDRGZ+1~, ADDDRGZ+3*, ADDDRGZ+5, ADDDRGZ+6, ADDDRGZ+7, ADDDRGZ+8
FILE ICD187PT+6~, ICD187PT+9*, ICD187PT+12, MAINLOOP+2, MAINLOOP+3, MAINLOOP+7, MAINLOOP+8, MAINLOOP+9, MAINLOOP+10, ALTERICD+8
, ALTERICD+9, ALTERDRG+7, ALTERDRG+11, ALTERDRG+12, ALTERCPT+2, ALTERCPT+9, ALTERCPT+10, EFF~, EFF+2, SETINACT+6
, UPDATE+1~, UPDATE+4*, UPDATE+7, UPDATE+10
FIRSTSET ALTERDRG+1~, ALTERDRG+3*, ALTERDRG+4, ALTERDRG+6, ALTERDRG+9*
FLAG ICD187PT+6~, ICD187PT+9*, MAINLOOP+5, UPDATE+1~, UPDATE+4*, UPDATE+12
FLGN ICD187PT+6~, ICD187PT+9*, ALTERCPT+5, UPDATE+1~, UPDATE+4*
FN ADDMULT~, ADDMULT+2*, ADDMULT+7, ADDDRGZ~, ADDDRGZ+2*, ADDDRGZ+5, ADDDRGZ+6, ADDDRGZ+7, ADDDRGZ+8
FY ALTERDRG+3*, ALTERDRG+4*, ALTERDRG+5, SETINACT+1~, SETINACT+2*, SETINACT+3*, SETINACT+4
>> FYINFO ALTERDRG+4*
I ICD187PT+6~, ICD187PT+8*, UPDATE+1~
ID ALTERICD+1~, ALTERICD+3*, ALTERICD+9, ALTERDRG+1~, ALTERCPT+1~, ALTERCPT+3*, ALTERCPT+4, ALTERCPT+10
IDATE ICD187PT+6~, ICD187PT+11*, ALTERICD+3, ALTERCPT+10, UPDATE+1~, UPDATE+6*
IDT MAINLOOP+1~, MAINLOOP+6*, ALTERICD+2, ALTERICD+3, UPDATE+9~, UPDATE+13*
IEN MAINLOOP~, MAINLOOP+4*, MAINLOOP+5, MAINLOOP+9, MAINLOOP+10, ALTERICD+8, ALTERICD+9, ALTERDRG+4, ALTERDRG+7, ALTERDRG+11
, ALTERDRG+12, ALTERCPT+2, ALTERCPT+6, ALTERCPT+9, ALTERCPT+10, ADDMULT~, ADDMULT+3, ADDDRGZ~, ADDDRGZ+3, SETINACT~
, SETINACT+3, SETINACT+5, SETINACT+6, SETINACT+7, UPDATE+7*, UPDATE+11*, UPDATE+12, UPDATE+14
>> MDC ICD187PT+11*, MAINLOOP+8, UPDATE+6*, UPDATE+14
MDCD MAINLOOP+8*, ALTERDRG+7, ALTERDRG+11, ALTERDRG+12, ADDDRGZ~, ADDDRGZ+7, SETINACT+6, UPDATE+14*
NODE ICD187PT+6~, ICD187PT+9*, ALTERICD+8, ALTERICD+9, ALTERDRG+7, ALTERDRG+11, ALTERDRG+12, ALTERCPT+9, ALTERCPT+10, ADDMULT~
, ADDMULT+2, ADDDRGZ~, ADDDRGZ+2, SETINACT+6, UPDATE+1~, UPDATE+4*
RC MAINLOOP+1~, UPDATE+9~
REC EDIT0+1~*, EDIT0+2, EDIT0+4
ROOT MAINLOOP~, MAINLOOP+4, MAINLOOP+5, MAINLOOP+9, MAINLOOP+10, ALTERDRG+4, ALTERCPT+6, UPDATE+7*, UPDATE+11, UPDATE+12
S MAINLOOP+1~*, ALTERICD+2, ALTERICD+3, ALTERCPT+3, ALTERCPT+4, ALTERCPT+5, UPDATE+9~*
>> SS MAINLOOP+10*
STA ADDMULT~, ADDDRGZ~, ADDDRGZ+6
STAT MAINLOOP+1~, MAINLOOP+5*, ALTERICD+2, ALTERICD+8, ALTERICD+9, ALTERCPT+5, UPDATE+9~, UPDATE+12*
STR EFF+1~, EFF+5*, EFF+7, EFF+13*, EFF+14*, EFF+15
>> SURG ICD187PT+11*, MAINLOOP+8, UPDATE+6*, UPDATE+14
SURGD MAINLOOP+8*, ALTERDRG+7, ALTERDRG+11, ALTERDRG+12, ADDDRGZ~, ADDDRGZ+8, SETINACT+6, UPDATE+14*
U ICD187PT+7*, ICD187PT+9, ICD187PT+10, ICD187PT+11, MAINLOOP+5, MAINLOOP+6, MAINLOOP+8, ALTERDRG+4, ALTERCPT+3, EFF+7
, EFF+11, EFF+12, EFF+13, EFF+14, ADDMULT+2, ADDDRGZ+2, UPDATE+2*, UPDATE+4, UPDATE+5, UPDATE+6
, UPDATE+12, UPDATE+13, UPDATE+14
>> UPDT ALTERDRG+4*
>> WGHT ALTERDRG+4*, ALTERDRG+6
X ADDMULT~, ADDDRGZ~, ADDDRGZ+5

Marked Items

Name Field # of Occurrence
$T(ADJDATA+4 UPDATE+3
$T(ADJDATA+I ICD187PT+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All