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 |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABMDE7A

Package: Third Party Billing

Routine: ABMDE7A


Information

ABMDE7A ; IHS/ASDST/DMJ - Edit Page 7 - Inpatient Display Screen ;

Source Information

Source file <ABMDE7A.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Third Party Billing 4 $$DX^ABMCVAPI  (PAUSE,SUM)^ABMDE1  ^ABMDERR  $$HDT^ABMDUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Third Party Billing 1 ABMDE7  

Entry Points

Name Comments DBIA/ICR reference
DISP ;EP - Entry Point for displaying Inpatient info
SRC
STAT
CNODES
DISCH
NONCOVD
AUTH
AHR
V1 ;EP - Entry Point for Inpatient View Command
ADMIT
DX ;W !,"[5] Admitting Diag...: " S ABM(1)=$P(ABM("C5"),U,9) I ABM(1)]"",$D(^ICD9(ABM(1),0)) S ABM(1)=$P($$DX^ABMCVAPI(ABM(1),ABMP("VDT")),U,2) W ABM(1)," (",$E($$ICDDX^ABMCVAPI(ABM(1),ABMP("VDT")),1,49),")" ;CSV-c ;abm*2.6*2 NOHEAT
PCOMP
FROM
CVD
THRU
TYPE
DHR

External References

Name Field # of Occurrence
$$DX^ABMCVAPI DX+2
PAUSE^ABMDE1 DISP+2, AHR+1, DX+3, STAT+1, THRU+1
SUM^ABMDE1 DISP+3, V1+1
^ABMDERR V1+2
$$HDT^ABMDUTL ADMIT, DISCH, FROM, THRU

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"[1] Admission Date...: ",$$HDT^ABMDUTL($P(ABM("C6"),U,1))
  • Line Location: ADMIT+0
Function Call: WRITE
  • Prompt: ?40,"[2] Admission Hour....: ",$P(ABM("C6"),U,2)
  • Line Location: AHR+0
Function Call: WRITE
  • Prompt: !,"[3] Admission Type...: "
  • Line Location: TYPE+0
Function Call: WRITE
  • Prompt: $E((100+$P(^(0),U,1)),2,3)," (",ABM(1),")"
  • Line Location: TYPE+0
Function Call: WRITE
  • Prompt: ?40,"[3a] Newborn Days...: ",$P(ABM("C5"),U,10)
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: !,"[4] Admission Source.: "
  • Line Location: SRC+0
Function Call: WRITE
  • Prompt: $E((100+$P(^(0),U,1)),2,3)," (",ABM(1),")"
  • Line Location: SRC+0
Function Call: WRITE
  • Prompt: ABM(1)," (",$E($$ICDDX^ABMCVAPI(ABM(1),ABMP("VDT")),1,49),")"
  • Line Location: DX+0
Function Call: WRITE
  • Prompt: ABM(1)," (",$E($P($$DX^ABMCVAPI(ABM(1),ABMP("VDT")),U,4),1,49),")"
  • Line Location: DX+1
Function Call: WRITE
  • Prompt: !!,"[6] Discharge Date...: ",$$HDT^ABMDUTL($P(ABM("C6"),U,3))
  • Line Location: DISCH+0
Function Call: WRITE
  • Prompt: ?40,"[7] Discharge Hour....: ",$P(ABM("C6"),U,4)
  • Line Location: DHR+0
Function Call: WRITE
  • Prompt: !,"[8] Discharge Status.: "
  • Line Location: STAT+0
Function Call: WRITE
  • Prompt: $E((100+$P(^(0),U,1)),2,3)," (",ABM(1),")"
  • Line Location: STAT+0
Function Call: WRITE
  • Prompt: !,"[9] Service From Date: ",$$HDT^ABMDUTL($P(ABM("C7"),U,1))
  • Line Location: FROM+0
Function Call: WRITE
  • Prompt: ?40,"[10] Service Thru Date: ",$$HDT^ABMDUTL($P(ABM("C7"),U,2))
  • Line Location: THRU+0
Function Call: WRITE
  • Prompt: !,"[11] Covered Days...: ",$P(ABM("C7"),U,3)
  • Line Location: CVD+0
Function Call: WRITE
  • Prompt: ?40,"[12] Non-Cvd Days...: ",$P(ABM("C6"),U,6)
  • Line Location: NONCOVD+0
Function Call: WRITE
  • Prompt: !,"[13] Prior Auth Number.....: ",$P(ABM("C5"),U,12)
  • Line Location: AUTH+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDCLM - [#9002274.3] CNODES
^ABMDCODE - [#9002274.03] TYPE, SRC, STAT
^ICD9 - [#80] DX+2

Naked Globals

Name Field # of Occurrence
^(0 TYPE, SRC, STAT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABM("C5" CNODES*, TYPE, TYPE+1, SRC, DX+2, STAT, AUTH, PCOMP+3
>> ABM("C6" CNODES*, ADMIT, AHR, DISCH, DHR, NONCOVD
>> ABM("C7" CNODES*, FROM, THRU, CVD
>> ABM(1 TYPE*, SRC*, DX+2*, STAT*
>> ABMP("CDFN" CNODES
>> ABMP("DDL" DISP+2
>> ABMP("FLAT" PCOMP+2
>> ABMP("VDT" DX+2
>> ABMP("VTYP" PCOMP+1
>> ABMZ("PG" DISP+1*
>> ABMZ("TITL" DISP+1*, V1+1*
>> DIROUT DISP+2, AHR+1, DX+3, STAT+1, THRU+1
>> DTOUT DISP+2, AHR+1, DX+3, STAT+1, THRU+1
>> DUOUT DISP+2, AHR+1, DX+3, STAT+1, THRU+1
DUZ(2 CNODES
IOSL DISP+2, AHR+1, DX+3, STAT+1, THRU+1
U ADMIT, AHR, TYPE, TYPE+1, SRC, DX+2, DISCH, DHR, STAT, FROM
, THRU, CVD, NONCOVD, AUTH, PCOMP+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All