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 |  Local Variables |  All
Print Page as PDF
Routine: DGPTF5

Package: Registration

Routine: DGPTF5


Information

DGPTF5 ;ALB/MTC - PTF ENTRY/EDIT-4 ; 07 JUN 91

Source Information

Source file <DGPTF5.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
DRG Grouper 2 $$ICDDX^ICDCODE  $$GETDATE^ICDGTDRG  
Registration 2 CLS^DGPTC1  RTY^DGPTUTL  
VA Fileman 2 ^DIC  YN^DICN  
Lexicon Utility 1 CONFIG^LEXSET  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Registration 10 DGPTDRG  DGPTF4  DGPTFIC  DGPTX51  DGPTX52  DGPTX7  DGPTX73  DGPTX74  
DGX5F1  DGX5F4  

Entry Points

Name Comments DBIA/ICR reference
ICDEN ;enter icd codes
CEN ;
ICDEN1 ;enter icd codes for DRG
ASK
Z
Z1

External References

Name Field # of Occurrence
CLS^DGPTC1 ASK+2
RTY^DGPTUTL ASK+2
^DIC ICDEN+10, ICDEN1+5
YN^DICN ASK
$$ICDDX^ICDCODE ICDEN1+8
$$GETDATE^ICDGTDRG ICDEN+4, ICDEN+6, ICDEN+7
CONFIG^LEXSET ICDEN+4, ICDEN+6, ICDEN+7, ICDEN1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO
  • Line Location: Z+0
Function Call: WRITE
  • Prompt: " "
  • Line Location: Z+1
Function Call: WRITE
  • Prompt: Z
  • Line Location: Z1+1
Function Call: WRITE
  • Prompt: !!,*7,"Record #",PTF," MUST be closed for CENSUS first.",!
  • Line Location: CEN+1
Function Call: WRITE
  • Prompt: !,"Would you like to close this record for CENSUS"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?5,"Answer 'YES' to close record for CENSUS also",!?5," or 'NO' to not close this record at all."
  • Line Location: ASK+1
Routine Call
  • DIC
  • Line Location:
    • ICDEN+10
    • ICDEN1+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LEX(757.01 - [#757.01] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] ICDEN+6

Label References

Name Line Occurrences
ASK ASK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*, ASK+1, ASK+2
>> DA ICDEN+4, ICDEN+6, ICDEN+7
>> DA(1 ICDEN+4
>> DGDAT ICDEN1+2, ICDEN1+8
>> DGN Z
>> DGPTF ICDEN+4
DGRTY ASK+3!
DGRTY0 ASK+3!
>> DGVI Z
>> DGVO Z
DIC ICDEN+2~, ICDEN+8*, ICDEN1+1~, ICDEN1+3*
DIC("A" ICDEN+9*, ICDEN1+4*
DIC(0 ICDEN+8*, ICDEN1+3*
>> I Z1*
IOST Z
>> PROMPT ICDEN1+4
>> PTF CEN+1, ICDEN+6
X ICDEN+1, ICDEN+2*, ICDEN+8, ICDEN+11*, ICDEN+12*, ICDEN1+1!, ICDEN1+3, ICDEN1+6*, ICDEN1+7*, ICDEN1+8
Y ASK+2*, ICDEN+2~, ICDEN+11, ICDEN1+1!, ICDEN1+6, ICDEN1+8*
Y(1 ICDEN+12, ICDEN1+7
>> Z Z*, Z1*, Z1+1
>> Z1 Z1
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 |  Local Variables |  All