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

Package: Contract Health Management Information System

Routine: ACHSSIG1


Information

ACHSSIG1 ;IHS/ITSC/JVK -STAMP ELECTRONIC SIGNATURE OF ORDERING OFC. ON PO [ 02/15/2005 7:59 AM ]

Source Information

Source file <ACHSSIG1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS VA Utilities 4 $$DIR^XBDIR  $$C^XBFUNC  VIEWR^XBLM  EN^XBVK  
Contract Health Management Information System 3 ($$DIE,$$FC,BM,RTRN)^ACHS  BRPT^ACHSFU  FC^ACHSUF  
Kernel 3 ^%ZISC  $$REPEAT^XLFSTR  SIG^XUSESIG  
VA Fileman 1 EN^DIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHS E-SIG ORDERING OFC.  

Entry Points

Name Comments DBIA/ICR reference
A ;--SET UP LIST MANAGER--
END ;
LOOK ;EP
STAMP ;--ASK IF YOU WANT ALL OR REMOVE ITEMS FROM LIST OF SET--
LIST ;--LIST ONLY THOSE PO W/OUT SIG IN FILE--
ASK ;
START ;
LOOP3 ;--STUFF THE USER AND DATE OF ALL AUTHORIZED--
PRINT ;
LOOP2 ;--SECOND LEVEL OF QUEUE ARRAY SET UP ACHSTMP ARRAY--
LOOP1 ;--LOOP THRU QUEUE ARRAY FOR DOCUMENTS WAITING TO BE PRINTED--
CHECK ;--IS THE USER AUTHORIZED IN THE CHS E-SIG FILE--
RMITMS ;--REMOVE THE ITEM FROM THE SET--
HDR ;

External References

Name Field # of Occurrence
^%ZISC END+3
$$DIE^ACHS LOOP3+10, LOOP3+11
$$FC^ACHS START+2
BM^ACHS START+1
RTRN^ACHS LOOK+4
BRPT^ACHSFU PRINT+2
FC^ACHSUF PRINT+1
EN^DIQ1 CHECK+6
$$DIR^XBDIR STAMP+1, RMITMS+1, ASK+8
$$C^XBFUNC PRINT+3, HDR+2
VIEWR^XBLM A+1, ASK+10, ASK+11
EN^XBVK END+1
$$REPEAT^XLFSTR HDR+4
SIG^XUSESIG CHECK+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no documents in the Queue!"
  • Line Location: LOOK+3
Function Call: WRITE
  • Prompt: !,?5,"No Documents Pending for Signature.",!
  • Line Location: LOOP1+8
Function Call: WRITE
  • Prompt: !,?5,"No Documents Pending for Signature.",!
  • Line Location: LOOP1+9
Function Call: WRITE
  • Prompt: !,"You are not authorized in the CHS E-SIG file.",!
  • Line Location: CHECK+15
Function Call: WRITE
  • Prompt: !,"You are currently not authorized in the CHS E-SIG file.",!
  • Line Location: CHECK+16
Function Call: WRITE
  • Prompt: !,"You are not an authorized Ordering Official.",!
  • Line Location: CHECK+17
Function Call: WRITE
  • Prompt: !,COUNT,?9,$P(ACHSDOC,U,14)_"-"_ACHSFC_"-"_$P(ACHSDOC,U,1)
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: ?25,$P(^AUTTVNDR($P(ACHSDOC,U,8),0),U)
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: ?55,$FN($P(ACHSDOC,U,9),",",2)
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !,?9,"CAN-OCC-SCC: ",$P(^ACHS(2,$P(ACHSDOC,U,6),0),U),"-",$P($G(^ACHSOCC($P(ACHSDOC,U,10),0)),U),"-",$P(^ACHS(3,DUZ(2),1,$P(ACHSDOC,U,7),0),U),?50,ACHSLST
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,?9,$P(^DPT($P(ACHSDOC,U,22),0),U),!
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !,?9,"--Blanket Order/Special Local--",!
  • Line Location: LIST+9
Function Call: WRITE
  • Prompt: !,?5,$P(ACHSDOC,U,14)_"-"_ACHSFC_"-"_$P(ACHSDOC,U,1)," Sorry this document exceeds your delegation of authority",!
  • Line Location: LOOP3+8
Function Call: WRITE
  • Prompt: !,?5,ACHSSUM," DOCUMENTS APPROVED",!
  • Line Location: LOOP3+19
Function Call: WRITE
  • Prompt: !!?10,"Answering YES will remove items you do not want approved"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !?10,"from the viewing list and approve all others.",!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !?10,"Answering NO will remove the items you already selected",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: ?10,"from the viewing list and allow you to remove additioanl items.",!
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !?10,"If you do not want to approve anything select all the items or ",!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: ?10,"enter ^. This approves nothing.",!!
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: @IOF,!!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("*** CONTRACT HEALTH MANAGEMENT SYSTEM ***",80),!!,ACHSLOC,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ACHSTIME,!,ACHST1
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"ITEM NO.",?9,"PO No.",?25,"Vendor",?50,"Obligation Amt",!,$$REPEAT^XLFSTR("=",79),!
  • Line Location: HDR+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(2 - [#9002062] LIST+5
^ACHS(3 - [#9002063] LIST+5
^ACHSESIG - [#9002080.1] CHECK+2, LOOP3+14
^ACHSF - [#9002080] LOOP2+5, PRINT+8, LOOP3+4, LOOP3+17
^ACHSF("EAQ" LOOP3+14*
^ACHSF("EQ" LOOK+2, LOOP2+1, LOOP2+4, LOOP3+17!
^ACHSOCC - [#9002078.5] LIST+5
^AUTTVNDR - [#9999999.11] LIST+2
^DPT - [#2] LIST+8

Label References

Name Line Occurrences
A LOOP1+5
ASK STAMP+4, RMITMS+3, ASK+10
CHECK START+5
END START+6, LOOP1+9, LOOP1+11, STAMP+2, STAMP+3, RMITMS+2, LOOP3+20, ASK+9
HDR PRINT+4
LIST PRINT+11
LOOP2 LOOP1+3
LOOP3 STAMP+3
RMITMS STAMP+4, ASK+10
STAMP A+2

Naked Globals

Name Field # of Occurrence
^(0 LOOP3+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACHSADT CHECK+8*, END+2!
>> ACHSAMT LOOP2+7*, LOOP2+8, LOOP2+9, LOOP3+6*, LOOP3+8, LOOP3+10, LOOP3+11
ACHSANS LOOK+1*, STAMP+1*, STAMP+3, STAMP+4, END+2!
ACHSAU CHECK+1*, CHECK+2*, CHECK+3, CHECK+6, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11, CHECK+15
, END+2!
>> ACHSDAMT LOOP2+8, CHECK+7*, LOOP3+8, LOOP3+10, LOOP3+11
ACHSDIEN LOOP2+2*, LOOP2+4*, LOOP2+5, LOOP2+9, LOOP3+5*, LOOP3+14, LOOP3+17, END+2!
ACHSDOC LOOP2+5*, LOOP2+6, LOOP2+7, PRINT+8*, PRINT+9, LIST+1, LIST+2, LIST+3, LIST+5, LIST+8
, LIST+9, LOOP3+4*, LOOP3+7, LOOP3+8, END+2!
>> ACHSDONE ASK+1*, ASK+8*, ASK+10, ASK+11
>> ACHSFC START+2*, LIST+1, LOOP3+8
>> ACHSFLG LOOP2+3*, LOOP2+9*
>> ACHSGO LOOP1+2*, LOOP1+5, LOOP1+9, LOOP2+10*
>> ACHSI RMITMS+7*, RMITMS+8
>> ACHSIADT CHECK+9*, CHECK+16, LOOP3+10, LOOP3+11
>> ACHSIGA CHECK+11*
>> ACHSIGO CHECK+10*, CHECK+17
>> ACHSIO LOOK+5*
>> ACHSITM RMITMS+6*, RMITMS+7, RMITMS+8*, RMITMS+9, RMITMS+10, RMITMS+11, RMITMS+12
>> ACHSLOC HDR+2
ACHSLST PRINT+10*, LIST+5, END+2!
>> ACHSPG HDR+1*, HDR+2
>> ACHSQUE RMITMS+1*, RMITMS+2
>> ACHSQUIT START+4*, START+6, LOOP1+3, CHECK+15*, CHECK+16*, CHECK+17*
ACHSSIG LOOP1+5, CHECK+14*, STAMP+1, END+2!
>> ACHSSUM LOOP3+2*, LOOP3+12*, LOOP3+19
>> ACHST1 PRINT+3*, HDR+3
>> ACHSTIME HDR+3
>> ACHSTMP( LOOP2+9*, PRINT+7, PRINT+8, RMITMS+11, RMITMS+12!, LOOP3+3, LOOP3+4, LOOP3+5, LOOP3+6, END+2!
ACHSTST LOOP2+6*, LOOP2+9, END+2!
ACHSTYP PRINT+9*, PRINT+10, END+2!
ACHSTYPV LOOP1+3*, LOOP2+1, LOOP2+4, LOOP3+7*, LOOP3+14, LOOP3+17, END+2!
>> ACHSUSR HDR+2
ACHSVAL END+2!
ACHSVAL( CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11
COUNT START+3*, LOOP2+9*, LOOP2+10, PRINT+6*, PRINT+7*, PRINT+8, LIST+1, LOOP3+1*, LOOP3+3*, LOOP3+4
, LOOP3+5, LOOP3+6, END+2!
>> DA CHECK+5*
>> DA( CHECK+6*
DIC CHECK+4!, CHECK+5*, END+2!
DIQ CHECK+4!, CHECK+6*, END+2!
>> DR CHECK+5*
>> DR( CHECK+6*
DT LOOP3+11
>> DTOUT LOOP1+11, STAMP+2, RMITMS+3, ASK+9
>> DUOUT LOOP1+3, LOOP1+11, LOOP2+4, STAMP+2, RMITMS+3, ASK+9
DUZ CHECK+2, LOOP3+10
DUZ(2 LOOK+2, START+2, LOOP2+1, LOOP2+4, LOOP2+5, LOOP2+9, PRINT+7, PRINT+8, CHECK+2, CHECK+5
, LIST+5, RMITMS+11, RMITMS+12, LOOP3+3, LOOP3+4, LOOP3+5, LOOP3+6, LOOP3+14, LOOP3+17, END+2
IO LOOK+5
IOF HDR+2
U LOOP2+6, LOOP2+7, LOOP2+9, PRINT+8, PRINT+9, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11
, LIST+1, LIST+2, LIST+3, LIST+5, LIST+8, LIST+9, LOOP3+4, LOOP3+5, LOOP3+6, LOOP3+7
, LOOP3+8, LOOP3+14, LOOP3+17
X1 CHECK+14, END+2!
X2 LOOK+6!
X3 LOOK+6!, PRINT+5*
>> Y RMITMS+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All