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: ACHSIC3

Package: Contract Health Management Information System

Routine: ACHSIC3


Information

ACHSIC3 ; IHS/ITSC/FCJ - REPORT FOR PO WITH ICD ERRORS AND CORRECTIONS;

Source Information

Source file <ACHSIC3.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$REPEAT^XLFSTR  
Contract Health Management Information System 3 ($$PB,RTRN)^ACHS  BRPT^ACHSFU  FC^ACHSUF  
IHS VA Utilities 3 $$C^XBFUNC  VIEWR^XBLM  EN^XBVK  
DRG Grouper 1 $$ICDDX^ICDEX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSRPTICDERROR  

Entry Points

Name Comments DBIA/ICR reference
A ; Main loop.
P3 ; Ask RTRN if EOP, do header, go main loop.
B ;
E ;
HDR ; Print report header.
TITLE ;;ICD UPDATED DOCUMENTS FROM ICD CODE ERROR
K ;
DEV ;
ST ;
KILL ; Do ERPT, kill vars, quit.
PRINT ;EP - From TaskMan.
END ; Print totals, ask RTRN, write IOF.

External References

Name Field # of Occurrence
^%ZIS DEV+6
HOME^%ZIS DEV+7
^%ZISC DEV+10, K+2
^%ZTLOAD DEV+13
$$PB^ACHS DEV+1
RTRN^ACHS P3+2, END+3
BRPT^ACHSFU PRINT+4
FC^ACHSUF PRINT+2
$$ICDDX^ICDEX E+4
$$C^XBFUNC HDR+2
VIEWR^XBLM DEV+4
EN^XBVK DEV+4
$$REPEAT^XLFSTR HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"THERE ARE NOT ANY ICD ERRORS FOUND FOR THIS FACILITY"
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !!,"REPORT FOR DOCUMENTS WITH 3 DIGIT ICD CODE ERRORS."
  • Line Location: ST+4
Function Call: WRITE
  • Prompt: !,"This report is for FI processed PO's only. After the ICD file is processed"
  • Line Location: ST+5
Function Call: WRITE
  • Prompt: !,"from the FI, this report will display the PO and ICD codes that were changed."
  • Line Location: ST+6
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+10
Function Call: WRITE
  • Prompt: $E(ACHSNAME,1,24),?25,$E(ACHSVNDR,1,26),?52,$E(ACHSIDT,4,7),$E(ACHSIDT,2,3)
  • Line Location: E+2
Function Call: WRITE
  • Prompt: !,ACHSDOC,?25,$P($$ICDDX^ICDEX(ICD2),U,2),?52,$P($$ICDDX^ICDEX(ICD3),U,2)
  • Line Location: E+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: P3+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"TOTAL UPDATES = ",CT,!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF,!!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("*** CONTRACT HEALTH MANAGEMENT SYSTEM ***",80),!!,ACHSLOC,!?24,"ICD 3 digit Purchase Order Report"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?77-$L(ZTSK),"(",ZTSK,")"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,ACHSTIME,!!,"Patient Name",?25,"Provider of Service",?52,"Issue"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Document number",?25,"DX CODE",?52,"NEW DX CODE",!,$$REPEAT^XLFSTR("=",79),!
  • Line Location: HDR+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+7
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] A+6
^ACHSICD( ST+1, A+2, A+3, A+4, A+5
^AUTTVNDR - [#9999999.11] B+3
^DPT - [#2] B+6

Label References

Name Line Occurrences
A B+3
B A+7
DEV DEV+10, DEV+14
END A+8
HDR PRINT+5, P3+2
K DEV+2, DEV+4, DEV+7
KILL PRINT+3
PRINT DEV+8
TITLE DEV+11

Naked Globals

Name Field # of Occurrence
^(0 B+3, B+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEV+1*, DEV+2, DEV+4
>> %ZIS DEV+5*
ACHS DEV+12*, K+1!
ACHSBDT K+1!
ACHSBLNK KILL+2!
>> ACHSBM P3+2
ACHSCNX KILL+2!
ACHSDOC B+4*, E+4, KILL+2!
ACHSDOC1 B+2*, B+4, KILL+2!
ACHSDOC2 B+2*, B+4, KILL+2!
ACHSDOS KILL+2!
ACHSEDT K+1!
ACHSEIN KILL+2!
>> ACHSERR PRINT+3
ACHSFC B+4, KILL+1!
>> ACHSIDT E+1*, E+2
ACHSIO ST+2*, K+1!
>> ACHSLOC HDR+2
ACHSNAME B+5!, B+6*, B+7*, E+2, KILL+2!
ACHSOPEN KILL+2!
>> ACHSPG HDR+1*, HDR+2
ACHSQ A+1*, A+2, A+3, P3+2*, KILL+3!
ACHSQIO DEV+11*, K+1!
ACHSQUIT KILL+3!
ACHSREC A+6*, B+2, B+6, B+7, E+1, KILL+3!
ACHSRPT K+1!
ACHSSTS KILL+2!
>> ACHSTIME HDR+4
ACHSTOS KILL+2!
ACHSTOTP KILL+2!
ACHSTYPE KILL+2!
>> ACHSUSR HDR+2
ACHSVNDR B+3*, E+2, KILL+2!
ACHSVPTR B+2*, B+3, KILL+2!
AZUCHSCAN KILL+2!
CT A+1*, B+1*, END+2, KILL+3!
DA A+6*, KILL+3!
DFN B+6*, KILL+3!
>> DTOUT DEV+2, P3+2
>> DUOUT DEV+2, P3+2
DUZ(2 ST+1, A+1
>> ICD2 A+4*, E+4
>> ICD3 A+5*, E+4
IO ST+2
IO("Q" DEV+8, DEV+9!
IO("S" DEV+10
IOF END+1, HDR+2
IOM DEV+11
ION DEV+11
IOSL DEV+11
IOST DEV+10, DEV+11
>> L A+1*, A+2, A+3, A+4, A+5, A+6
>> L1 A+1*, A+2*, A+3, A+4, A+5, A+6
>> L2 A+3*, A+4, A+5
>> POP DEV+7
U DEV+2, A+4, A+5, B+2, B+3, B+6, B+7, E+1, E+4
X2 ST+3!, KILL+3!
X3 ST+3!, PRINT+6*, KILL+3!
>> ZTDESC DEV+11*
ZTIO DEV+11*, K+1!
>> ZTQUEUED KILL+1, HDR+3
>> ZTRTN DEV+11*
>> ZTSAVE( DEV+12*
ZTSK DEV+14, K+1!, PRINT+3!, HDR+3

Marked Items

Name Field # of Occurrence
$T(TITLE DEV+11
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