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

Package: Registration

Routine: DGPPDRP1


Information

DGPPDRP1 ;SLC/RM - PRESUMPTIVE PSYCHOSIS DETAIL REPORT CONTINUATION ; Dec 21, 2020@10:00 am

Source Information

Source file <DGPPDRP1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 3 $$CHKDATE^DGOTHFSM  $$DOLLAR^DGPPRRPT  2^VADPT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  
National Drug File 1 $$CPTIER^PSNAPIS  
Outpatient Pharmacy 1 PSS^PSO59  
Pharmacy Data Management 1 NDF^PSS50  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 4 DGFSMOUT  DGPPDRPT  DGPPDRX  DGPPOHUT  

Entry Points

Name Comments DBIA/ICR reference
PRNTENC(TMPDATA,ENCDT) ;continuation of ENCTR tag found in DGOTHFS2
DSPLAY ;display episode of care data
DSPLAY1 ;
LINE(FLAG) ;prints double dash line
PTHDR(TITLE) ;patient name and DOB header
ENCTRCOL ;display encounter column name
ENCHDR(FLAG) ;Encounter Header
DTRANGE ;display date range
PAUSE(DGQ) ; pause screen display
E(MSG) ; ----- ask user to press enter to continue
; Return: -2:Time-out; -1:'^'-out 1:anything else
PARTIAL(LIST) ;extract rx partial fill for this patient
CPTIER ;extract Rx Copay Tier

External References

Name Field # of Occurrence
$$CHKDATE^DGOTHFSM PARTIAL+7
$$DOLLAR^DGPPRRPT PRNTENC+12, PRNTENC+18, PRNTENC+32
$$GET1^DIQ DSPLAY1+8
^DIR E+6
$$CPTIER^PSNAPIS CPTIER+9
PSS^PSO59 PARTIAL+9
NDF^PSS50 CPTIER+4
2^VADPT PTHDR+5
$$FMTE^XLFDT DSPLAY1+6, DTRANGE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTENC+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTENC+8
Function Call: WRITE
  • Prompt: ?73,$E($P(TMPDATA,U,7),1,15)
  • Line Location: PRNTENC+10
Function Call: WRITE
  • Prompt: ?89,$S(NWBILL=0:"",1:NWBILL)
  • Line Location: PRNTENC+11
Function Call: WRITE
  • Prompt: ?102,$J($TR(AMOUNT,"$()",""),14)
  • Line Location: PRNTENC+13
Function Call: WRITE
  • Prompt: ?116,$E($P(TMPDATA,U,13),1,15)
  • Line Location: PRNTENC+14
Function Call: WRITE
  • Prompt: ?73,$E($P(TMPDATA,U,9),1,15)
  • Line Location: PRNTENC+16
Function Call: WRITE
  • Prompt: ?89,$S(NWBILL=0:"",1:NWBILL)
  • Line Location: PRNTENC+17
Function Call: WRITE
  • Prompt: ?102,$J($TR(AMOUNT,"$()",""),14)
  • Line Location: PRNTENC+19
Function Call: WRITE
  • Prompt: ?116,$E($P(TMPDATA,U,14),1,15)
  • Line Location: PRNTENC+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTENC+26
Function Call: WRITE
  • Prompt: ?73,$E($P(@RECORD@(DGPPDOS,DGPPDIV,FILENO,RECNT,RECNUM),U),1,15)
  • Line Location: PRNTENC+29
Function Call: WRITE
  • Prompt: ?73,$E($P(@RECORD@(DGPPDOS,DGPPDIV,FILENO,RECNT,RECNUM),U,2),1,15)
  • Line Location: PRNTENC+30
Function Call: WRITE
  • Prompt: ?89,$P(@RECORD@(DGPPDOS,DGPPDIV,FILENO,RECNT,RECNUM),U,4)
  • Line Location: PRNTENC+31
Function Call: WRITE
  • Prompt: ?102,$J($TR(AMOUNT,"$()",""),14)
  • Line Location: PRNTENC+33
Function Call: WRITE
  • Prompt: ?116,$E($P(@RECORD@(DGPPDOS,DGPPDIV,FILENO,RECNT,RECNUM),U,7),1,15)
  • Line Location: PRNTENC+34
Function Call: WRITE
  • Prompt: !,?20,$E($P(TMPDATA,U,4),1,18)
  • Line Location: PRNTENC+37
Function Call: WRITE
  • Prompt: !,?20,$E($P(TMPDATA,U,4),1,18)
  • Line Location: DSPLAY+4
Function Call: WRITE
  • Prompt: !,?20,$E($P(TMPDATA,U,4),1,18)
  • Line Location: DSPLAY+8
Function Call: WRITE
  • Prompt: !,$E($P(TMPDATA,U,3),1,18)
  • Line Location: DSPLAY1+1
Function Call: WRITE
  • Prompt: ?20,$E($P(TMPDATA,U,4),1,18)
  • Line Location: DSPLAY1+2
Function Call: WRITE
  • Prompt: ?40,"N/A"
  • Line Location: DSPLAY1+3
Function Call: WRITE
  • Prompt: ?40,$P(TMPDATA,U,9)
  • Line Location: DSPLAY1+4
Function Call: WRITE
  • Prompt: ?50,$$FMTE^XLFDT(ENCDT\1,"5ZF")
  • Line Location: DSPLAY1+6
Function Call: WRITE
  • Prompt: ?61,$E(DGAPPTYP,1,10)
  • Line Location: DSPLAY1+18
Function Call: WRITE
  • Prompt: "="
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PTHDR+2
Function Call: WRITE
  • Prompt: ?132-$L(TITLE)\2,TITLE
  • Line Location: PTHDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PTHDR+3
Function Call: WRITE
  • Prompt: "Patient Name: ",DGPTNM_" ("_DGPID_")",?112,"DOB: ",$P(VADM(3),U,2),!
  • Line Location: PTHDR+6
Function Call: WRITE
  • Prompt: !,"Location of",?20,"Stop Code Name/",?40,"Primary",?50,"Date of",?61,"Appt. Type",?73,"Charge Type/",?89,"Bill #",?102,"Charge Amount",?116,"IB Status"
  • Line Location: ENCTRCOL+1
Function Call: WRITE
  • Prompt: !,"Care",?20,"Treating Specialty",?40,"DX",?50,"Service",?73,"Rate Type",!
  • Line Location: ENCTRCOL+2
Function Call: WRITE
  • Prompt: !,?132-$L(TITLE)\2,TITLE,!
  • Line Location: ENCHDR+3
Function Call: WRITE
  • Prompt: ?132-$L(DTRANGE)\2,DTRANGE,!
  • Line Location: DTRANGE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Routine Call
  • DIR
  • Line Location:
    • E+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SCE - [#409.68] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J PARTIAL+2, PARTIAL+5, PARTIAL+6, PARTIAL+8, PARTIAL+9!, PARTIAL+10, PARTIAL+11, PARTIAL+15!, CPTIER+2!, CPTIER+3
, CPTIER+8, CPTIER+10!

Label References

Name Line Occurrences
$$E PAUSE+4
DSPLAY PRNTENC+6, PRNTENC+7, PRNTENC+22
DSPLAY1 DSPLAY+5, DSPLAY+9
DTRANGE ENCHDR+4
ENCHDR PRNTENC+3
ENCTRCOL PRNTENC+3
LINE PRNTENC+3, ENCHDR+5
PAUSE PRNTENC+3
PTHDR PRNTENC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMOUNT PRNTENC+1~, PRNTENC+5*, PRNTENC+12*, PRNTENC+13, PRNTENC+18*, PRNTENC+19, PRNTENC+27*, PRNTENC+32*, PRNTENC+33
>> DFN CPTIER+3
DGAPPTYP DSPLAY+1~, DSPLAY1+8*, DSPLAY1+9*, DSPLAY1+11*, DSPLAY1+12*, DSPLAY1+13*, DSPLAY1+14*, DSPLAY1+15*, DSPLAY1+16*, DSPLAY1+17*
, DSPLAY1+18
>> DGCLNC PARTIAL+14
DGCPTIER CPTIER+2!, CPTIER+8*, CPTIER+9*
>> DGDFN PARTIAL+2, PARTIAL+5, PARTIAL+6, PARTIAL+8, PARTIAL+10, PARTIAL+11
DGDRUGIEN CPTIER+1~, CPTIER+3*, CPTIER+4, CPTIER+8, CPTIER+9
>> DGELGDTV PARTIAL+7
>> DGENCNT PARTIAL+13*, PARTIAL+14
DGEOIEN DSPLAY+1~, DSPLAY1+7*, DSPLAY1+8
>> DGOTHREGDT PARTIAL+7
>> DGPAGE PTHDR+2, PTHDR+4*, PAUSE+4
>> DGPID PTHDR+6
>> DGPPDIV PRNTENC+24, PRNTENC+25, PRNTENC+28, PRNTENC+29, PRNTENC+30, PRNTENC+31, PRNTENC+32, PRNTENC+34, PRNTENC+35, PRNTENC+36
, DSPLAY+8
>> DGPPDOS PRNTENC+7, PRNTENC+24, PRNTENC+25, PRNTENC+28, PRNTENC+29, PRNTENC+30, PRNTENC+31, PRNTENC+32, PRNTENC+34, PRNTENC+35
, PRNTENC+36, DSPLAY+8
DGPRTLDIV PARTIAL+1~, PARTIAL+8*, PARTIAL+9, PARTIAL+14
DGPRTLDT PARTIAL+1~, PARTIAL+5*, PARTIAL+6*, PARTIAL+7, PARTIAL+14
DGPRTLSTA PARTIAL+1~, PARTIAL+9*, PARTIAL+14
DGPRTLSTN PARTIAL+1~, PARTIAL+10*, PARTIAL+14
DGPRTLTOT PARTIAL+1~, PARTIAL+2*, PARTIAL+3, PARTIAL+4
DGPRTLUSR PARTIAL+1~, PARTIAL+11*, PARTIAL+12*, PARTIAL+14
>> DGPTNM PTHDR+6
DGQ PRNTENC+3, PAUSE~, PAUSE+4*
>> DGRXIEN PARTIAL+2, PARTIAL+5, PARTIAL+6, PARTIAL+8, PARTIAL+10, PARTIAL+11, PARTIAL+14, CPTIER+3
>> DGRXNUM PARTIAL+14
>> DGSORT("DGBEG" DTRANGE+2
>> DGSORT("DGEND" DTRANGE+2
>> DGTOTENC DSPLAY+10*
DIR E+3~
DIR("A" E+5*
DIR(0 E+4*
DIROUT E+3~
DIRUT E+3~
DT CPTIER+9
DTOUT E+3~, E+7
DTRANGE DTRANGE+1~, DTRANGE+2*, DTRANGE+3
DUOUT E+3~, E+7
ENCDT PRNTENC~, DSPLAY+4, DSPLAY1+6, DSPLAY1+19
>> FILENO PRNTENC+4, PRNTENC+9, PRNTENC+15, PRNTENC+24, PRNTENC+25, PRNTENC+28, PRNTENC+29, PRNTENC+30, PRNTENC+31, PRNTENC+32
, PRNTENC+34, PRNTENC+35, PRNTENC+36, DSPLAY+2, DSPLAY+7, DSPLAY+8, DSPLAY1+3, DSPLAY1+4, DSPLAY1+5
FLAG LINE~, LINE+2, ENCHDR~, ENCHDR+2
IOF PTHDR+2
IOSL PRNTENC+3, PAUSE+2
J PAUSE+1~, PAUSE+3*
JJJ PARTIAL+1~, PARTIAL+4*, PARTIAL+5, PARTIAL+6, PARTIAL+8, PARTIAL+10, PARTIAL+11
LINE LINE+1~, LINE+2*, LINE+3*
LIST PARTIAL~, PARTIAL+2, PARTIAL+5, PARTIAL+6, PARTIAL+8, PARTIAL+10, PARTIAL+11
MSG E~, E+2*, E+5
>> NWBILL PRNTENC+6, PRNTENC+7, PRNTENC+11, PRNTENC+17
>> OLDBILL PRNTENC+6, PRNTENC+7
>> OLDOEDT PRNTENC+7
>> OUTPATARY( DSPLAY+4, DSPLAY1+19*
>> PRNTSEC PRNTENC+35, PRNTENC+37*, DSPLAY+3, DSPLAY+6*
>> RECNT PRNTENC+24, PRNTENC+25, PRNTENC+28, PRNTENC+29, PRNTENC+30, PRNTENC+31, PRNTENC+32, PRNTENC+34, PRNTENC+35, PRNTENC+36
, DSPLAY+8
RECNUM PRNTENC+1~, PRNTENC+25*, PRNTENC+28, PRNTENC+29, PRNTENC+30, PRNTENC+31, PRNTENC+32, PRNTENC+34
>> RECORD PRNTENC+24, PRNTENC+25, PRNTENC+28, PRNTENC+29, PRNTENC+30, PRNTENC+31, PRNTENC+32, PRNTENC+34, PRNTENC+35, PRNTENC+36
, DSPLAY+8, PARTIAL+14
RSLTFRMOE PRNTENC+1~, PRNTENC+28*, PRNTENC+29
TITLE PTHDR~, PTHDR+1*, PTHDR+3, ENCHDR+1~, ENCHDR+2*, ENCHDR+3
TMPDATA PRNTENC~, PRNTENC+10, PRNTENC+12, PRNTENC+14, PRNTENC+16, PRNTENC+18, PRNTENC+20, PRNTENC+36*, PRNTENC+37, DSPLAY+2
, DSPLAY+4, DSPLAY+7, DSPLAY+8, DSPLAY1+1, DSPLAY1+2, DSPLAY1+4, DSPLAY1+5, DSPLAY1+7, DSPLAY1+19
>> TRM PTHDR+2, PAUSE+4
TRUE PRNTENC+1~, PRNTENC+2*, PRNTENC+6*, PRNTENC+7*, PRNTENC+8, PRNTENC+23*, PRNTENC+26, PRNTENC+37*, PRNTENC+38*
U PRNTENC+10, PRNTENC+12, PRNTENC+14, PRNTENC+16, PRNTENC+18, PRNTENC+20, PRNTENC+28, PRNTENC+29, PRNTENC+30, PRNTENC+31
, PRNTENC+32, PRNTENC+34, PRNTENC+37, DSPLAY+2, DSPLAY+4, DSPLAY+7, DSPLAY+8, DSPLAY1+1, DSPLAY1+2, DSPLAY1+4
, DSPLAY1+5, DSPLAY1+7, DSPLAY1+19, PTHDR+6, PARTIAL+2, PARTIAL+5, PARTIAL+6, PARTIAL+8, PARTIAL+10, PARTIAL+11
, PARTIAL+14, CPTIER+3, CPTIER+8, CPTIER+9
>> VADM PTHDR+5
>> VADM(3 PTHDR+6
X E+3~, E+7*, E+8
Y E+3~
Z E+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 |  Local Variables  | All