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 |  All
Print Page as PDF
Routine: ACHSPAC

Package: Contract Health Management Information System

Routine: ACHSPAC


Information

ACHSPAC ; IHS/ITSC/JVK - VIEW/PRINT DOCUMENTS FOR A PATIENT ACC NO ; [ 01/26/2005 10:53 PM ]

Source Information

Source file <ACHSPAC.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 4 ($$DATE,$$EBB,$$HRN,CPI,ERPT,PTLK,RTRN)^ACHS  ^ACHSAD  (BRPT,READ,SLV)^ACHSFU  FC^ACHSUF  
IHS VA Utilities 1 $$C^XBFUNC  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
A ; Main loop.
AGAIN ;
B ;
PAT ;
HDR ; Print header.
START ;EP - From TaskMan.
K ;EP - Kill vars, do ERPT, quit.
DEV ;
BDT ;
END ;
EDT ;
B3 ;
P6 ;
DISPLAY ; View document selected from the report.

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC DEV+6
^%ZTLOAD DEV+9
$$DATE^ACHS BDT+1, EDT+1
$$EBB^ACHS EDT+3
$$HRN^ACHS START+4
CPI^ACHS P6+6, END+3, HDR+3
ERPT^ACHS K+2
PTLK^ACHS PAT+4
RTRN^ACHS A+4, P6+6
^ACHSAD DISPLAY+11
BRPT^ACHSFU START+9
READ^ACHSFU B+5
SLV^ACHSFU DEV+2
FC^ACHSUF START+1
^DIR DISPLAY+3, DISPLAY+16, AGAIN+4
$$C^XBFUNC START+4, START+5, START+8, HDR+4
$$FMTE^XLFDT DEV+7, START+5
$$REPEAT^XLFSTR HDR+4, HDR+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"This patient has no CHS documents on file.",!
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: !!,"TYPE of service:"
  • Line Location: B+1
Function Call: WRITE
  • Prompt: ?20,$P(ACHS(ACHS),":",1)," ",$P(ACHS(ACHS),":",2),!
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !,"Select TYPE of service (1 - ",ACHS-1," 'A' = 'ALL') ALL // "
  • Line Location: B+4
Function Call: WRITE
  • Prompt: !!,"Enter an ""A"" to view documents for all types of service,",!,"otherwise, enter a number from 1 to ",ACHS-1,".",!
  • Line Location: B+10
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !!,"NO DOCUMENT ZERO NODE FOR X-REF PB FOR FACILITY: "_DUZ(2)_" DOCUMENT IEN: "_ACHSDOC_" PATIENT DFN: "_DFN
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !!,"PLEASE NOTIFY YOUR SITE MANAGER IMMEDIATELY!!"
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !!,"PLEASE NOTIFY YOUR SITE MANAGER IMMEDIATELY!!"
  • Line Location: A+4
Function Call: WRITE
  • Prompt: $P(ACHSDOC0,U,14),"-",$P(ACHSDOC0,U)
  • Line Location: A+8
Function Call: WRITE
  • Prompt: ?8,ACHSPAC
  • Line Location: A+12
Function Call: WRITE
  • Prompt: ?24,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: A+17
Function Call: WRITE
  • Prompt: ?24,$E($P(^(0),U),1,22)
  • Line Location: A+18
Function Call: WRITE
  • Prompt: ?34,$E($P(^(0),U),1,22)
  • Line Location: A+19
Function Call: WRITE
  • Prompt: ?58,$E($P($P(ACHSTOS,";",$P(ACHSDOC0,U,4)),":",2),1,2)
  • Line Location: A+21
Function Call: WRITE
  • Prompt: ?61,$P($P(ACHSSTS,";",$P(ACHSDOC0,U,12)+1),":",2)
  • Line Location: P6+1
Function Call: WRITE
  • Prompt: ?66,$J($FN(X,",",2),12),!
  • Line Location: P6+4
Function Call: WRITE
  • Prompt: ?69,"----------",!,"Total documents seen: ",$FN(ACHSTOT,","),?66,$J("$"_$FN(ACHSTOT("$"),",",2),12),!!?45,"LESS CANCELS",?66,$J($FN(-ACHSCANC,",P",2),13),!?69,"==========",!?66,$J("$"_$FN(ACHSCTOT,",",2),12)
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",79),!,$$C^XBFUNC("CHS DOCUMENTS FOR A SPECIFIC PATIENT",80),!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,ACHST1,!,ACHST2,!,ACHST3,!,?34,$P(^DIC(4,DUZ(2),0),U),!,$$REPEAT^XLFSTR("*",79)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"DOC #",?7,"ACC #",?24,"DATED",?34,"VENDOR",?55,"TYPE",?61,"STATUS",?69,"AMOUNT",!,$$REPEAT^XLFSTR("-",79),!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: !!!
  • Line Location: AGAIN+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIR
  • Line Location:
    • DISPLAY+3
    • DISPLAY+16
    • AGAIN+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] PAT+6, A+1, A+3, A+11, A+13, A+23, A+24, A+25
^AUTTLOC - [#9999999.06] ACHSPAC+6, PAT+2, PAT+4, START+14
^AUTTLOC("B" START+14
^AUTTVNDR - [#9999999.11] A+19
^DD(9002080.01 B+2, START+6, START+7
^DIC(4 - [#4] HDR+4
^DPT - [#2] DEV+7, START+4

Label References

Name Line Occurrences
@( ACHSPAC+6, PAT+2
A A+5, P6+8, DISPLAY+5, DISPLAY+18, AGAIN+5
AGAIN DISPLAY+7
B B+10
B3 B+9
BDT EDT+3, B+7
DEV DEV+6, DEV+10
DISPLAY P6+5, END+2
END A+2
HDR START+11, P6+6, DISPLAY+5, DISPLAY+18, AGAIN+5
K PAT+5, BDT+2, EDT+2, B+6, DEV+3, DEV+12, START+2, A+4, P6+6, DISPLAY+17
, AGAIN+6
P6 A+23
PAT PAT+6
START DEV+4

Naked Globals

Name Field # of Occurrence
^( A+25
^("PA" A+23, A+24
^("ZA" A+23
^(0 A+19
^(3 A+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEV+8*
>> %ZIS DEV+1*
A ACHSPAC+5!
>> ACHS B+3*, B+4, B+10, A+25*
>> ACHS( B+3*
>> ACHSBDT BDT+1*, BDT+2, EDT+3, DEV+7, START+5, A+5
>> ACHSBM P6+6
ACHSCANC START+3*, A+26*, P6+3, END+1, K+1!, AGAIN+5*
ACHSCTOT START+3*, P6+3*, END+1, K+1!
ACHSDOC START+3*, A+1*, A+2, A+3, A+4, A+11, A+13, A+23, A+24, A+25
, K+1!, DISPLAY+10~, AGAIN+5*
ACHSDOC0 A+3*, A+4, A+5, A+8, A+14, A+19, A+21, A+24, A+25, A+26
, P6+1, K+1!
ACHSDVEW START+12!, K+1!, DISPLAY+8*
>> ACHSEDT EDT+1*, EDT+2, EDT+3, DEV+7, START+5, A+5
>> ACHSERR START+2
ACHSFAC START+14*, K+1!
>> ACHSIO PAT+7*
>> ACHSPAC A+11*, A+12
>> ACHSPG HDR+1*, HDR+4, DISPLAY+7, AGAIN+5*
ACHSPPC K+1!
ACHSPPO START+10, K+1!
>> ACHSQUIT P6+6
>> ACHSRPT B3+1*, DEV+7, START+8, A+5
ACHSSTS START+7*, P6+1, K+1!
>> ACHST1 START+4*, HDR+4
>> ACHST2 START+5*, HDR+4
>> ACHST3 START+8*, HDR+4
ACHSTOS B+2*, B+3, START+6*, START+8, A+21, K+1!
ACHSTOT START+3*, P6+7*, END+1, K+1!, DISPLAY+5*, AGAIN+5*
ACHSTOT("$" START+3*, P6+2*, P6+3, END+1, AGAIN+5*
>> ACHSUSR HDR+4
ACHSVQIT START+13*, END+2*, K+1!, DISPLAY+5, DISPLAY+7, DISPLAY+18, AGAIN+5*
ACHSYAYA ACHSPAC+6*!, PAT+2*!
DFN ACHSPAC+5!, ACHSPAC+6, PAT+2, PAT+5, PAT+6, DEV+7, START+4, A+1, A+4, K+1!
, DISPLAY+10~
DIR DISPLAY+1!, DISPLAY+4!, DISPLAY+13!, AGAIN+1!
DIR("A" DISPLAY+2*, AGAIN+2*
DIR("B" DISPLAY+2*, AGAIN+2*
DIR(0 DISPLAY+2*, DISPLAY+14*, AGAIN+2*
>> DTOUT B+6
>> DUOUT B+7
DUZ(2 ACHSPAC+6, PAT+2, PAT+4, PAT+6, START+4, START+14, A+1, A+3, A+4, A+11
, A+13, A+23, A+24, A+25, HDR+4
IO PAT+7
IO("Q" DEV+4, DEV+5!
IO("S" DEV+2, DEV+6, START+10
IOF HDR+2
IOST DEV+6, P6+5, P6+6, END+2, END+3, HDR+3
>> POP DEV+3
U ACHSPAC+6, PAT+2, PAT+4, B+2, DEV+7, START+4, START+6, START+7, START+14, A+5
, A+8, A+11, A+13, A+14, A+19, A+21, A+24, A+25, A+26, P6+1
, HDR+4
>> X A+23*, A+24*, A+25*, A+26, P6+2, P6+4
Y B+8*, B+9, B+10, B3+1, A+9!, A+13*, A+14*, A+17, DISPLAY+5, DISPLAY+6
, DISPLAY+7, DISPLAY+17, AGAIN+5
>> ZTDESC DEV+7*
>> ZTRTN DEV+7*
>> ZTSAVE( DEV+8*
ZTSK DEV+10, DEV+11!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All