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

Package: Contract Health Management Information System

Routine: ACHSSIG2


Information

ACHSSIG2 ;IHS/ITSC/JVK-STAMP ELECTRONIC SIGNATURE OF AUTHORIZING OFC. ON PO [ 01/11/2005 7:33 AM ]

Source Information

Source file <ACHSSIG2.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 AUTHORIZING 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 --
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+9, LOOP3+10
$$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,"YOUR SITE PARAMETERS INDICATE THIS IS NOT A MULTIPLE SIGNATURE SITE.",!,?5,"THIS OPTION IS NOT AVAILABLE FOR USE."
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,?5,"No Documents Pending for your Signature.",!
  • Line Location: LOOP1+8
Function Call: WRITE
  • Prompt: !,?5,"No Documents Pending for your 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 not an authorized Authorizing Official.",!
  • Line Location: CHECK+16
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(^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+16
Function Call: WRITE
  • Prompt: !!,?10,"Answering YES will remove the 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 additional 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] START+5, CHECK+2
^ACHSF - [#9002080] LOOP2+5, PRINT+8, LOOP3+4, LOOP3+14
^ACHSF("EAQ" LOOK+2, LOOP2+1, LOOP2+4, LOOP3+14!
^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+7
END START+6, START+8, LOOP1+9, LOOP1+11, STAMP+2, STAMP+3, RMITMS+2, LOOP3+17, 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+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACHSADT CHECK+8*, END+2!
>> ACHSAMT LOOP2+10*, LOOP2+11, LOOP2+12, LOOP3+6*, LOOP3+8, LOOP3+9, LOOP3+10
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+11, CHECK+7*, LOOP3+8, LOOP3+9, LOOP3+10
ACHSDIEN LOOP2+2*, LOOP2+4*, LOOP2+5, LOOP2+12, LOOP3+5*, LOOP3+14, END+2!
ACHSDOC LOOP2+5*, LOOP2+6, LOOP2+7, LOOP2+10, 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+12*
>> ACHSGO LOOP1+2*, LOOP1+5, LOOP1+9, LOOP2+13*
>> ACHSI RMITMS+7*, RMITMS+8
>> ACHSIADT CHECK+9*, LOOP3+9, LOOP3+10
>> ACHSIGA CHECK+11*, CHECK+16
>> ACHSIGO CHECK+10*
>> 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!
>> ACHSMULT START+5*, START+6
>> ACHSPG HDR+1*, HDR+2
>> ACHSQUE RMITMS+1*, RMITMS+2, ASK+11
>> ACHSQUIT START+4*, START+8, LOOP1+3, CHECK+15*, CHECK+16*
ACHSSIG LOOP1+5, CHECK+14*, STAMP+1, END+2!
>> ACHSSUM LOOP3+2*, LOOP3+11*, LOOP3+16
>> ACHST1 PRINT+3*, HDR+3
>> ACHSTIME HDR+3
>> ACHSTMP( LOOP2+12*, PRINT+7, PRINT+8, RMITMS+11, RMITMS+12!, LOOP3+3, LOOP3+4, LOOP3+5, LOOP3+6, END+2!
ACHSTST END+2!
>> ACHSTST1 LOOP2+6*, LOOP2+9
>> ACHSTST2 LOOP2+7*, LOOP2+12
ACHSTYP PRINT+9*, PRINT+10, END+2!
ACHSTYPV LOOP1+3*, LOOP2+1, LOOP2+4, LOOP3+7*, LOOP3+14, END+2!
>> ACHSUSR HDR+2
ACHSVAL END+2!
ACHSVAL( CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11
COUNT START+3*, LOOP2+12*, LOOP2+13, 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+10
>> DTOUT LOOP1+11, STAMP+2, RMITMS+3, ASK+9
>> DUOUT LOOP1+3, LOOP1+11, LOOP2+4, STAMP+2, RMITMS+3, ASK+9
DUZ LOOP2+9, CHECK+2, LOOP3+9
DUZ(2 LOOK+2, START+2, START+5, LOOP2+1, LOOP2+4, LOOP2+5, LOOP2+12, PRINT+7, PRINT+8, CHECK+2
, CHECK+5, LIST+5, RMITMS+11, RMITMS+12, LOOP3+3, LOOP3+4, LOOP3+5, LOOP3+6, LOOP3+14, END+2
IO LOOK+5
IOF HDR+2
U START+5, LOOP2+6, LOOP2+7, LOOP2+10, LOOP2+12, 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
X1 CHECK+14, END+2!
X2 LOOK+6!
X3 LOOK+6!, PRINT+5*
>> Y RMITMS+5, 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