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 |  Marked Items |  All
Print Page as PDF
Routine: ACHSSIGA

Package: Contract Health Management Information System

Routine: ACHSSIGA


Information

ACHSSIGA ;IHS/ITSC/JVK -PROGRAM TO LIST SIGNED PO'S WITH E-SIG [ 01/11/2005 7:31 AM ]

Source Information

Source file <ACHSSIGA.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 3 ($$DATE,$$EBB,$$PB,ERPT,RTRN)^ACHS  BRPT^ACHSFU  FC^ACHSUF  
IHS VA Utilities 3 $$C^XBFUNC  VIEWR^XBLM  EN^XBVK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHS E-SIG APPROVED REPORT  

Entry Points

Name Comments DBIA/ICR reference
DATAFLD ;--GET THE DATA FIELDS FOR THE REPORT --
END ;
HDR ;
TITLE ;;E-Signature Approved
K ;
DEV ;
BDT ;--ASK THE DATE RANGE--
KILL ;
EDT ;
PRINT ;
LOOP2 ;
LOOP1 ;--LOOP THRU THE "ESIG" CROSS REFERENCE--

External References

Name Field # of Occurrence
^%ZIS DEV+5
HOME^%ZIS DEV+6
^%ZISC DEV+9, K+2
^%ZTLOAD DEV+14
$$DATE^ACHS BDT+2, EDT+1
$$EBB^ACHS EDT+3
$$PB^ACHS DEV+1
ERPT^ACHS KILL+2
RTRN^ACHS END+3
BRPT^ACHSFU PRINT+3
FC^ACHSUF PRINT+1
$$C^XBFUNC PRINT+4, PRINT+5, HDR+2
VIEWR^XBLM DEV+3
EN^XBVK DEV+3
$$FMTE^XLFDT DEV+12, PRINT+5
$$REPEAT^XLFSTR HDR+5, END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report captures documents signed over a specific dates range.",!
  • Line Location: BDT+1
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+9
Function Call: WRITE
  • Prompt: !,ACHSDOC,?20,$E(ACHSVNDR,1,26),?48,$E(ACHSBDT,4,7),$E(ACHSBDT,2,3),?58,ACHSESIG,!
  • Line Location: DATAFLD+17
Function Call: WRITE
  • Prompt: ACHSPAT,?20,$FN(ACHS("$"),",",2),?48,$E(ACHSODT,4,7),$E(ACHSODT,2,3),?58,ACHSASIG,!
  • Line Location: DATAFLD+19
Function Call: WRITE
  • Prompt: @IOF,!!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("*** CONTRACT HEALTH MANNAGEMENT SYSTEM ***",80),!!,ACHSLOC,!?29,"ELECTRONIC SIGNATURE REPORT"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?77-$L(ZTSK),"(",ZTSK,")"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,ACHSTIME,!,ACHST1,!,ACHST2,!!,"Document Number",?20,"Provider of Service",?48,"Sig Date",?58,"Ordering Official",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "Patient",?20,"Oligation Amt.",?48,"Order Dt.",?58,"Authorizing Official",!,$$REPEAT^XLFSTR("=",79),!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: "Total Documents: ",ACHSCNT,!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSESIG - [#9002080.1] DATAFLD+13
^ACHSF - [#9002080] LOOP1+1, LOOP2+1, LOOP2+2, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4, DATAFLD+5, DATAFLD+6, DATAFLD+10
^AUTTVNDR - [#9999999.11] DATAFLD+15
^DPT - [#2] DATAFLD+5
^VA(200 - [#200] DATAFLD+7, DATAFLD+11

Label References

Name Line Occurrences
BDT EDT+2
DEV DEV+9, DEV+15
EDT EDT+3
END LOOP1+2
HDR PRINT+6
K BDT+3, EDT+2, DEV+2, DEV+3, DEV+6
KILL PRINT+2
LOOP1 LOOP2+2, DATAFLD+15
LOOP2 DATAFLD+21
PRINT DEV+7
TITLE BDT+2, EDT+1, DEV+12

Naked Globals

Name Field # of Occurrence
^(0 DATAFLD+1, DATAFLD+4, DATAFLD+5, DATAFLD+10, DATAFLD+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEV+1*, DEV+2, DEV+3
>> %ZIS DEV+4*
ACHS DEV+13*, K+1!
ACHS("$" DATAFLD+4*, DATAFLD+19
>> ACHSADT DATAFLD+10*
>> ACHSASIG DATAFLD+10*, DATAFLD+11*, DATAFLD+13*, DATAFLD+19
ACHSBDT BDT+2*, BDT+3, EDT+3, DEV+12, K+1!, PRINT+5, PRINT+7*, LOOP1+1*, LOOP1+2, LOOP2+1
, DATAFLD+17
ACHSCNT TITLE+2*, DATAFLD+20*, END+2, KILL+3!
ACHSDOC DATAFLD+16*, DATAFLD+17, KILL+3!
ACHSDOC1 DATAFLD+1*, DATAFLD+16, KILL+3!
ACHSDOC2 DATAFLD+1*, DATAFLD+16, KILL+3!
ACHSEDT EDT+1*, EDT+2, EDT+3, DEV+12, K+1!, PRINT+5, LOOP1+2
>> ACHSERR PRINT+2
ACHSESIG DATAFLD+4*, DATAFLD+7*, DATAFLD+8*, DATAFLD+17, KILL+3!
ACHSFC DATAFLD+16, KILL+1!
ACHSIO TITLE+1*, K+1!
>> ACHSLOC HDR+2
>> ACHSODT DATAFLD+3*, DATAFLD+19
>> ACHSPAT DATAFLD+5*, DATAFLD+6*, DATAFLD+19
>> ACHSPG HDR+1*, HDR+2
ACHSQIO DEV+12*, K+1!
ACHSRPT DEV+12, K+1!
>> ACHST1 PRINT+4*, HDR+4
>> ACHST2 PRINT+5*, HDR+4
>> ACHSTIME HDR+4
>> ACHSUSR HDR+2
ACHSVNDR DATAFLD+15*, DATAFLD+17, KILL+3!
>> ACHSVPTR DATAFLD+2*, DATAFLD+15
DA LOOP1+3*, LOOP2+1*, LOOP2+2, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4, DATAFLD+5, DATAFLD+6, DATAFLD+10
, KILL+4!
DFN KILL+4!
>> DTOUT BDT+3, EDT+2, DEV+2
>> DUOUT BDT+3, EDT+2, DEV+2
DUZ(2 LOOP1+1, LOOP2+1, LOOP2+2, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4, DATAFLD+5, DATAFLD+6, DATAFLD+10
, DATAFLD+13
IO TITLE+1
IO("Q" DEV+7, DEV+8!
IO("S" DEV+9
IOF HDR+2, END+4
IOM DEV+12
ION DEV+12
IOSL DEV+12
IOST DEV+9, DEV+12
>> POP DEV+6
U DEV+2, DATAFLD+1, DATAFLD+2, DATAFLD+3, DATAFLD+4, DATAFLD+5, DATAFLD+6, DATAFLD+7, DATAFLD+10, DATAFLD+11
, DATAFLD+13, DATAFLD+15
X2 TITLE+3!, KILL+4!
X3 TITLE+3!, PRINT+7*, KILL+4!
>> ZTDESC DEV+12*
ZTIO DEV+12*, K+1!
>> ZTQUEUED HDR+3, KILL+1
>> ZTRTN DEV+12*
>> ZTSAVE( DEV+13*
ZTSK DEV+15, K+1!, PRINT+2!, HDR+3

Marked Items

Name Field # of Occurrence
$T(TITLE BDT+2, EDT+1, DEV+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All