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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSYEX

Package: Contract Health Management Information System

Routine: ACHSYEX


Information

ACHSYEX ;IHS/SET/GTH - EXTRACT SELECTED DOCS TO FILE ; [ 12/06/2002 10:36 AM ]

Source Information

Source file <ACHSYEX.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Contract Health Management Information System 2 ($$DOC,$$FC,RTRN)^ACHS  ^ACHSUD  
IHS VA Utilities 2 $$DIR^XBDIR  EN^XBSFGBL  
Kernel 2 ^%ZIS  ^%ZISC  
VA Fileman 2 $$IENS^DILF  $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
C ; --- Captioned output.
SUBFILE(ACHSFILE,ACHSDA) ; $O thru a subfile, all records.
BPO ;
PO(ACHS) ;
EPO ;
R ; --- Record output
RECORD(ACHSFILE,ACHSDA) ; Write all fields in one sub-file record.
NUM(X) ;
STOP() ;

External References

Name Field # of Occurrence
^%ZIS EPO+10
^%ZISC EPO+15
$$DOC^ACHS PO+4
$$FC^ACHS PO+4
RTRN^ACHS EPO+15
^ACHSUD PO+2
$$IENS^DILF RECORD+3
$$GET1^DIQ R+8, R+12, R+13, RECORD+6
$$DIR^XBDIR ACHSYEX+19, EPO+13
EN^XBSFGBL SUBFILE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You'll be asked for a beginning and ending P.O. number."
  • Line Location: ACHSYEX+16
Function Call: WRITE
  • Prompt: !,"The info from the selected P.O.(s) will be extracted to the selected Device."
  • Line Location: ACHSYEX+17
Function Call: WRITE
  • Prompt: !,"Press the ESCAPE key to stop.",!!
  • Line Location: ACHSYEX+18
Function Call: WRITE
  • Prompt: *7,!,"Beginning P.O. is later than the Ending P.O. ??"
  • Line Location: EPO+8
Function Call: WRITE
  • Prompt: !!,"Processing ",$$NUM(ACHSBPO),", to end at ",$$NUM(ACHSEPO),".",!
  • Line Location: R+4
Function Call: WRITE
  • Prompt: !!,"Press the ESCAPE (Esc) key to stop...",!
  • Line Location: R+5
Function Call: WRITE
  • Prompt: ACHSR,!
  • Line Location: R+9
Function Call: WRITE
  • Prompt: ACHSR,!
  • Line Location: R+14
Function Call: WRITE
  • Prompt: !!,"Processing ",$$NUM(ACHSBPO),", to end at ",$$NUM(ACHSEPO),".",!
  • Line Location: C+6
Function Call: WRITE
  • Prompt: !!,"Press the ESCAPE (Esc) key to stop...",!
  • Line Location: C+7
Function Call: WRITE
  • Prompt: "BEGIN RECORD "_$P($P(^DD(ACHSFILE,0),U,1)," SUB-FIELD",1),!
  • Line Location: RECORD+1
Function Call: WRITE
  • Prompt: $P(^DD(ACHSFILE,ACHSFLD,0),U,1),U,%,!
  • Line Location: RECORD+8
Function Call: WRITE
  • Prompt: "END RECORD "_$P($P(^DD(ACHSFILE,0),U,1)," SUB-FIELD",1),!
  • Line Location: RECORD+10
Function Call: WRITE
  • Prompt: *7
  • Line Location: STOP+4
Function Call: READ
  • Timeout: 0
  • Variable: X
  • Line Location: STOP+5
Function Call: WRITE
  • Prompt: !!!,"Select the ",ACHS," P.O. Number..."
  • Line Location: PO+1
Routine Call
  • %ZIS
  • Line Location:
    • EPO+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
9002080.01 GET1^DIQ
9002080.02 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] R+1, R+2, R+11, C+3, C+4
^DD( RECORD+1, RECORD+4, RECORD+5, RECORD+8, RECORD+10

Label References

Name Line Occurrences
$$NUM R+4, C+6
$$PO BPO+1, EPO+1
$$STOP R+1, C+3
@( EPO+13
BPO EPO+2, EPO+8
RECORD C+9, SUBFILE+7
SUBFILE RECORD+5

Naked Globals

Name Field # of Occurrence
^(0 RECORD+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RECORD+6*, RECORD+7, RECORD+8, SUBFILE+5*
ACHS PO~, PO+1
ACHSBPO ACHSYEX+21~, BPO+1*, EPO+5*, EPO+8, R+1*, R+2, R+4, C+3*, C+4, C+6
ACHSDA C+1~, C+4*, C+9, RECORD~, RECORD+3, RECORD+5, SUBFILE~, SUBFILE+6
ACHSDA( SUBFILE+5
ACHSDA(1 C+2*, C+3, C+4
ACHSDIEN ACHSYEX+21~, R+2*, R+8, R+11, R+12, R+13, PO+3
ACHSDR ACHSYEX+21~, R+8*, R+13*
ACHSEPO ACHSYEX+21~, EPO+1*, EPO+6*, EPO+8, R+1, R+4, C+3, C+6
>> ACHSFC NUM+1
ACHSFILE RECORD~, RECORD+1, RECORD+4, RECORD+5, RECORD+6, RECORD+8, RECORD+10, SUBFILE~, SUBFILE+3, SUBFILE+7
ACHSFLD RECORD+2~, RECORD+3*, RECORD+4*, RECORD+5, RECORD+6, RECORD+8
ACHSIENS RECORD+2~, RECORD+3*, RECORD+6
ACHSR ACHSYEX+21~, R+7*, R+8*, R+9, R+10*, R+12*, R+13*, R+14, R+15*
ACHSREF SUBFILE+1~, SUBFILE+2*, SUBFILE+3, SUBFILE+4*, SUBFILE+7
ACHSTIEN ACHSYEX+21~, R+10*, R+11*, R+13
DA SUBFILE+1~, SUBFILE+6*, SUBFILE+7*
DA( SUBFILE+5*
DA(1 SUBFILE+6*
>> DTOUT BPO+2, EPO+3
>> DUOUT BPO+2, EPO+2, PO+3*
DUZ(2 R+1, R+2, R+8, R+11, R+12, R+13, C+2, PO+4
IO R+6, C+8
IO(0 R+3, R+17, C+5, C+10
>> POP EPO+11
U R+8, R+12, R+13, RECORD+1, RECORD+5, RECORD+8, RECORD+10
X STOP+1~, STOP+2*, STOP+3, STOP+5*, NUM~, NUM+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All