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 |  Local Variables |  All
Print Page as PDF
Routine: ACHSUD

Package: Contract Health Management Information System

Routine: ACHSUD


Information

ACHSUD ; IHS/ITSC/PMF - SELECT CHS DOCUMENT FOR DISPLAY ; [ 05/20/2003 1:56 PM ]

Source Information

Source file <ACHSUD.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS VA Utilities 2 $$DIR^XBDIR  $$EXTSET^XBFUNC  
Contract Health Management Information System 1 ($$FC,$$PARM,RTRN)^ACHS  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Contract Health Management Information System 20 ACHS278O  ACHSACT  ACHSAD  ACHSADTR  ACHSAJ  ACHSBMC  ACHSBUG3  ACHSCEDT  
ACHSEDOC  ACHSFIM  ACHSPAI  ACHSPAM  ACHSPAP2  ACHSRMVD  ACHSRR  ACHSTX1R  
ACHSTX2R  ACHSTXAR  ACHSUSC  ACHSYEX  

Entry Points

Name Comments DBIA/ICR reference
Q1 ;EP - From ^DIR.
; W !," Enter the Patient's Name, or"
Q3 ;EP - From call to ^DIC. See line Q2+1.
Q2 ;
NAME ; undocumented feature...too slow to publish.
DISTRANS(D,T) ;
SELTRANS(D) ;EP - Display trans of doc D, and allow selection.
A1 ;
A3 ;
A2 ;
ACHSUDOD ;

External References

Name Field # of Occurrence
$$FC^ACHS A2+1
$$PARM^ACHS NAME+2
RTRN^ACHS Q3+7
^DIC A3+1, NAME+5, Q2+6
$$DIR^XBDIR A1+2, Q2+1, SELTRANS+7
$$EXTSET^XBFUNC DISTRANS+2
$$FMTE^XLFDT DISTRANS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: Y
  • Line Location: A1+5
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: A1+11
Function Call: WRITE
  • Prompt: !," Enter the Patient's Name, or"
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !!," Enter the 'Order Number' for the document",!," In the following format: F-LOC-NUMBER",!!," Where",!?12,"F",?20,"Is the one-digit fiscal year code",!?12,"LOC",?20,"Is the three-character financial location code"
  • Line Location: Q1+2
Function Call: WRITE
  • Prompt: !?12,"NUMBER",?20,"Is The 5-digit document number",!!," You May Omit The First Two Items If You Wish",!," (Current Fiscal Year And Location Code Will Be Assumed)",!," Also, leading zeros on the document are OPTIONAL."
  • Line Location: Q1+3
Function Call: WRITE
  • Prompt: !!,"SOMETHING WRONG WITH THIS FACILITY'S FINANCE CODE"
  • Line Location: Q3+7
Function Call: WRITE
  • Prompt: !!,"REPORT THIS TO YOUR SITE MANAGER IMMEDIATELY!!"
  • Line Location: Q3+7
Function Call: WRITE
  • Prompt: ?14,$P(DOCDATA,U,14),"-",ACHSFC,"-",$P(DOCDATA,U)_"("_+Y_")"
  • Line Location: Q3+12
Function Call: WRITE
  • Prompt: ?30,$S(ACHS=1:"HOSPITAL",ACHS=2:"DENTAL",ACHS=3:"OUTPATIENT",1:"??")
  • Line Location: Q3+17
Function Call: WRITE
  • Prompt: ?45,$S(ACHS=0:"OPEN",ACHS=1:"SUPPLEMENTAL",ACHS=2:"PARTIAL CANCEL",ACHS=3:"PAID",ACHS=4:"CANCELED",1:"??")
  • Line Location: Q3+20
Function Call: WRITE
  • Prompt: ?75,$P(DOCDATA,U)
  • Line Location: Q3+27
Function Call: WRITE
  • Prompt: !!?10,"----------------------------------------------------",!?10,"TRANS",?30,"TRANS",!?11,"NUM",?19,"D A T E",?30,"TYPE",?40,"AMOUNT",!?10,"----------------------------------------------------",!!
  • Line Location: SELTRANS+3
Function Call: WRITE
  • Prompt: !?10,$J(C,3)
  • Line Location: SELTRANS+6
Function Call: WRITE
  • Prompt: ?17,$$FMTE^XLFDT($P(Y,U,1)),?32,$P(Y,U,2),$P(Y,U,5),?35,$J($FN($P(Y,U,4),",",2),11)," <",$$EXTSET^XBFUNC(9002080.02,1,$P(Y,U,2)),">"
  • Line Location: DISTRANS+2
Routine Call
  • DIC
  • Line Location:
    • A3+1
    • NAME+5
    • Q2+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] Q3+3, SELTRANS+6, DISTRANS+1
^AUTTAREA - [#9999999.21] Q3+9
^AUTTLOC - [#9999999.06] Q3+6, Q3+9
^DISV( A1+5, A3+5*

Label References

Name Line Occurrences
A1 A1+11, A3+3
A2 A1+13
A3 NAME+11
DISTRANS SELTRANS+6
NAME A1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACHS Q3+13*, Q3+17, Q3+19*, Q3+20
>> ACHSCFY A2+2
ACHSDIEN ACHSUDOD+1!, A3+4*
ACHSDUZ2 NAME+1~, NAME+2*, NAME+8
>> ACHSFC A2+1*, A2+3, Q3+6*, Q3+7, Q3+9*, Q3+12
ACHSYAYA NAME+8*!
>> AUPNLK("INAC" NAME+3*, NAME+6!
C A1+10*, A1+13*, A1+14*, A2+2*, A2+6, SELTRANS+1~, SELTRANS+5*, SELTRANS+6*, SELTRANS+7
C( SELTRANS+6*, SELTRANS+9
D SELTRANS~, SELTRANS+6, DISTRANS~, DISTRANS+1
D0 ACHSUDOD+1!
DA ACHSUDOD+1!
DFN NAME+6!, NAME+7*, NAME+9
DIC ACHSUDOD+1!, A2+7*, A3+2!, NAME+3*, NAME+6!, NAME+10*, Q2+2!, Q2+4*, Q2+6!
DIC("S" NAME+10*
DIC("W" NAME+10*, Q2+5*
DIC(0 A2+8*, NAME+3*, NAME+10*, Q2+4*
>> DOCDATA Q3+3*, Q3+12, Q3+13, Q3+19, Q3+23
>> DTOUT A1+3, SELTRANS+8
>> DUOUT A1+3, SELTRANS+8
DUZ A1+5, A3+5
DUZ(2 A2+1, A2+7, NAME+2*, NAME+8*, NAME+10, Q2+4, Q3+3, Q3+6, Q3+9, SELTRANS+6
, DISTRANS+1
>> F A1+9*, A1+10*, A1+13*, A1+14*, A2+3*, A2+4*
>> I A1+8*, A1+9*
>> LISTCNT Q2+3*, Q3+2*
>> N A1+10*, A1+12*, A2+5*, A2+6
>> P A1+10*, A1+11, A1+12, A1+13, A1+14
T SELTRANS+1~, SELTRANS+5*, SELTRANS+6*, DISTRANS~, DISTRANS+1
U A3+5, Q3+6, Q3+9, Q3+12, Q3+13, Q3+19, Q3+23, DISTRANS+2
>> X A2+6*, NAME+4*, NAME+10*, Q2+4*
>> Y A1+2*, A1+3, A1+5*, A1+7, A1+8*, A1+9*, A1+10, A1+12, A1+13, A1+14
, A3+3, A3+4, A3+5, NAME+4, NAME+7, Q3+3, Q3+12, SELTRANS+6*, SELTRANS+7*, SELTRANS+8
, SELTRANS+9, DISTRANS+1*, DISTRANS+2
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 |  Local Variables |  All