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

Package: Fee Basis

Routine: FBCHPSA


Information

FBCHPSA ;AISC/DMK-CALCULATES COSTS BY PSA ;13JUN90

Source Information

Source file <FBCHPSA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Fee Basis 4 ($$DATX,$$SSN,CLOSE,DATE,ZIS)^FBAAUTL  (,PSATOT)^FBCHPSA0  (,NONE,PROG)^FBCHPSA1  $$NAME^FBCHREQ2  
Kernel 1 H^XUS  
Registration 1 ADD^VADPT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Fee Basis 3 FBCH PSA OUTPUT  FBCHPSA0  FBCHPSA1  

Entry Points

Name Comments DBIA/ICR reference
EN
ASKDT
START ; start output
REPORT
END
MORE1
MORE
HED
SELECT
HANG
HED1
EN1
GT

External References

Name Field # of Occurrence
^DIR EN+1, SELECT, HANG
$$DATX^FBAAUTL START+1, MORE
$$SSN^FBAAUTL MORE+3, MORE+7
CLOSE^FBAAUTL END+1
DATE^FBAAUTL ASKDT+1
ZIS^FBAAUTL ASKDT+2
^FBCHPSA0 START+11
PSATOT^FBCHPSA0 START+14
^FBCHPSA1 START+10
NONE^FBCHPSA1 REPORT+6
PROG^FBCHPSA1 ASKDT
$$NAME^FBCHREQ2 MORE+3
ADD^VADPT MORE
H^XUS SELECT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,FBSTA,?44,"$ ",$P(^TMP("FBPSA",$J,I),"^")
  • Line Location: REPORT+5
Function Call: WRITE
  • Prompt: !,$E(FBNAME,1,30)," -",$$SSN^FBAAUTL(FBDFN,1),?42,FBOBL,?57,FBCOUNTY,!,?4,FBINV,?21,FBAMTPD,?39,FBPDDT,?60,FBSTA,!,Q,!
  • Line Location: MORE+7
Function Call: WRITE
  • Prompt: !?25,$S(FBPROG=6:"CIVIL HOSPITAL PSA REPORT",FBPROG=2:"OUTPATIENT MEDICAL PSA REPORT",FBPROG=3:"PHARMACY PSA REPORT",1:"COMMUNITY N.H. PSA REPORT")
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: !?24,"-------------------------------",!,"Patient Name",?40,"Obligation #",?56,"County Code",!
  • Line Location: HED+2
Function Call: WRITE
  • Prompt: ?3,"Invoice #",?20,"Amount Paid",?38,"Date Finalized",?59,"PSA",!,QQ
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !,QQ,!?7,"Total Dollars spent by PSA for the dates of ",BEGDATE," to ",ENDDATE,". ",!!?5,"PSA",?40,"TOTAL AMOUNT PAID",!,?4,"-----",?39,"--------------------"
  • Line Location: HED1+0
Routine Call
  • DIR
  • Line Location:
    • EN+1
    • SELECT
    • HANG

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] REPORT+5, MORE+4
^FBAA(161.7 - [#161.7] MORE+5
^FBAAC - [#162] EN1+1
^FBAAC("AM" EN1, EN1+1
^FBAAI - [#162.5] REPORT+2, MORE1
^FBAAI("AP" REPORT+2, REPORT+3
^TMP("FBPSA" START+4!, REPORT+1!, REPORT+5, REPORT+6, END!, MORE+8*, MORE+9*
^TMP("FBTOT" END+1!, MORE+10*, MORE+11*

Label References

Name Line Occurrences
ASKDT SELECT
EN SELECT
EN1 MORE+2
END EN+1, ASKDT, ASKDT+1, ASKDT+2, START+7, START+13, START+15, SELECT
GT EN1+1
HANG REPORT+7, MORE+6
HED REPORT+1, MORE+6
HED1 REPORT+5
MORE REPORT+2
MORE1 REPORT+3
REPORT START+8, START+9
SELECT EN+1

Naked Globals

Name Field # of Occurrence
^(0 REPORT+2, REPORT+5, MORE1, MORE+4, MORE+5, EN1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDATE ASKDT+1, START+1*, END!, HED1
DFN END!, MORE*
DIR EN+1!, END!, HANG!
DIR("A" EN+1*
DIR("B" EN+1*
DIR(0 EN+1*, SELECT*, HANG*
DIRUT EN+1, END!
>> DTOUT SELECT
>> DUOUT SELECT
ENDDATE ASKDT+1, START+1*, END!, HED1
FB7078 END!, MORE+2*, EN1, EN1+1
FBAAOUT START+3*, START+7, START+8, START+9, START+10, START+11, START+13, REPORT+2, REPORT+3, REPORT+4
, END!, MORE+6, HANG*
FBAMT END!, MORE+2, EN1*, GT*
FBAMTPD END!, MORE*, MORE+2*, MORE+7, MORE+9, MORE+11
FBBEG ASKDT+1*, REPORT+2, REPORT+3, END!
FBCNT START+3*, END!
FBCOUNTY END!, MORE*, MORE+7
FBDFN END!, MORE*, MORE+3, MORE+7
FBEND ASKDT+1*, REPORT+2, REPORT+3, END!
FBHPSA START+6*, START+7, END!
FBI REPORT+2*, REPORT+3*, END!
FBINV END!, MORE*, MORE+7
FBJ REPORT+2*, REPORT+3*, END!, MORE1
FBK END+1!
FBL END+1!
FBM END+1!
FBNAME END!, MORE+3*, MORE+7
FBOBL END+1!, MORE+5*, MORE+7
FBPDDT END!, MORE*, MORE+7
FBPG START+2*, HED!
>> FBPOP ASKDT+1, ASKDT+2
FBPPSA END!, MORE*, MORE+4, MORE+8, MORE+9, MORE+10, MORE+11
FBPROG START+5*, START+7*, START+8, START+9, START+10, START+11, END!, MORE+1, HED+1
FBPROG( START+7
FBPROG(0 ASKDT
FBPSA EN*, START+6, START+7*, REPORT+2, REPORT+3*, END!, SELECT*
FBSSN END!, MORE+3*
FBSTA REPORT+5*, END!, MORE+4*, MORE+7
FBY END!
FBY(0 REPORT+2*, MORE1*, MORE, MORE+1, MORE+2, MORE+5
FBZ END!
FBZ(0 EN1+1*, GT
I REPORT+5*, END!, EN1+1*
IO REPORT
IOF HED
IOP ASKDT+2*, END!
IOSL MORE+6
IOST START+2, HANG
J END!, EN1+1*
K END!, EN1+1*
L END!, EN1+1*
>> PGM ASKDT+2*
Q START+3*, END!, MORE+7
QQ START+3*, END!, HED+3, HED1
VA END+1!
VADM END+1!
VAERR END!
VAL END!
VAPA END!
VAPA("P" MORE*
VAPA(7 MORE
>> VAR ASKDT+2*
X END!, SELECT
Y EN+1, END+1!, SELECT, HANG
ZZ END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All