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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPTFFB

Package: Registration

Routine: DGPTFFB


Information

DGPTFFB ;ALB/JDS - FEE BASIS PTF ; 26 JUN 87

Source Information

Source file <DGPTFFB.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 7 GETD^DGPTF  CREATE^DGPTFCR  RTY^DGPTUTL  INCOME^DGPTUTL1  (,HEAD)^DGPTXB  LO^DGUTL  PID^VADPT6  
VA FileMan 3 ^%DT  ^DIC  ^DIR  
Kernel 1 ^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG PTF FEE BASIS ADD  

Entry Points

Name Comments DBIA/ICR reference
INFO ; -- brief PTF rec profile for DFN pt
; -- is template compiled?
EN
AD ; -- ask for adm date
CHK ; -- check if adm on date already exists
CHKQ
INFOQ
SEL ; -- ask for pt
SELQ

External References

Name Field # of Occurrence
^%DT AD+1
^%ZIS INFO+3
GETD^DGPTF AD+8
CREATE^DGPTFCR AD+4
RTY^DGPTUTL AD+4
INCOME^DGPTUTL1 AD+8
^DGPTXB INFO+9
HEAD^DGPTXB INFO+5
LO^DGUTL EN
^DIC SEL+3
^DIR CHK+9
PID^VADPT6 INFO+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+1
Function Call: READ
  • Prompt: "Enter NEW Non-VA PTF Admission Date: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: AD+1
Function Call: WRITE
  • Prompt: @IOF,?5,"**** PTF Record Profile for ",$E($P(Y(0),U),1,25)," (",VA("PID"),") ****"
  • Line Location: INFO+4
Function Call: WRITE
  • Prompt: !
  • Line Location: INFO+9
Function Call: WRITE
  • Prompt: !?5,"...only last ",DGPTMAX," records are displayed."
  • Line Location: INFO+10
Function Call: WRITE
  • Prompt: !?5," No PTF records on file for patient."
  • Line Location: INFO+11
Function Call: WRITE
  • Prompt: !!,*7,"PTF #",I," already exist for that admission date (",Y,").",!
  • Line Location: CHK+4
Routine Call
  • DIC
  • Line Location:
    • SEL+3
Routine Call
  • DIR
  • Line Location:
    • CHK+9
Routine Call
  • %ZIS
  • Line Location:
    • INFO+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" INFO+2
^DD("DD" CHK+4
^DGPT - [#45] INFO+7, CHK+2
^DGPT("B" INFO+7, CHK+2
^XUSEC("DG PTFREL" AD+7

Label References

Name Line Occurrences
AD AD+1
CHK AD+1
CHKQ CHK+3
INFO SEL+4
INFOQ INFO+2
SEL EN
SELQ SEL+3, AD+1

Naked Globals

Name Field # of Occurrence
^(0 INFO+7, CHK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT AD+1*
C SELQ!
D0 SELQ!, INFO+9*, INFOQ!
DA SEL+4*, SELQ!
DFN SEL+4*, SELQ!, INFO+7, CHK+2
DGADM AD+1*, AD+4, SELQ!, CHK+2
DGADPR AD+7*, SELQ!
DGDD SELQ!
DGDFN AD+7!, SELQ!
DGDUMB EN*, EN+1!
>> DGPR AD+7*
DGPTCNT INFO+5*, INFO+9*, INFO+10, INFOQ!
DGPTF SELQ!
>> DGPTFE AD+7*
DGPTMAX INFO+5*, INFO+9, INFO+10, INFOQ!
DGPTOUT EN!, EN+1!, SEL+3*
DGPTX INFO+5!, INFO+9*, INFO+11, INFOQ!
DGPTX( INFO+7*, INFO+9
DGREL AD+7*, SELQ!
DGRTY SELQ!
DGRTY0 SELQ!
>> DGST AD+7*
DIC SEL+1!, SEL+2*, SEL+3!, SELQ!
DIC("A" SEL+2*
DIC(0 SEL+2*
DIE SELQ!
DIK SELQ!
DIPGM EN+1!
DIR CHK+9!
DIR("?" CHK+6*, CHK+7*, CHK+8*
DIR("A" CHK+5*
DIR("B" CHK+9*
DIR(0 CHK+5*
DISYS EN+1!
DN EN+1!, SELQ!
DR SELQ!
DTIME AD+1
DUZ AD+7
DXS INFO+2!, INFO+9!, INFOQ!
I SELQ!, INFO+7*, CHK+2*, CHK+4
IOF INFO+4
IOP INFO+3*!
L SELQ!
POP SELQ!
PTF AD+4*, SELQ!, INFO+9*, INFOQ!
U AD+1, INFO+4, CHK+2
VA INFOQ!
VA("PID" INFO+4
X AD+1*, SELQ!, INFO+2*
Y SEL+3, SEL+4, AD+1, AD+4*, SELQ!, CHK+1!, CHK+2*, CHK+3*, CHK+4
Y(0 INFO+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All