Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGPTFFB

Package: Registration

Routine: DGPTFFB


Information

DGPTFFB ;ALB/JDS - FEE BASIS PTF ;Aug 19, 2020@11:25

Source Information

Source file <DGPTFFB.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter NEW Non-VA PTF Admission Date: "
  • Variable: X
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call