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

Package: Registration

Routine: DPTLK


Information

DPTLK ;ALB/RMO,RTK - MAS Patient Look-up Main Routine ; 3/22/05 4:19pm

Source Information

Source file <DPTLK.m>

Call Graph

Call Graph Total: 22

Package Total Call Graph
Registration 14 $$CVEDT^DGCV  ($$FINDCUR,$$GET)^DGENA  $$CATEGORY^DGENA4  ($$FINDCUR,$$GET)^DGENEGT  $$ABOVE^DGENEGT1  $$EXT^DGENU  ^DGSEC  $$BADADR^DGUTL3  
(,SETDPT)^DPTLK1  ^DPTLK2  ($$VAADV,EP2)^DPTLK3  $$FILE^DPTLK4  ($$BS5,$$DMT,FFP)^DPTLK5  $$TESTPAT^VADPT  
VA Fileman 6 CLRMSG^DDS  DO^DIC1  YN^DICN  DQ^DICQ  $$EXTERNAL^DILFD  ^DIR  
Kernel 2 ENDR^%ZISS  $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Lab Service 3 LRHY0  LRHY01  LRHYAFT  
Scheduling 2 SDRRCLR2  SDRRINQ  
Registration 1 DGENACL1  

Entry Points

Name Comments DBIA/ICR reference
Q1 ; -- Clean up variables
IX ; --
EN ; -- Entry point
NOPAT ; -- No patient found, ask to add new
TRACK(X,START,END) ; find track where start/end are sentinels
CHKPAT1
ENR ;Display Enrollment information after patient selection
IATA(X) ; --
Q ; --
EN2
ASKPAT ; -- Prompt for patient
MAG ; -- No patient found, check for mag stripe input, create stub
FIELDS(IATA) ; -- Sets fields
CV ;check for Combat Vet status
CHKPAT ; -- Custom Patient Lookup
QK
QK1
CHKDFN ; --

External References

Name Field # of Occurrence
ENDR^%ZISS ENR+21
CLRMSG^DDS CHKDFN+3
$$CVEDT^DGCV ENR+12, CV+2
$$FINDCUR^DGENA ENR+2, CV+4
$$GET^DGENA ENR+2, CV+4
$$CATEGORY^DGENA4 ENR+3
$$FINDCUR^DGENEGT ENR+14
$$GET^DGENEGT ENR+15
$$ABOVE^DGENEGT1 ENR+18
$$EXT^DGENU ENR+5, ENR+10
^DGSEC CHKDFN+15
$$BADADR^DGUTL3 Q+6
DO^DIC1 CHKPAT+1
YN^DICN CHKPAT+17, CHKDFN+11
DQ^DICQ CHKPAT1+1
$$EXTERNAL^DILFD ENR+4
^DIR MAG+10
^DPTLK1 CHKPAT1+17
SETDPT^DPTLK1 CHKPAT1+5, CHKPAT1+10, CHKPAT1+17
^DPTLK2 NOPAT+1
$$VAADV^DPTLK3 Q+7
EP2^DPTLK3 MAG+16
$$FILE^DPTLK4 MAG+19
$$BS5^DPTLK5 CHKDFN+7
$$DMT^DPTLK5 Q+20
FFP^DPTLK5 Q+9
$$TESTPAT^VADPT Q+5
$$FMTE^XLFDT ENR+7, ENR+23, CV+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Unable to proceed. Fileman version node ^DD(""VERSION"") is undefined."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Could not add patient to patient file"
  • Line Location: MAG+20
Function Call: WRITE
  • Prompt: $S('$D(DPTSEL)&('$D(DIVP)):$P(DPTS(DPTDFN),U,2)_" "_$P(DPTS(DPTDFN),U)_" ",$D(^DPT(DPTDFN,0)):" "_$P(^(0),U)_" ",1:"")
  • Line Location: CHKDFN+2
Function Call: WRITE
  • Prompt: *7,!,"Warning : You have selected a test patient."
  • Line Location: Q+4
Function Call: WRITE
  • Prompt: *7,!,"WARNING : You may have selected a test patient."
  • Line Location: Q+5
Function Call: WRITE
  • Prompt: *7,!,"WARNING : ** This patient has been flagged with a Bad Address Indicator."
  • Line Location: Q+6
Function Call: WRITE
  • Prompt: *7,!,"** Patient is VA ADVANTAGE."
  • Line Location: Q+7
Function Call: WRITE
  • Prompt: !?1,"Enrollment Priority: ",$S($G(DGENR("PRIORITY")):$$EXT^DGENU("PRIORITY",DGENR("PRIORITY")),1:""),$S($G(DGENR("SUBGRP"))="":"",1:$$EXT^DGENU("SUBGRP",$G(DGENR("SUBGRP"))))
  • Line Location: ENR+5
Function Call: WRITE
  • Prompt: ?33,"Category: ",DGENCAT
  • Line Location: ENR+6
Function Call: WRITE
  • Prompt: ?57,"End Date: ",$S($G(DGENR("END")):$$FMTE^XLFDT(DGENR("END"),"5DZ"),1:""),!
  • Line Location: ENR+7
Function Call: WRITE
  • Prompt: ?1,"Enrollment Status: ",$S($G(DGENR("STATUS")):$$EXT^DGENU("STATUS",DGENR("STATUS")),1:"")
  • Line Location: ENR+10
Function Call: WRITE
  • Prompt: IORVON
  • Condition for execution: $D(IORVON)
  • Line Location: ENR+22
Function Call: WRITE
  • Prompt: "*** WARNING ***"
  • Line Location: ENR+22
Function Call: WRITE
  • Prompt: IORVOFF
  • Condition for execution: $D(IORVOFF)
  • Line Location: ENR+22
Function Call: WRITE
  • Prompt: !?14
  • Line Location: ENR+23
Function Call: WRITE
  • Prompt: IORVON
  • Condition for execution: $D(IORVON)
  • Line Location: ENR+23
Function Call: WRITE
  • Prompt: "*** PATIENT ENROLLMENT END",$S(DT>+DGENR("END"):"ED",1:"S")," EFFECTIVE ",$$FMTE^XLFDT(DGENR("END"),"5DZ")," ***"
  • Line Location: ENR+23
Function Call: WRITE
  • Prompt: IORVOFF
  • Condition for execution: $D(IORVOFF)
  • Line Location: ENR+23
Function Call: WRITE
  • Prompt: IORVON
  • Condition for execution: $D(IORVON)
  • Line Location: ENR+24
Function Call: WRITE
  • Prompt: "*** PATIENT ENROLLMENT ENDING. ENROLLMENT END DATE IS NOT KNOWN. ***"
  • Line Location: ENR+24
Function Call: WRITE
  • Prompt: IORVOFF
  • Condition for execution: $D(IORVOFF)
  • Line Location: ENR+24
Function Call: WRITE
  • Prompt: !
  • Line Location: CV+4
Function Call: WRITE
  • Prompt: ?3,"Combat Vet Status: "_$S($P(DGCV,U,3)=1:"ELIGIBLE",1:"EXPIRED"),?57,"End Date: "_$$FMTE^XLFDT($P(DGCV,U,2),"5DZ")
  • Line Location: CV+5
Routine Call
  • DDS
  • Line Location:
    • CHKDFN+3
Routine Call
  • DIR
  • Line Location:
    • MAG+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGEN(27.15 - [#27.15] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("OS" - [#.7] EN2+1
^DD("VERSION" EN+3, EN+4
^DD(2 IX+1
^DG(40.8 - [#40.8] Q+22
^DISV( CHKPAT1+4, Q+2*
^DPT - [#2] CHKPAT1+9, CHKPAT1+17, CHKDFN+2, CHKDFN+8, CHKDFN+16, Q+2
^DPT("AXFFP" Q+9
^DPT(0 EN+4, CHKPAT+17
^TMP("DGVIC" MAG+9

Label References

Name Line Occurrences
$$IATA ASKPAT+9
$$TRACK IATA+17
ASKPAT CHKPAT+8, CHKPAT+10, CHKPAT1+17, NOPAT+1, CHKDFN+1, CHKDFN+7, CHKDFN+15
CHKDFN CHKPAT+6, CHKPAT1+3, CHKPAT1+8, CHKPAT1+13, CHKPAT1+17
CHKPAT CHKPAT1+17
CHKPAT1 CHKPAT+13
CV Q+14
DPTLK IX+2
EN2 MAG+5, MAG+12, MAG+17
ENR Q+11
FIELDS MAG+14
NOPAT CHKPAT1+15, MAG+1
Q QK
Q1 MAG+6, MAG+12, MAG+17, QK1
QK EN+2, EN+3, EN+4, ASKPAT+1, CHKPAT+8, CHKPAT+10, CHKPAT1+17, CHKDFN+1, CHKDFN+7, CHKDFN+15
QK1 MAG+20, MAG+21, NOPAT+1

Naked Globals

Name Field # of Occurrence
^("OS" EN2+1
^("^DPT(" CHKPAT1+4
^(0 EN2+1, CHKDFN+2, Q+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CHKPAT+14~, CHKPAT+17*, CHKPAT+18, CHKDFN+7, CHKDFN+11*, CHKDFN+12
CNT FIELDS+2~, FIELDS+3*, FIELDS+5, FIELDS+6, FIELDS+7*
D CHKPAT+11*, Q1+1!, IX+1
>> DDS CHKDFN+3
>> DDSHBX CHKDFN+3
>> DDXY CHKDFN+3
DGCV CV+1~, CV+2*, CV+3, CV+5
DGEGT ENR+1~, ENR+15*
DGEGT("PRIORITY" ENR+16, ENR+18
DGEGT("SUBGRP" ENR+18
DGEGTIEN ENR+1~, ENR+14*, ENR+15
DGENCAT ENR+1~, ENR+3*, ENR+4*, ENR+6
DGENDFN ENR+1~
DGENR ENR+1~, ENR+2, CV+4
DGENR("END" ENR+7, ENR+23
DGENR("PRIORITY" ENR+5, ENR+16, ENR+18
DGENR("STATUS" ENR+9, ENR+10
DGENR("SUBGRP" ENR+5, ENR+18
DGFLDS MAG+19, Q1+6!, FIELDS+3*, FIELDS+4, FIELDS+6, FIELDS+9, FIELDS+10, FIELDS+11
DGOPT MAG+3~, MAG+4*, MAG+5
>> DIC EN2*
>> DIC("A" ASKPAT+3
>> DIC("B" ASKPAT+3, ASKPAT+5
>> DIC("W" CHKPAT+2*, Q1+1!
>> DIC(0 EN+2, EN2*, ASKPAT+1, CHKPAT+8, CHKPAT+10, CHKPAT1+17, NOPAT+1, CHKDFN+1, CHKDFN+2, CHKDFN+7
, CHKDFN+15, Q+2, Q+5, Q+6, Q+7, Q+11, Q+14, Q+20
>> DICR Q1+2
DIE EN+1~
DIR MAG+11!
DIR("A" MAG+8*
DIR("B" MAG+8*
DIR(0 MAG+8*
>> DIVP CHKDFN+2
DO EN2!, Q1+1!
DPTBTDT CHKDFN+15*, Q1+2!
DPTCNT CHKPAT+4*, Q1+1!
DPTDFN EN+2!, CHKPAT1+6*, CHKPAT1+11*, CHKPAT1+17*, MAG+17, NOPAT+1, CHKDFN+1*, CHKDFN+2, CHKDFN+7, CHKDFN+8
, CHKDFN+12*, CHKDFN+15*, CHKDFN+16*, Q+1, Q1+1!, ENR+2, ENR+3, ENR+12, ENR+18, CV+2
, CV+4
DPTDIV Q+18~, Q+20*, Q+22
>> DPTIDS( FIELDS+10*, FIELDS+11*
DPTIFNS CHKPAT+3!, Q1+1!
DPTIX Q1+1!, IX+1*
DPTLSNME CHKDFN+8~*, CHKDFN+9
>> DPTNOFZK QK, QK1
DPTNOFZY QK!, QK1!
DPTS CHKPAT+3!, Q1+1!
DPTS( CHKPAT1+6, CHKPAT1+11, CHKPAT1+17, CHKDFN+1, CHKDFN+2, CHKDFN+16, Q+1
DPTSAVX EN+2!, EN2*, Q+1, Q1+3!
DPTSEL CHKPAT+3!, CHKDFN+2, Q1+3!
DPTSSN CHKDFN+8~*, CHKDFN+10
DPTSZ EN2+1*, Q1+3!
DPTX EN+2!, EN2*, ASKPAT+1, ASKPAT+5*, ASKPAT+9*, CHKPAT+6, CHKPAT+8, CHKPAT+10, CHKPAT+12, CHKPAT1
, CHKPAT1+3, CHKPAT1+8, CHKPAT1+9, CHKPAT1+13, CHKPAT1+15, CHKPAT1+17, CHKDFN+16*, Q+1, Q1+3!, FIELDS+9*
DPTZERO CHKDFN+8~*
DR EN+1~
DT ENR+23
DTIME ASKPAT+4
DTOUT EN2!, ASKPAT+2!, ASKPAT+5*, CHKPAT1+17, NOPAT+1
DUOUT EN2!, ASKPAT+2!, ASKPAT+5*, CHKPAT1+17
DUZ CHKPAT1+4, Q+2
DUZ(2 Q+19, Q+20
>> DX CHKDFN+3*
>> DY CHKDFN+3*
>> DZ CHKPAT+12*, CHKPAT+13, CHKPAT+19*
END TRACK~, TRACK+2
FIELD FIELDS+2~, FIELDS+5*, FIELDS+6
GCHK ASKPAT+7~, MAG+9*
IATA MAG+14, Q1+5!, IATA+13*, IATA+17*, IATA+19, IATA+21, FIELDS~, FIELDS+1, FIELDS+5
IORVOFF ENR+19~, ENR+22, ENR+23, ENR+24
IORVON ENR+19~, ENR+22, ENR+23, ENR+24
MAG ASKPAT+7~, ASKPAT+8*, ASKPAT+9*, MAG+1
START TRACK~, TRACK+2
U EN2*, EN2+1, CHKDFN+2, CHKDFN+8, CHKDFN+16, Q+2, Q+22, CV+3, CV+5
X EN+2, EN2, ASKPAT+4*, ASKPAT+5, ASKPAT+9*, CHKPAT1*, CHKPAT1+17, Q+1*, IATA~, IATA+14
, IATA+15, IATA+17, TRACK~, TRACK+2, ENR+19~, ENR+20*
>> XQY0 MAG+4
>> Y CHKPAT1+4*, CHKPAT1+5, CHKPAT1+6, CHKPAT1+9*, CHKPAT1+10, CHKPAT1+11, CHKPAT1+17*, MAG+12, MAG+19*, MAG+20
, NOPAT+1*, CHKDFN+2*, CHKDFN+15*, Q+1*, Q+2, Q+5, Q+6, Q+7, Q+9, Q+11
, Q+14, Q+20
>> Y(0 Q+2*
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