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

Package: Contract Health Management Information System

Routine: ACHSHV04


Information

ACHSHV04 ; IHS/ITSC/PMF - PRINT/PROCESS HV NOTIFICATION DATA ; [ 06/27/2003 8:35 AM ]

Source Information

Source file <ACHSHV04.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Contract Health Management Information System 6 $$AOP^ACHS  ^ACHSHV01  ^ACHSHVRC  (10,CHK16)^ACHSPS16  ERROR^ACHSTCK1  ^ACHSVAR  
IHS VA Utilities 3 $$DIR^XBDIR  $$C^XBFUNC  EN^XBVK  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ($$OPEN,$$STATUS)^%ZISH  
VA Fileman 1 DD^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHS-HV-PRINT NOTIFICATION  

Entry Points

Name Comments DBIA/ICR reference
FILDPSC1 ;
FILDPSC2 ;
A2A ;
PRINT ; Check if user has pressed ESC, else print line.
END ; Reset printer from condensed print.
PRINTSEL ; Select printer for report.
SUSPEND ; User suspended printing.
A1 ; Display name of vendors that reports exist for.
A0 ; Mail Loop.
A2 ;
A5 ; Ask user to pick vendor.
PRINTR ;
PROCESSA ;
ENDZ ; Close device(s), kill vars, quit.
PTRSTOP ; User pressed ESC to suspend printing.
PRINTC ;
FILDSKP6 ;
A7C ;
A7B ;
A7A ;
PROCESS ; Ensure OUTPAT report, then scan.
FILDSKP7 ;
PREOF ;
B2 ; Ask user to PRINT or SCAN FOR ERRORS.
FILDPSF ; Ask user to pick file.
FILDPSC ; Display file info about selected vendor.

External References

Name Field # of Occurrence
DD^%DT FILDPSC2+8, FILDPSC2+12, FILDSKP6+3
^%ZIS PRINTSEL+4, A7B+2
HOME^%ZIS ACHSHV04+3
^%ZISC ENDZ+1, ENDZ+2
$$OPEN^%ZISH A7C+5
$$STATUS^%ZISH A7C+9
$$AOP^ACHS A7C+4, A7C+5
^ACHSHV01 PROCESSA+1
^ACHSHVRC A0+1
10^ACHSPS16 END+1
CHK16^ACHSPS16 PRINTSEL+11
ERROR^ACHSTCK1 A7C+5
^ACHSVAR ENDZ+3
$$DIR^XBDIR A5+1, A5+2, FILDPSF+2, B2+1, PRINTSEL+14, PREOF+4, PTRSTOP+4, SUSPEND+2
$$C^XBFUNC ACHSHV04+6
EN^XBVK ENDZ+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("Just a moment -- Reading File Information",70),!
  • Line Location: ACHSHV04+6
Function Call: WRITE
  • Prompt: !!?5,"NOTIFICATION REPORTS EXIST FOR THE FOLLOWING VENDORS: ",!!
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: ?5,ACHSCT,?10,ACHSFN,!
  • Line Location: A2A+5
Function Call: WRITE
  • Prompt: !?10,"NONE FOUND..."
  • Line Location: A5+1
Function Call: WRITE
  • Prompt: !!,X,!," #",?5,"UNIX FILE",?17,"REPORT",?25,"REPORT DATE",?38,"# RCDS",?46,"LAST PRINTED",?60,"PROCESS DATE",!,X,!
  • Line Location: FILDPSC+5
Function Call: WRITE
  • Prompt: !,$J(ACHSCNT,3),?5,$P(^ACHSHVLG(ACHSV,1,ACHSRR,0),U,4)
  • Line Location: FILDPSC2+4
Function Call: WRITE
  • Prompt: ?17,$S(X="O":"OUTPAT",X="D":"DENTAL",X="I":"INPAT",1:"UNKNWN")
  • Line Location: FILDPSC2+6
Function Call: WRITE
  • Prompt: ?25,Y,?38,$J($P(^ACHSHVLG(ACHSV,1,ACHSRR,0),U,3),5)
  • Line Location: FILDPSC2+9
Function Call: WRITE
  • Prompt: ?46,Y
  • Line Location: FILDPSC2+13
Function Call: WRITE
  • Prompt: ?60,Y
  • Line Location: FILDSKP6+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINTSEL+2
Function Call: WRITE
  • Prompt: !,*7,"Device Not Available -- Job Aborted"
  • Line Location: PRINTSEL+6
Function Call: WRITE
  • Prompt: !!,*7,?10,"Selection of Slave Printer not allowed -- Please Select Again"
  • Line Location: PRINTSEL+7
Function Call: WRITE
  • Prompt: !!,*7,"Device Right Margin < 132 Char -- Select another Device"
  • Line Location: PRINTSEL+9
Function Call: WRITE
  • Prompt: !!?10,"Your Request is now being Processed",!
  • Line Location: A7A+2
Function Call: WRITE
  • Prompt: !!,"Device Unavailable"
  • Line Location: A7B+3
Function Call: WRITE
  • Prompt: @ACHS("PRINT",16)
  • Line Location: A7C+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: A7C+8
Function Call: READ
  • Timeout: 1
  • Variable: ACHSLINE
  • Line Location: A7C+9
Function Call: WRITE
  • Prompt: !!,"PRINTING HAS COMPLETED "
  • Line Location: PREOF+2
Function Call: READ
  • Timeout: 1
  • Variable: *ACHSESC
  • Line Location: PRINTC+2
Function Call: WRITE
  • Prompt: ACHSLINE,!
  • Line Location: PRINTR+2
Function Call: WRITE
  • Prompt: *7,*7,*7
  • Line Location: PTRSTOP+2
Function Call: READ
  • Timeout: 0
  • Variable: ACHSESC
  • Line Location: PTRSTOP+3
Function Call: WRITE
  • Prompt: *7,!!?10,"Only Outpatient Reports can be Scanned for Errors"
  • Line Location: PROCESS+3
Routine Call
  • %ZIS
  • Line Location:
    • ACHSHV04+3
Routine Call
  • %ZIS
  • Line Location:
    • PRINTSEL+4
    • A7B+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSHVLG - [#9002078] FILDPSC2+4, FILDPSC2+5, FILDPSC2+7, FILDPSC2+9, FILDPSC2+10, FILDSKP6+1, A7C+4, A7C+5, PREOF+3, PROCESS+1
^ACHSHVLG("C" A2A+1, FILDPSC1+1, FILDPSC2+1
^AUTTVNDR - [#9999999.11] A2A+3

Label References

Name Line Occurrences
A0 PRINTSEL+12, PRINTSEL+14
A1 FILDPSF+3, PREOF+5, SUSPEND+5, PROCESS+5, PROCESSA+2
A2A A2A+6
A5 A2A+2
A7A PRINTSEL+13
END A0+2, PRINTSEL+6, PRINTSEL+14, A7B+3, A7C+5, SUSPEND+3
ENDZ A5+1, A5+3
FILDPSC B2+2, SUSPEND+4
FILDPSC1 FILDPSC2+2
FILDPSC2 FILDSKP7+1
FILDPSF FILDPSC1+2
FILDSKP6 FILDPSC2+11
FILDSKP7 FILDSKP6+2
PREOF A7C+9
PRINT A7C+9
PRINTC PRINT+2
PRINTR PRINT+3
PRINTSEL B2+3, PRINTSEL+7, PRINTSEL+9
PROCESS B2+3
PROCESSA PROCESS+1
PTRSTOP PRINTC+3
SUSPEND A7C+9

Naked Globals

Name Field # of Occurrence
^(0 PREOF+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A5+1*
%ZIS PRINTSEL+3*, PRINTSEL+5!
%ZIS("A" PRINTSEL+3*
>> ACHS("PRINT" PRINTSEL+13, A7C+1
>> ACHSCNT A5+6*, FILDPSC+1*, FILDPSC2+3*, FILDPSC2+4, FILDPSF+2
>> ACHSCT A1+1*, A2A+3*, A2A+5, A5+1, A5+2
ACHSCTZ A2+1!, A5+5!, FILDPSC+2!
ACHSCTZ( A2A+3*, A5+4, FILDPSC2+3*, FILDPSF+4
>> ACHSDELD FILDPSC+1*
>> ACHSDSAV FILDPSC+1*
>> ACHSEMSG A7C+5*
>> ACHSESC PRINTC+2*, PRINTC+3, PTRSTOP+3*
>> ACHSFN A2A+3*, A2A+5
>> ACHSHFS1 A7C+6*, A7C+9, ENDZ+2
>> ACHSHMD ACHSHV04+4*, ACHSHV04+5, A1+2, A2A+4, FILDPSC+4, FILDPSF+1, PRINTSEL+1, PRINTSEL+6, A7C+7, PREOF+1
, PRINTC+1, PTRSTOP+1
>> ACHSI A7C+9*
>> ACHSJFLG A0+2
ACHSKILL A7C+3!, A7C+9, PTRSTOP+5*
>> ACHSLINE A7C+9*, PRINTR+2
>> ACHSNO FILDPSF+4*, A7C+4, A7C+5, PREOF+3, PROCESS+1
>> ACHSPRT PRINTSEL+10*, A7C+1, PRINTR+1, ENDZ+1
>> ACHSPTRN PRINTSEL+8*, A7B+1
>> ACHSR A1+1*, A2A+1*, A2A+2, A2A+3, FILDPSC+1*, FILDPSC1+1*, FILDPSC1+2, FILDPSC2+1
>> ACHSRCT A7C+2*, PRINT+1*, PRINT+2
>> ACHSRR A1+1*, FILDPSC+1*, FILDPSC2+1*, FILDPSC2+2, FILDPSC2+3, FILDPSC2+4, FILDPSC2+5, FILDPSC2+7, FILDPSC2+9, FILDPSC2+10
, FILDSKP6+1
>> ACHSV A5+4*, FILDPSC1+1, FILDPSC2+1, FILDPSC2+4, FILDPSC2+5, FILDPSC2+7, FILDPSC2+9, FILDPSC2+10, FILDSKP6+1, A7C+4
, A7C+5, PREOF+3, PROCESS+1
>> ACHSZFN A7C+4*
DA ENDZ+4!
DIC ENDZ+4!
DIR ENDZ+4!
DT PREOF+3
>> DTOUT A5+3, FILDPSF+3, B2+2, SUSPEND+3
>> DUOUT A5+3, FILDPSF+3, B2+2, PRINTSEL+12, PTRSTOP+5, SUSPEND+3
IO PRINTSEL+10, A7C+6, ENDZ+1*, ENDZ+2*
IO("S" PRINTSEL+7
IO(0 ACHSHV04+4, A5+1, PRINTSEL+7, A7A+1, A7B+3, SUSPEND+1, PROCESS+2
IOM PRINTSEL+9
ION PRINTSEL+8
>> IONOFF ENDZ+2*
>> IOP A7B+1*
>> POP PRINTSEL+6, A7B+3
U A2A+3, FILDPSC2+4, FILDPSC2+5, FILDPSC2+7, FILDPSC2+9, FILDPSC2+10, FILDSKP6+1, A7C+4, A7C+5, PREOF+3
, PROCESS+1
X A5+2*, A5+4, FILDPSC+3*, FILDPSC+5, FILDPSC2+5*, FILDPSC2+6, FILDPSF+2*, FILDPSF+4, ENDZ+4!
Y FILDPSC2+7*, FILDPSC2+9, FILDPSC2+10*, FILDPSC2+11, FILDPSC2+13, FILDSKP6+1*, FILDSKP6+2, FILDSKP6+4, B2+1*, B2+3
, SUSPEND+2*, SUSPEND+4, ENDZ+4!
Z ENDZ+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All