Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  All
Print Page as PDF
Routine: ACHSDSTR1

Package: Contract Health Management Information System

Routine: ACHSDSTR1


Information

ACHSDSTR1 ;IHS/OIT/FCJ;RTN 2 OF 2 - DOCUMENT STATUS REPORT BY FY; [ 02/09/2001 10:54 AM ]

Source Information

Source file <ACHSDSTR1.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSDSTR  

Entry Points

Name Comments DBIA/ICR reference
A
P2 ;
C
B
E ;
D ;
E1 ;
ENDMOPT ;PRINT OUT EACH MONTH TOTALS
FILSAV ;SAVE FILE
MONEY ;
HEAD ;HEADING FOR TOTAL ONLY REPORT
ST ;
P1 ;
TOTONLY ;ENTRY POINT TO ONLY CALCULATE TOTALS FOR TOTAL ONLY PRINT
TOTTYP ;PRINT DOCUMENT TOTALS BY TYPE
TOTDOC ;
PRINT ;
END ;
TOTAL ;
TYPE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(ACHSNAME,1,24),?25,$E(A("VENDOR"),1,26),?52,$$FMTE^XLFDT(ACHSBDT,"2D"),?63,$S(ACHSRTYP=1:ACHSOCC,1:ACHSSTA)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?79-$L(X),X
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?79-$L(X),X
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !,A("DOC"),"(",ACHSCLRK,")",?25,ACHSHRN,?35,$E(ACHSSSN,6,9),?52,ACHSFDT
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: ?63,$S(+TOS=1:"43",+TOS=2:"57",+TOS=3:"64",1:"")
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: !,A("DOC"),"(",ACHSCLRK,")",?25,EIN,?52,$E(ACHSSSN,6,9)
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: ?63,$S(+TOS=1:"43",+TOS=2:"57",+TOS=3:"64",1:"")
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: !!,?10,"Month Issued",?30,"# of Documents",?65,"Total Amount",!,ACHS("-")
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: !!,ACHS("-"),!
  • Line Location: TOTAL+6
Function Call: WRITE
  • Prompt: ?79-$L(X),X,!
  • Line Location: TOTTYP+2
Function Call: WRITE
  • Prompt: ?79-$L(X),X,!
  • Line Location: TOTTYP+5
Function Call: WRITE
  • Prompt: ?79-$L(X),X,!
  • Line Location: TOTTYP+8
Function Call: WRITE
  • Prompt: !,ACHS("-"),!
  • Line Location: TOTDOC+1
Function Call: WRITE
  • Prompt: "TOTAL DOCUMENTS: ",?32-$L(TOTDOC),TOTDOC,?40,"TOTAL DOLLARS: "
  • Line Location: TOTDOC+4
Function Call: WRITE
  • Prompt: ?79-$L(X),X
  • Line Location: TOTDOC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTDOC+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOTDOC+7
Function Call: WRITE
  • Prompt: @IOF,!!?20,"*** CONTRACT HEALTH CARE SYSTEM ***",!!,ACHSTIME,?80-$L(ACHSLOC)\2,ACHSLOC,?73,"page ",ACHSPG,!?29,"DOCUMENT STATUS REPORT"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?77-$L(ZTSK),"(",ZTSK,")"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !!,ACHST1,!,ACHST2
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"Document #/(Clerk)",?25,"Chart#",?35,"Last 4SSN",?52,"Auth Date",?63,"Type"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,"Document #/(Clerk)",?25,"EIN Number",?52,"Last 4SSN",?63,"Type"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,ACHS("-"),!
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !?13,Y
  • Line Location: ENDMOPT+1
Function Call: WRITE
  • Prompt: ?35,TOPEN(YRMO,"DOC")
  • Line Location: ENDMOPT+2
Function Call: WRITE
  • Prompt: ?79-$L(X),X
  • Line Location: ENDMOPT+3
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  All