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

Package: IHS Changes To ADT

Routine: ADGCRB5


Information

ADGCRB5 ; IHS/ADC/PDW/ENM - A SHEET lines 8-11 ; [ 08/25/2004 11:38 AM ]

Source Information

Source file <ADGCRB5.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 DD^%DT  (,C)^%DTC  $$GET1^DIQ  ^DIWP  
DRG Grouper 1 ($$ICDDX,$$ICDOP)^ICDEX  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGCRB0  

Entry Points

Name Comments DBIA/ICR reference
A ;EP -- driver
H8 ; -- sub heading 8
H9 ; -- sub heading 9
DSCMTS ; -- day surgery comments
H10 ; -- sub heading 10
ADMDS() ; -- admit after ds
VPRC ; -- procedures
VISIT() ; -- visit ifn
VINP ; -- hospitalization
VPOV ; -- diagnosis
WRAP(X,DIWL,DIWR,DIWF) ; -- print text fields in word-wrap mode
VSIT ; -- visit DGFN
DSV() ;EP -- ds visit ifn

External References

Name Field # of Occurrence
DD^%DT DSCMTS+3, ADMDS+7
^%DTC ADMDS+8
C^%DTC ADMDS+5
$$GET1^DIQ VPOV+6, VPRC+4
^DIWP WRAP+1
$$ICDDX^ICDEX VPOV+3
$$ICDOP^ICDEX VPRC+5
$$VAL^XBDIQ1 VPRC+17, VPRC+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DGLIN,!,"26 ICD 27 Hosp Acq",?24,"28 Established DX",!,DGLIN1
  • Line Location: H8+3
Function Call: WRITE
  • Prompt: !!,"*** No visit for day surgery entry yet ***"
  • Line Location: VSIT+3
Function Call: WRITE
  • Prompt: !?3,$P($$ICDDX^ICDEX(+Y,0),U,2),?13,$S($P(Y,U,7)=1:"X",1:"")
  • Line Location: VPOV+3
Function Call: WRITE
  • Prompt: ?27,Z
  • Line Location: VPOV+6
Function Call: WRITE
  • Prompt: ?27,Z
  • Line Location: VPOV+7
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"29 ICD 30 DX",?18,"31 Op & Selec Procedures"
  • Line Location: H9+3
Function Call: WRITE
  • Prompt: ?55,"32 Post-Op 33 33a Op"
  • Line Location: H9+4
Function Call: WRITE
  • Prompt: !?3,"Code",?58,"Infec Date Phy Code",!,DGLIN1
  • Line Location: H9+5
Function Call: WRITE
  • Prompt: !?3,$P(OP,U,2)
  • Line Location: VPRC+6
Function Call: WRITE
  • Prompt: ?11,$P($G(^ICD9($P(DGY,U,5),0)),U)
  • Line Location: VPRC+8
Function Call: WRITE
  • Prompt: ?12,$P($G(^ICD9(X,0)),U)
  • Line Location: VPRC+9
Function Call: WRITE
  • Prompt: ?21,X
  • Line Location: VPRC+12
Function Call: WRITE
  • Prompt: ?60,$S($P(DGY,U,8)="Y":"YES",1:" NO"),?66,$E($P(DGY,U,6),4,7)
  • Line Location: VPRC+14
Function Call: WRITE
  • Prompt: ?72,$$VAL^XBDIQ1(200,+$P(DGY,U,11),9999999.039)
  • Line Location: VPRC+17
Function Call: WRITE
  • Prompt: ?72,$$VAL^XBDIQ1(6,+$P(DGY,U,11),9999999.039)
  • Line Location: VPRC+18
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"34 Post-op Comments",!
  • Line Location: H10+1
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"34 Discharge Type"
  • Line Location: H10+2
Function Call: WRITE
  • Prompt: ?27,"35 Facility Transferred To",?63,"36 Facility Code",!
  • Line Location: H10+3
Function Call: WRITE
  • Prompt: ?3,$E($P(^DG(405.1,X,0),U),1,24)
  • Line Location: VINP+4
Function Call: WRITE
  • Prompt: ?30,$P(@(U_$P(X1,";",2)_+X1_",0)"),U)
  • Line Location: VINP+6
Function Call: WRITE
  • Prompt: ?66,$P($G(^AUTTLOC(+X1,0)),U,10)
  • Line Location: VINP+8
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"37 Disch Service",?24,"38 Disch Srv Code"
  • Line Location: VINP+11
Function Call: WRITE
  • Prompt: ?55,"39 # Consults",!
  • Line Location: VINP+12
Function Call: WRITE
  • Prompt: ?3,$P(^(0),U)
  • Line Location: VINP+15
Function Call: WRITE
  • Prompt: ?30,$P(^(9999999),U)
  • Line Location: VINP+16
Function Call: WRITE
  • Prompt: ?63,$P(Y,U,8)
  • Line Location: VINP+17
Function Call: WRITE
  • Prompt: ?2,LINE
  • Line Location: DSCMTS+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>DIWL
  • Line Location: WRAP+3
Function Call: WRITE
  • Prompt: ?DIWL,^UTILITY($J,"W",DIWL,X,0)
  • Line Location: WRAP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVPOV - [#9000010.07] GET1^DIQ
^AUPNVPRC - [#9000010.08] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGDS - [#9009012] DSCMTS+2, DSV+2
^AUPNVINP - [#9000010.02] VINP+3
^AUPNVINP("AD" VINP+2
^AUPNVPOV - [#9000010.07] VPOV+2
^AUPNVPOV("AD" VPOV+1, DSV+5
^AUPNVPRC - [#9000010.08] VPRC+2
^AUPNVPRC("AD" VPRC+1
^AUPNVPRV("AD" DSV+6
^AUPNVSIT - [#9000010] VISIT+5, DSV+7
^AUPNVSIT("AA" VISIT+4, DSV+4
^AUTNPOV - [#9999999.27] VPOV+5, VPRC+11, VPRC+12
^AUTTLOC - [#9999999.06] VINP+8
^BDGPAR(1 ADMDS+4
^DD(9000010.06 VPRC+16
^DG(405.1 - [#405.1] VINP+4
^DGPM("APTT1" ADMDS+5
^DIC(45.7 - [#45.7] VINP+15, VINP+16
^ICD0 - [#80.1] VPRC+2
^ICD9 - [#80] VPOV+2, VPRC+8
^UTILITY($J WRAP+1!, WRAP+2, WRAP+3, WRAP+4!

Label References

Name Line Occurrences
$$ADMDS DSCMTS+5
$$DSV VISIT+1
$$VISIT VSIT+2
DSCMTS VINP+1
H10 A+1
H8 A+1
H9 A+1
VINP A+1
VPOV A+1
VPRC A+1
VSIT A+1
WRAP VPOV+8, VPRC+13

Naked Globals

Name Field # of Occurrence
^(0 VPOV+2, VPRC+2, VINP+3, VINP+15, VISIT+5
^(2 DSCMTS+2
^(9999999 VINP+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADT ADMDS+1~, ADMDS+7*, ADMDS+9
DATE DSV+1~, DSV+2*, DSV+3
>> DFN DSCMTS+2, ADMDS+5, VISIT+4, DSV+2, DSV+4
>> DGDS VSIT+3, H10+1, VINP+1, DSCMTS+2, VISIT+1, DSV+2
>> DGLIN H8+3
>> DGLIN1 H8+3, H9+3, H9+5, H10+1, H10+2, VINP+11
>> DGN ADMDS+4, VISIT+2
>> DGPOVDA VPOV+4*
>> DGPOVN0 VPOV+4*
>> DGVSDA A+1, VSIT+2*, VSIT+3, VSIT+4, VPOV+1, VPRC+1, VINP+2
DGX VPRC+1~*, VPRC+2, VPRC+4
DGY VPRC+1~, VPRC+2*, VPRC+8, VPRC+10, VPRC+11, VPRC+12, VPRC+14, VPRC+15, VPRC+17, VPRC+18
DGZN A+1!
DIWF WRAP~
DIWL WRAP~, WRAP+2, WRAP+3
DIWR WRAP~
DT VPRC+5
DX VPOV+1~
LINE DSCMTS+1~, DSCMTS+2*, DSCMTS+3*, DSCMTS+4*, DSCMTS+5*, DSCMTS+6*
LMT ADMDS+1~, ADMDS+8*, ADMDS+9
OP VPRC+1~, VPRC+5*, VPRC+6
OPI VPRC+1~, VPRC+4*, VPRC+5
REVDT DSV+1~, DSV+3*, DSV+4
S0 DSCMTS+1~, DSCMTS+2*, DSCMTS+3
S2 DSCMTS+1~, DSCMTS+2*, DSCMTS+4, DSCMTS+6
SAV ADMDS+1~, ADMDS+7*, ADMDS+8
SDT ADMDS+1~, ADMDS+4*, ADMDS+5, ADMDS+8
U VPOV+3, VPOV+4, VPOV+5, VPRC+6, VPRC+8, VPRC+10, VPRC+11, VPRC+12, VPRC+14, VPRC+15
, VPRC+16, VPRC+17, VPRC+18, VINP+4, VINP+5, VINP+6, VINP+8, VINP+14, VINP+15, VINP+16
, VINP+17, DSCMTS+3, DSCMTS+4, DSCMTS+6, ADMDS+4, VISIT+5, DSV+2, DSV+7
V DSV+1~, DSV+4*, DSV+5, DSV+6, DSV+7, DSV+8
X VPOV+1~*, VPOV+2, VPOV+4, VPOV+6, VPRC+10*, VPRC+12*, VPRC+13, VINP+2~*, VINP+3, VINP+4*
, ADMDS+1~, ADMDS+6, ADMDS+8, VISIT+2~, VISIT+4*, VISIT+5, WRAP~, WRAP+2*, WRAP+3
X1 VINP+2~, VINP+5*, VINP+6, VINP+7, VINP+8, VINP+14*, VINP+15, VINP+16, ADMDS+1~, ADMDS+4*
, ADMDS+8*
X2 ADMDS+1~, ADMDS+4*, ADMDS+8*
Y VPOV+1~, VPOV+2*, VPOV+3, VPOV+4, VPOV+5, VINP+2~, VINP+3*, VINP+4, VINP+5, VINP+14
, VINP+17, DSCMTS+1~, DSCMTS+3*, ADMDS+1~, ADMDS+5*, ADMDS+6, ADMDS+7, VISIT+2~*, VISIT+4, DSV+1~
, DSV+4*, DSV+7*, DSV+8
Z VPOV+1~, VPOV+6*, VPOV+8, VISIT+2~*, VISIT+5*, VISIT+6
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