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 |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSPDC

Package: Contract Health Management Information System

Routine: ACHSPDC


Information

ACHSPDC ; IHS/ITSC/PMF - VIEW/PRINT DOCUMENTS FOR A PATIENT ; [ 01/26/2005 10:31 PM ]

Source Information

Source file <ACHSPDC.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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSPATDOCS  

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+7, END+3, HDR+3
ERPT^ACHS K+2
PTLK^ACHS PAT+4
RTRN^ACHS A+4, P6+7
^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: ACHSFAC,?7,$P(ACHSDOC0,U,14),ACHSFC,$P(ACHSDOC0,U)
  • Line Location: A+6
Function Call: WRITE
  • Prompt: ?17,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: A+12
Function Call: WRITE
  • Prompt: ?24,$E($P(^(0),U),1,22)
  • Line Location: A+13
Function Call: WRITE
  • Prompt: ?27,$E($P(^(0),U),1,22)
  • Line Location: A+14
Function Call: WRITE
  • Prompt: ?51,$E($P($P(ACHSTOS,";",$P(ACHSDOC0,U,4)),":",2),1,2)
  • Line Location: A+16
Function Call: WRITE
  • Prompt: ?54,$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: ?5,^ACHSF(DUZ(2),"D",ACHSDOC,"BJI"),!
  • Line Location: P6+5
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,!,$$REPEAT^XLFSTR("*",79)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"FAC",?7,"DOCUMENT",?17,"DATED",?26,"VENDOR",?47,"TYPE",?52,"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+8, A+18, A+19, A+20, P6+5
^AUTTLOC - [#9999999.06] ACHSPDC+6, PAT+2, PAT+4, START+14
^AUTTLOC("B" START+14
^AUTTVNDR - [#9999999.11] A+14
^DD(9002080.01 B+2, START+6, START+7
^DPT - [#2] DEV+7, START+4

Label References

Name Line Occurrences
@( ACHSPDC+6, PAT+2
A A+5, P6+9, 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+6, END+2
END A+2
HDR START+11, P6+7, DISPLAY+5, DISPLAY+18, AGAIN+5
K PAT+5, BDT+2, EDT+2, B+6, DEV+3, DEV+12, START+2, A+4, P6+7, DISPLAY+17
, AGAIN+6
P6 A+18
PAT PAT+6
START DEV+4

Naked Globals

Name Field # of Occurrence
^( A+20
^("PA" A+18, A+19
^("ZA" A+18
^(0 A+14
^(3 A+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEV+8*
>> %ZIS DEV+1*
A ACHSPDC+5!
>> ACHS B+3*, B+4, B+10, A+20*
>> ACHS( B+3*
>> ACHSBDT BDT+1*, BDT+2, EDT+3, DEV+7, START+5, A+5
>> ACHSBM P6+7
ACHSCANC START+3*, A+21*, 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+8, A+18, A+19, A+20, P6+5
, K+1!, DISPLAY+10~, AGAIN+5*
ACHSDOC0 A+3*, A+4, A+5, A+6, A+9, A+14, A+16, A+19, A+20, A+21
, 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*, A+6, P6+5, K+1!
>> ACHSFC A+6
>> ACHSIO PAT+7*
>> ACHSPG HDR+1*, HDR+4, DISPLAY+7, AGAIN+5*
ACHSPPC K+1!
ACHSPPO START+10, K+1!
>> ACHSQUIT P6+7
>> 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+16, K+1!
ACHSTOT START+3*, P6+8*, 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 ACHSPDC+6*!, PAT+2*!
DFN ACHSPDC+5!, ACHSPDC+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 ACHSPDC+6, PAT+2, PAT+4, PAT+6, START+4, START+14, A+1, A+3, A+4, A+8
, A+18, A+19, A+20, P6+5
IO PAT+7
IO("Q" DEV+4, DEV+5!
IO("S" DEV+2, DEV+6, START+10
IOF HDR+2
IOST DEV+6, P6+6, P6+7, END+2, END+3, HDR+3
>> POP DEV+3
U ACHSPDC+6, PAT+2, PAT+4, B+2, DEV+7, START+4, START+6, START+7, START+14, A+5
, A+6, A+8, A+9, A+14, A+16, A+19, A+20, A+21, P6+1
>> X A+18*, A+19*, A+20*, A+21, P6+2, P6+4
Y B+8*, B+9, B+10, B3+1, A+7!, A+8*, A+9*, A+12, 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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All