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

Package: Contract Health Management Information System

Routine: ACHSODQ


Information

ACHSODQ ; IHS/ITSC/PMF - DCR REPORT ; [ 10/31/2003 11:51 AM ]

Source Information

Source file <ACHSODQ.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Contract Health Management Information System 4 (VIDEO,YN)^ACHS  (FYCVT,READ)^ACHSFU  ^ACHSODB  ^ACHSUF  
VA Fileman 2 C^%DTC  WAIT^DICD  
IHS VA Utilities 1 $$DIR^XBDIR  
Kernel 1 (,HOME)^%ZIS  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHSNEW  ACHSOD  

Entry Points

Name Comments DBIA/ICR reference
RE3A ; Print multiple copies of the selected DCR.
END ;
REDEV ;
RE2 ;
RE3 ;
DCR3 ;EP
DCR2 ;
DCR5 ;
DCR4 ;
RE4 ;
NOQUE ;
START ;
REGHEAD ;
DCR2A ;PRINT MULTIPLE COPIES
REGSHOW ;
REPRINT ;
DCR ;

External References

Name Field # of Occurrence
C^%DTC DCR3+7
^%ZIS REDEV+3, DCR3+20
HOME^%ZIS REDEV+4, DCR3+21
VIDEO^ACHS DCR2+1
YN^ACHS REPRINT+4
FYCVT^ACHSFU RE4+2
READ^ACHSFU REPRINT+2, RE2+2, RE3A+2, DCR2+4, DCR2A+2
^ACHSODB DCR5+5
^ACHSUF START+2
WAIT^DICD DCR5+3
$$DIR^XBDIR RE4+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Do You Wish To Re-Print A Prior Register ? NO// "
  • Line Location: REPRINT+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: REPRINT+6
Function Call: WRITE
  • Prompt: !!,"Re-Print Register Number: "
  • Line Location: RE2+1
Function Call: WRITE
  • Prompt: !," Enter The Register Number With The Fiscal Year Code And",!," Specific Register Number Separated By A Dash (e.g. 9-012)."
  • Line Location: RE2+4
Function Call: WRITE
  • Prompt: !," If You Wish To See A List Of Register Numbers Enter The Fiscal Year",!," And A Question Mark Separated By A Dash (e.g. 6-?)."
  • Line Location: RE2+5
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: RE3+6
Function Call: WRITE
  • Prompt: !!,"Enter number of copies: 1//"
  • Line Location: RE3A+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: REDEV+1
Function Call: WRITE
  • Prompt: !!,*7," DCR REPRINT REQUEST CANCELLED"
  • Line Location: REDEV+4
Function Call: WRITE
  • Prompt: *7,!!,"The Current Register, Number ",$E(ACHSACY,4),"-",$E("1000"+R,2,4),!,"Has Been Printed. Use The Re-Print Option If You",!,"Wish To Print This Register Again."
  • Line Location: DCR+3
Function Call: WRITE
  • Prompt: *7,!!,"If you print this register, you will "
  • Line Location: DCR2+2
Function Call: WRITE
  • Prompt: $G(IORVON)
  • Line Location: DCR2+2
Function Call: WRITE
  • Prompt: $G(IORVON)
  • Line Location: DCR2+2
Function Call: WRITE
  • Prompt: $G(IORVON)
  • Line Location: DCR2+2
Function Call: WRITE
  • Prompt: !!,"Print Register Number ",$E(ACHSACY,4),"-",$E(1000+R,2,4)," ...Ok ? NO// "
  • Line Location: DCR2+3
Function Call: WRITE
  • Prompt: !," Do You Wish To 'CLOSE' And Print This Register.",!," Enter 'Y' or 'N'."
  • Line Location: DCR2+6
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: DCR2+8
Function Call: WRITE
  • Prompt: !!,"Enter number of copies: 1// "
  • Line Location: DCR2A+1
Function Call: WRITE
  • Prompt: !,"Closing Current Registers And Printing 'DCRs'. Please Wait.....",!
  • Line Location: DCR3+2
Function Call: WRITE
  • Prompt: !!,"The following REGISTERS have been CLOSED:",!!?12,"FY",?22,"REG #",!
  • Line Location: DCR3+5
Function Call: WRITE
  • Prompt: !?10,ACHS,?20,$J(ACHSXX,5)
  • Line Location: DCR3+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: DCR3+18
Function Call: WRITE
  • Prompt: *7,!!," DCR REQUEST CANCELLED",!
  • Line Location: DCR3+21
Function Call: WRITE
  • Prompt: !!!,"Reg #",?8,"Ending Date",!,"-----",?8,"-----------",!
  • Line Location: REGHEAD+3
Function Call: WRITE
  • Prompt: !,"No Past Registers to Print"
  • Line Location: REGSHOW+2
Function Call: WRITE
  • Prompt: $E(ACHSACY,4),"-",$E(1000+I,2,4)," ",$P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",$E(X,4,5))," ",$J(+$E(X,6,7),2),", ",$E(X,2,3),!
  • Line Location: REGSHOW+3
Function Call: WRITE
  • Prompt: !,"NOTE: Queuing is not allowed in order to provide",!?6,"positive control over the registers.",!
  • Line Location: NOQUE+1
Routine Call
  • %ZIS
  • Line Location:
    • REDEV+4
    • DCR3+21
Routine Call
  • %ZIS
  • Line Location:
    • REDEV+3
    • DCR3+20

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(9 - [#9002069] RE4+11, RE4+12, DCR+2, DCR3+11*, DCR3+12*, DCR4+7, REGSHOW+1
^ACHSF - [#9002080] RE4+11
^TMP("ACHSOD" REDEV+5!, REDEV+7*, REDEV+8*, DCR3+3!, DCR3+15*, DCR3+16*, DCR4+8*

Label References

Name Line Occurrences
DCR REPRINT+5
DCR2 DCR+2, DCR2+6, DCR2+8, DCR2A+3
DCR2A DCR2A+5
DCR3 DCR2A+4
DCR4 DCR4+9
DCR5 REDEV+9, DCR4+2
END START+3, REPRINT+3, REPRINT+5, RE2+3, RE3+1, RE4+7, REDEV+4, DCR2+5, DCR5+3
NOQUE REPRINT+4, DCR2+6
RE2 RE2+6, RE3+7, RE4+5, RE4+7, RE4+8
RE3 RE2+3, RE3A+3
RE3A RE3+5, RE3A+5
RE4 RE3+5, RE3A+4
REGHEAD RE4+4
REGSHOW REGSHOW+1, REGSHOW+4
REPRINT REPRINT+4, REPRINT+6, RE2+3, DCR+4, DCR2+5, DCR2+7
START DCR2+5

Naked Globals

Name Field # of Occurrence
^( REGSHOW+1
^("DCR" REDEV+7*
^(0 RE4+12, DCR+2, DCR4+7, REGSHOW+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS REDEV+2*, DCR3+19*, DCR3+21!
%ZIS("A" DCR3+1*
>> ACHS DCR3+10*, DCR3+11, DCR3+12, DCR3+13
>> ACHS("DCR" DCR3+7
>> ACHSACFY DCR+2
ACHSACRP RE4+11*, REDEV+7, REDEV+8, DCR4+6*, END+1!
ACHSACY RE4+3*, RE4+11, RE4+12, REDEV+7, REDEV+8, DCR+1*, DCR+3, DCR2+3, END+1!, REGSHOW+1
, REGSHOW+3
ACHSASK START+1*, REPRINT+5, DCR+1*, END+1!
>> ACHSAUTO DCR3+1, DCR3+2, DCR3+21
>> ACHSBDT RE4+11*, RE4+12*, REDEV+7, REDEV+8, DCR4+6*, DCR4+7*, DCR4+8
>> ACHSCFY DCR+1
ACHSDCR DCR4+6*, DCR4+8, END+1!
>> ACHSDT DCR3+6*, DCR3+8*, DCR3+11, DCR3+12, DCR3+16, DCR4+6
>> ACHSEDT RE4+11*, REDEV+7, REDEV+8, DCR4+6*, DCR4+8
>> ACHSERR START+3, DCR3+21*
>> ACHSFYDT DCR4+6
>> ACHSFYWK( DCR+1, DCR3+10, DCR3+11, DCR4+1, DCR4+3
>> ACHSIO REDEV+6*, REDEV+7, DCR3+4*, DCR3+22*, DCR4+8, DCR5+4
>> ACHSNUM RE3A+4*, RE3A+6*, DCR2A+4*, DCR2A+6*
>> ACHSR1 RE3+4*, RE3+5, RE4+1
>> ACHSRX DCR3+17*, DCR4+1*, DCR4+2, DCR4+3, DCR4+7, DCR4+8
ACHSX RE4+1*, END+1!
ACHSXX DCR3+11*, DCR3+12, DCR3+13, DCR4+3*, DCR4+6, END+1!
ACHSY RE4+3, END+1!
>> D REDEV+7*, DCR3+15*
DT DCR3+6
>> DTOUT RE2+3, RE3A+3, RE4+7, DCR2+5, DCR2A+3
>> DUOUT REPRINT+3, RE2+3, RE3A+3, RE4+7, DCR2+5, DCR2A+3
DUZ REDEV+7, DCR3+15
DUZ(2 RE4+11, RE4+12, REDEV+5, REDEV+7, REDEV+8, DCR+1, DCR+2, DCR3+3, DCR3+10, DCR3+11
, DCR3+12, DCR3+15, DCR3+16, DCR4+1, DCR4+3, DCR4+7, DCR4+8, REGSHOW+1
>> E REGHEAD+1*, REGSHOW+4
>> I DCR2+2*, REGHEAD+1*, REGSHOW+1*, REGSHOW+2, REGSHOW+3
IO REDEV+6, DCR3+4, DCR3+22
IO("S" DCR5+2, DCR5+3
IO(0 DCR5+1
IOF REGHEAD+2
>> IORVOFF DCR2+2
>> IORVON DCR2+2
IOSC END+1!
>> POP REDEV+4, DCR3+21
>> R RE3+4*, RE3+5, RE4+5, RE4+11*, RE4+12, DCR+1*, DCR+2, DCR+3, DCR2+3, DCR4+6*
, DCR4+7, REGHEAD+1, REGHEAD+2
U RE4+11, RE4+12, REDEV+7, DCR+2, DCR3+11, DCR3+15, DCR4+7, DCR4+8, REGSHOW+1
>> X RE3+2*, RE3+3, DCR3+6*, DCR3+8, REGSHOW+1*, REGSHOW+2, REGSHOW+3
X1 DCR3+6*, DCR3+9!
X2 ACHSODQ+10!, DCR3+6*, DCR3+9!
X3 ACHSODQ+10!
>> Y REPRINT+4, REPRINT+5, REPRINT+6, RE2+3, RE3+1, RE3+2, RE3+3*, RE3+4, RE3A+3, RE3A+4*
, RE3A+5, RE3A+6, RE4+6*, RE4+8, REDEV+7, DCR2+5, DCR2+6, DCR2+7, DCR2+8, DCR2A+3
, DCR2A+4*, DCR2A+5, DCR2A+6, DCR3+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All