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

Package: Registration

Routine: DGPTUTL1


Information

DGPTUTL1 ;ALB/MJK - PTF Utility ;2/1/05 2:20pm

Source Information

Source file <DGPTUTL1.m>

Entry Points

Name Comments DBIA/ICR reference
FLAG ; -- select PTF rec to update xmit flags
FLAGQ
UP ; -- select mvt and update xmit flag
UPQ
CHK ;
INCOME ;-- load ptf income information
; Use discharge date if available; else use current date/time
INQ ;
INC ;-- load income information Input:X date,Output:Y-income
INCQ
CHQUES ;-- This function will determine if the patient has any of the following
; indicated : AO, IR and EC. If so the array DGEXQ will contain
; DGEXQ(1)="" - AO
; DGEXQ(2)="" - IR
; DGEXQ(3)="" - EC
; Otherwise they will be undefined.
SETTRAN ;-- set transmission if error DGOUT=1, will return XMZ
SETQ ;
KVAR ; -- clean up for l/e
ELIG ; shows eligibility and disabilities
DATE ;EDIT CPT DATE/TIME TO BE AFTER ADMISSION DATE BUT BEFORE DISCHARGE
SETABX ;SET AB CROSSREFERENCE IN FILE 45
KILLABX ;KILL AB CROSSREFERENCE IN FILE 45
DISP
HELP
CPT ;DISPLAY CPT CODES AND MODIFIERS
MOD
DTIDS ; date check against admission and discharge dates, called from input transform on field 45/14 DG*5.3*1057
DT401 ; date check against admission and discharge dates, called from input transform on field 45.01/.01 DG*5.3*1057

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FLAG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: UP+3
Function Call: WRITE
  • Prompt: !!,"*** ERROR *** Unable to create Mail Message #... Try again later."
  • Line Location: SETTRAN+7
Function Call: WRITE
  • Prompt: #,!,"Eligibility: "_$P(VAEL(1),"^",2)_$S(+VAEL(3):" SC%: "_$P(VAEL(3),"^",2),1:"")
  • Line Location: ELIG+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ELIG+6
Function Call: WRITE
  • Prompt: !,"PRESS RETURN TO CONTINUE:"
  • Line Location: ELIG+6
Function Call: WRITE
  • Prompt: #
  • Line Location: ELIG+6
Function Call: WRITE
  • Prompt: !,"Must be on or after initial date of service",!
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !,"Must be at most 72 hrs prior to admission"
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !,"Not after discharge"
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !,"Cannot change to existing CPT date/time entry"
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !,I,?5,Y
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"Enter '^' to stop display and edit of data,"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"'^N' to jump to screen #N (appears in upper right of screen as"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: " <N>),",!,"a number to jump to that number 801 screen,"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: " ?? to list the 801 screens,"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"<RET> to continue on to next screen or A-B to edit:"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?10,"A-Professional service information",!,?10,"B-Procedure codes",!,"You may also enter any combination of the above, separated by commas (ex:A,B)",!
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: $P(N,U)," ",$P(N,U,2)
  • Line Location: CPT+2
Function Call: WRITE
  • Prompt: !,?7,"Quantity: ",$P(DGZPRF(J,K),U,14)
  • Line Location: CPT+4
Function Call: WRITE
  • Prompt: !,?7,"CPT Modifier ",I,":",$P(N,U,2)," ",$P(N,U,3)
  • Line Location: MOD+0
Function Call: WRITE
  • Prompt: !,"Must be at most 72 hrs prior to admission"
  • Line Location: DTIDS+4
Function Call: WRITE
  • Prompt: !,"Not after discharge"
  • Line Location: DTIDS+5
Function Call: WRITE
  • Prompt: !,"Must be on or after initial date of service",!
  • Line Location: DT401+5
Function Call: WRITE
  • Prompt: !,"Must be at most 72 hrs prior to admission"
  • Line Location: DT401+6
Function Call: WRITE
  • Prompt: !,"Not after discharge"
  • Line Location: DT401+7

FileMan Files Accessed Via FileMan Db Call

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