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

Package: Registration

Routine: DGPTUTL1


Information

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

Source Information

Source file <DGPTUTL1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 4 (501,535)^DGPTFVC2  D^DGPTUTL  ELIG^VADPT  $$INCOME^VAFMON  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIE  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
DRG Grouper 1 $$GETDATE^ICDGTDRG  
MailMan 1 GET^XMA2  

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

Package Total Caller Graph
Registration 10 CPT RECORD DATE/TIME  DG801  DGPT SET XMIT FLAG  DGPTF  DGPTFFB  DGPTFM  DGPTFM2  DGPTFM3  
DGPTFTR  DGPTX8  
Integrated Billing 1 IB20PT82  

Entry Points

Name Comments DBIA/ICR reference
DISP
INCQ
ELIG ; shows eligibility and disabilities
HELP
MOD
SETTRAN ;-- set transmission if error DGOUT=1, will return XMZ
CHK ;
KILLABX ;KILL AB CROSSREFERENCE IN FILE 45
UP ; -- select mvt and update xmit flag
INQ ;
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.
FLAG ; -- select PTF rec to update xmit flags
SETQ ;
FLAGQ
INCOME ;-- load ptf income information
; Use discharge date if available; else use current date/time
DATE ;EDIT CPT DATE/TIME TO BE AFTER ADMISSION DATE BUT BEFORE DISCHARGE
KVAR ; -- clean up for l/e
INC ;-- load income information Input:X date,Output:Y-income
CPT ;DISPLAY CPT CODES AND MODIFIERS
SETABX ;SET AB CROSSREFERENCE IN FILE 45
UPQ

External References

Name Field # of Occurrence
NOW^%DTC INCOME+2
501^DGPTFVC2 CHK+2
535^DGPTFVC2 CHK+2
D^DGPTUTL DISP+1
^DIC FLAG+3, UP+3
^DIE UP+6, INCOME+7
$$GETDATE^ICDGTDRG CPT+1, MOD
$$CPT^ICPTCOD CPT+1
$$MOD^ICPTMOD MOD
ELIG^VADPT ELIG+1
$$INCOME^VAFMON INC+3
GET^XMA2 SETTRAN+5

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
  • Timeout: DTIME
  • Variable: X
  • 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: !,"Not before admission"
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !,"Not after discharge"
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !,"Cannot change to existing CPT date/time entry"
  • Line Location: DATE+3
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
Routine Call
  • DIE
  • Line Location:
    • UP+6
    • INCOME+7
Routine Call
  • DIC
  • Line Location:
    • FLAG+3
    • UP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SETTRAN+3
^DGCPT(46 - [#46] SETABX+3, SETABX+4
^DGPT - [#45] INCOME+3, DATE+1, DATE+3, SETABX+1, KILLABX+1
^DGPT("AB" SETABX+5!, SETABX+6*, KILLABX+2!
^DIC(31 - [#31] ELIG+3
^DPT - [#2] ELIG+2
^UTILITY($J KVAR+3!

Label References

Name Line Occurrences
CHK FLAG+3
FLAGQ FLAG+3
INC INCOME+4
INCQ INC+2
INQ INCOME+5
KILLABX SETABX+1
MOD CPT+3
SETABX KILLABX+1
SETQ SETTRAN+6
UP FLAG+4, UP+6
UPQ UP+5

Naked Globals

Name Field # of Occurrence
^( DATE+3
^(0 ELIG+2, ELIG+3
^(101 INCOME+3
^(70 INCOME+3, DATE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% INCOME+3, INQ+1!, KVAR+1!
%DT KVAR+1!
A KVAR+1!
AGE KVAR+1!
ANS KVAR+1!
B KVAR+1!
BOOL SETABX+2~*, SETABX+3, SETABX+4*, SETABX+5
C FLAGQ!, CHK+1~, CHK+2
CC KVAR+1!
>> CPT CPT+1*
D KVAR+3!
D0 KVAR+3!
DA UP+6*, INCOME+6*, INQ+1!, KVAR+1!, SETABX+1, SETABX+5, SETABX+6, KILLABX+1, KILLABX+2
DA(1 DATE+1, DATE+3, SETABX+1, SETABX+3, SETABX+5, SETABX+6, KILLABX+1, KILLABX+2
DAM KVAR+1!
DE UP+6!
DFN INC+3, KVAR+1!, KVAR+3!, ELIG+2
DFN1 KVAR+3!
DFN2 KVAR+3!
DG KVAR+2!
DG30 INQ+1!, INC+1~
DG300 KVAR+4!
DG300A KVAR+4!
DG300B KVAR+4!
DG362 INQ+1!, INC+1~
DG701 KVAR+4!
DGA FLAGQ!
DGA1 FLAGQ!, KVAR+2!
DGAD KVAR+2!
DGADM FLAGQ!, KVAR+3!
DGAMY KVAR+4!
DGBPC KVAR+4!
DGCFL KVAR+3!
>> DGCPT SETABX+2*, SETABX+3*, SETABX+4
DGCR KVAR+5!
>> DGD SETTRAN+3
DGDAT KVAR+6!
DGDC KVAR+2!
DGDD KVAR+3!
DGDRGNM KVAR+2!
DGDS KVAR+5!
DGDX KVAR+2!
DGDXPOA KVAR+5!
DGER KVAR+2!
DGERR KVAR+3!
DGEXQ CHQUES+6!
DGEXQ(1 CHQUES+7*
DGEXQ(2 CHQUES+7*
DGEXQ(3 CHQUES+7*
DGFC KVAR+3!
DGHOLD KVAR+4!
DGI INQ+1!, INC+1~, KVAR+2!
DGICD0 KVAR+2!
DGINCM INQ+1!, INC+1~
DGINFO KVAR+2!
DGJUMP KVAR+2!
DGLAST KVAR+5!
DGLOS KVAR+2!
DGMAX FLAG+1*, FLAGQ!, CHK+2
DGMOV KVAR+4!
DGMOVM KVAR+2!
DGMPOA KVAR+5!
DGMTY FLAG+4*, FLAGQ!, UP+1, UP+2, CHK+1!, CHK+2*
DGMTY( FLAG+4, CHK+2*
DGMV KVAR+5!
DGMV0 KVAR+5!
DGMVT KVAR+5!
DGN KVAR+3!
DGNEXT KVAR+2!
DGNODE KVAR+3!
DGNTARR KVAR+5!
DGNUM KVAR+3!
DGNXD KVAR+2!
DGOUT FLAG+4, FLAGQ!, UP+4!*
>> DGOUTX SETTRAN+2*, SETTRAN+8*
DGP KVAR+2!
DGPAS KVAR+2!
DGPC KVAR+2!
DGPM2X KVAR+4!
DGPMDA KVAR+4!
DGPMDCD KVAR+4!
DGPMVI KVAR+4!
DGPMY KVAR+5!
DGPOA KVAR+6!
DGPR KVAR+1!
DGPRD KVAR+2!
DGPROCD KVAR+2!
DGPROCI KVAR+2!
DGPROCM KVAR+2!
DGPSV KVAR+2!
DGPTDAT KVAR+6!
DGPTF KVAR+6!
DGPTFE KVAR+1!
DGPTFMT KVAR+2!
DGPTIT KVAR+4!
DGPTSCRN KVAR+4!
DGPTTMP KVAR+6!
DGQWK KVAR+2!
DGREC KVAR+4!
DGREL KVAR+1!
DGRM KVAR+5!
DGRTY KVAR+2!
DGRTY0 SETTRAN+4, KVAR+2!
DGSB KVAR+5!
>> DGSD SETTRAN+3
DGSPACE2 KVAR+5!
DGST KVAR+1!
DGSUR KVAR+4!
DGT FLAGQ!, INQ+1!, INC+1~
DGTLOS KVAR+2!
DGTMP KVAR+6!
DGTY KVAR+2!
DGVAR KVAR+2!
DGVI KVAR+3!
DGVO KVAR+3!
DGX FLAGQ!, INCOME+3*, INCOME+5, INQ+1!, INC+1~, KVAR+2!
DGXMZ SETTRAN+1!, SETTRAN+6*
DGZ KVAR+3!
DGZDIAG KVAR+3!
DGZM0 KVAR+1!
DGZP KVAR+5!
DGZPRF KVAR+6!, DISP
DGZPRF( DISP+1, CPT+1, CPT+3, CPT+4
DGZPRO KVAR+3!
DGZS0 KVAR+1!
DGZSER KVAR+3!
DGZSUR KVAR+1!
DIC FLAG+2*, FLAG+3!, UP+1*, UP+2*, UP+3!, KVAR+1!
DIC("S" FLAG+2*, UP+1*, UP+2*
DIC(0 FLAG+2*, UP+3*
DIE UP+3*, UPQ!, INCOME+6*, INQ+1!, KVAR+1!
DIS2 KVAR+2!
DISDATE KVAR+6!
DOB KVAR+1!
DP KVAR+2!
DQ UP+6!, KVAR+2!
DR UP+6*, UPQ!, INCOME+6*, INQ+1!, KVAR+1!, KVAR+2!
DRG KVAR+1!
DRGCAL KVAR+1!
DTIME ELIG+6
DXLS KVAR+1!
EFFDATE KVAR+6!
EXP KVAR+1!
H KVAR+1!
HEAD KVAR+1!
I KVAR+1!, ELIG+2*, DATE+3*, DISP*, DISP+1, CPT+3*, CPT+4!, MOD
I1 KVAR+3!, ELIG+2*, ELIG+3, ELIG+4, ELIG+5
I2 KVAR+1!
ICD10NIORT KVAR+6!
ICD10ORNIT KVAR+6!
ICD10ORT KVAR+6!
ICD10SDT KVAR+6!
ICDCSYS KVAR+6!
ICDDA KVAR+6!
ICDEDT KVAR+6!
ICDIEN KVAR+6!
ICDLABEL KVAR+6!
ICDPOA KVAR+6!
ICDRG KVAR+6!
ICDTMP KVAR+6!
ICDX KVAR+6!
ID KVAR+5!
IMPDATE KVAR+6!
J KVAR+1!, CPT+1, CPT+3, CPT+4
J1 KVAR+3!
K KVAR+1!, CPT+1, CPT+3, CPT+4
L KVAR+1!
L1 KVAR+1!
L2 KVAR+3!
L3 KVAR+3!
L4 KVAR+3!
L5 KVAR+3!
L6 KVAR+3!
M KVAR+1!
M1 KVAR+1!
M2 KVAR+3!
M3 KVAR+5!
MDC KVAR+3!
MOD CPT+3*, CPT+4!, MOD
MOV KVAR+1!
MT KVAR+1!
N KVAR+1!, CPT+1*, CPT+2, CPT+4!, MOD*
NDR KVAR+3!
NL KVAR+3!
NO KVAR+1!
NOR KVAR+1!
NSD KVAR+3!
NU KVAR+1!
OR KVAR+3!
ORG KVAR+3!
P KVAR+1!
P1 KVAR+1!
P2 KVAR+3!
PD KVAR+3!
PM KVAR+3!
POP KVAR+2!
PROC KVAR+3!
>> PSCNT ELIG+3*, ELIG+4, ELIG+5
>> PSDIS ELIG+3*, ELIG+4, ELIG+5
PT KVAR+1!
PTF FLAG+3*, UP+1, UP+2, INCOME+3, INCOME+6, KVAR+1!, CPT+1, MOD
PTR KVAR+5!
RC KVAR+2!
S KVAR+3!
S1 KVAR+1!
S2 KVAR+3!
SD KVAR+3!
SD1 KVAR+3!
SEX KVAR+1!
ST KVAR+3!
ST1 KVAR+2!
STR KVAR+6!
SU KVAR+3!
SUR KVAR+1!
T KVAR+3!
T1 CHK+1~*
T2 CHK+1~*
TAC KVAR+3!
TRS KVAR+3!
TY KVAR+2!
TYPE KVAR+5!
U INCOME+5, SETTRAN+4, DATE+1, SETABX+1, KILLABX+1, DISP, CPT+1, CPT+2, CPT+3, CPT+4
, MOD
VA KVAR+6!
VACNT KVAR+6!
VAEL KVAR+6!
VAEL(1 ELIG+1
VAEL(3 ELIG+1
VAERR KVAR+4!
VAIN KVAR+5!
VAIP KVAR+4!
X UP+4, INCOME+3*, INC+2, INC+3, KVAR+3!, ELIG+6*, DATE+1!, DATE+2!, DATE+3!, SETABX+5
, SETABX+6, KILLABX+2
>> XMDUZ SETTRAN+4*
>> XMSUB SETTRAN+4*
XMZ SETTRAN+6!
XX KVAR+5!
Y FLAG+3*, UP+5, UP+6, INCOME+5, INCOME+6, INC+2*, INC+3*, INC+4*, SETTRAN+3*, SETTRAN+4
, KVAR+1!, DISP+1*
Z KVAR+3!
Z1 KVAR+3!
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