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

Package: Registration

Routine: DGPOTEN


Information

DGPOTEN ;SLC/RM/JC - POTENTIAL PRESUMPTIVE PSYCHOSIS REPORT ; Apr 1, 2021@12:54:25 pm

Source Information

Source file <DGPOTEN.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 HOME^%ZIS  $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  EN^XUTMDEVQ  
Registration 3 (CHECKIB,CHECKPTF,CHECKRX,CHKTREAT)^DGFSMOUT  ($$PPINFO,$$PPWRKARN)^DGPPAPI  $$SITE^VASITE  
VA FileMan 3 WAIT^DICD  $$GET1^DIQ  ^DIR  

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

Package Total Caller Graph
Registration 1 DG POTEN PRESUMPT PSYCHOSIS  

Entry Points

Name Comments DBIA/ICR reference
MAIN ;
START ; compile and print report
LOOP(DGSORT,DGPOTENLST) ;
LASTEOC(DFN) ;extract all Episode of Care and Rx and return the most current Episode of Care for a patient
PPDATE ;
PRINTPP(DGSORT,DGPOTENLST) ;
HEADER
LINE
COLHEAD
ASKCONT(FLAG) ; display "press <Enter> to continue" prompt
PAUSE(DGQ) ; pause screen display
; Input:
; DGQ - var used to quit report processing to user CRT
; Output:
; DGQ - passed by reference - 0 = Continue, 1 = Quit
EXIT ;
DATEFROM() ;prompt for FROM Date of Service
DATETO() ;prompt for TO Date of Service
ANSWER(DGDIRA,DGDIRB,DGDIR0,DGDIRH) ;
; Input
; DGDIR0 - DIR(0) string
; DGDIRA - DIR("A") string
; DGDIRB - DIR("B") string
; DGDIRH - DIR("?") string
; Output
; Function Value - Internal value returned from ^DIR or -1 if user
; up-arrows, double up-arrows or the read times out.

External References

Name Field # of Occurrence
HOME^%ZIS MAIN+23
$$S^%ZTLOAD HEADER+3
CHECKIB^DGFSMOUT LASTEOC+4
CHECKPTF^DGFSMOUT LASTEOC+3
CHECKRX^DGFSMOUT LASTEOC+5
CHKTREAT^DGFSMOUT LASTEOC+2
$$PPINFO^DGPPAPI LOOP+28
$$PPWRKARN^DGPPAPI LOOP+30
WAIT^DICD START+1
$$GET1^DIQ LOOP+35, LOOP+36, LOOP+37, LOOP+39
^DIR PAUSE+6, ANSWER+14
$$SITE^VASITE START+2
$$FMTE^XLFDT PRINTPP+14, PRINTPP+17, PRINTPP+20, HEADER+6, HEADER+7, DATEFROM+4
$$NOW^XLFDT HEADER+6
$$CJ^XLFSTR ASKCONT+2
EN^XUTMDEVQ MAIN+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: "POTENTIAL PRESUMPTIVE PSYCHOSIS REPORT"
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !!,"This option generates a list of patients who have been registered in"
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !,"VistA using the Presumptive Psychosis 'workaround' since 38 U.S. Code"
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: !,"1702 was passed on 3/14/2013."
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: !!,"Registration/Eligibility staff can use this list to view patient"
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !,"registrations to assign the Presumptive Psychosis Indicator found in"
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: !,"VistA screen 7, if applicable."
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: !!,"The default start date is the date the United State Code was put into"
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !,"effect; however, you can select a later start date.",!
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !,"You can also select a different end date for the report. Default is TODAY.",!
  • Line Location: MAIN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+19
Function Call: WRITE
  • Prompt: !!!," >>> No records were found using the report criteria.",!!
  • Line Location: PRINTPP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTPP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTPP+12
Function Call: WRITE
  • Prompt: ?53,DGLSTEOC
  • Line Location: PRINTPP+16
Function Call: WRITE
  • Prompt: ?53,$$FMTE^XLFDT(DGLSTEOC,"5Z")
  • Line Location: PRINTPP+17
Function Call: WRITE
  • Prompt: ?69,DGDOD
  • Line Location: PRINTPP+19
Function Call: WRITE
  • Prompt: ?69,$$FMTE^XLFDT(DGDOD\1,"5Z")
  • Line Location: PRINTPP+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTPP+21
Function Call: WRITE
  • Prompt: !!,"Number of Unique Patients: ",$J(DGTOTAL,5)
  • Line Location: PRINTPP+26
Function Call: WRITE
  • Prompt: !!,"<< end of report >>"
  • Line Location: PRINTPP+27
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINTPP+28
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: "REPORT RUN DATE: ",$$FMTE^XLFDT($$NOW^XLFDT,"MP")
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?44,"DATE RANGE: ",$$FMTE^XLFDT(DGSORT("DGBEG"),"5Z")," TO ",$$FMTE^XLFDT(DGSORT("DGEND"),"5Z")
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?(80-$L(ZTDESC))\2,$G(ZTDESC),?70,"Page: ",DGPAGE
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,?(80-$L(DGFACLTY))\2,DGFACLTY
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: "="
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: "PATIENT NAME",?32,"PID",?39,"REGISTRATION",?53,"LAST EPISODE",?69,"DATE OF"
  • Line Location: COLHEAD+1
Function Call: WRITE
  • Prompt: !,?39,"DATE",?53,"OF CARE",?69,"DEATH"
  • Line Location: COLHEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: COLHEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: COLHEAD+3
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Press <Enter> to "_$S(FLAG=1:"continue.",1:"exit."),20)
  • Line Location: ASKCONT+2
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+23
Routine Call
  • DIR
  • Line Location:
    • PAUSE+6
    • ANSWER+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] LOOP+26
^TMP($J START+6, START+7, START+8, LASTEOC+4!

Label References

Name Line Occurrences
$$ANSWER DATEFROM+7, DATETO+7
$$DATEFROM MAIN+15
$$DATETO MAIN+17
$$LASTEOC LOOP+38
ASKCONT PRINTPP+7, PRINTPP+28
COLHEAD PRINTPP+4, PRINTPP+9, PRINTPP+12
EXIT START+13
HEADER PRINTPP+4, PRINTPP+9, PRINTPP+12
LINE PRINTPP+6, PRINTPP+25, HEADER+8, HEADER+12, COLHEAD+3
LOOP START+10
PAUSE PRINTPP+12
PPDATE LASTEOC+7
PRINTPP START+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT PPDATE+1~, PPDATE+6*
CPT LOOP+1~, LOOP+26*, LOOP+27*
DATA LOOP+2~, LOOP+40*, LOOP+42
DDASH PRINTPP+1~, PRINTPP+2*
DFN LOOP+2~, LASTEOC~, LASTEOC+2, LASTEOC+3
DGASK DATEFROM+1~, DATEFROM+7*, DATEFROM+8, DATEFROM+9, DATETO+1~, DATETO+7*, DATETO+8, DATETO+9
DGBEGDT DATEFROM+1~, DATEFROM+2*, DATEFROM+4, DATEFROM+6, DATEFROM+8
DGDFN LOOP+1~, LOOP+26*, LOOP+28, LOOP+30, LOOP+35, LOOP+36, LOOP+37, LOOP+38, LOOP+39, LOOP+42
, PRINTPP+1~, PRINTPP+11*, PRINTPP+13, PRINTPP+14, PRINTPP+15, PRINTPP+18
DGDIR0 ANSWER~, ANSWER+10
DGDIRA DATEFROM+1~, DATEFROM+3*, DATEFROM+7, DATETO+1~, DATETO+2*, DATETO+7, ANSWER~, ANSWER+11
DGDIRB DATEFROM+1~, DATEFROM+4*, DATEFROM+7, DATETO+1~, DATETO+3*, DATETO+7, ANSWER~, ANSWER+12
DGDIRH DATEFROM+1~, DATEFROM+5*, DATEFROM+7, DATETO+1~, DATETO+4*, DATETO+7, ANSWER~, ANSWER+13
DGDIRO DATEFROM+1~, DATEFROM+6*, DATEFROM+7, DATETO+1~, DATETO+6*, DATETO+7
DGDOB LOOP+1~
DGDOD LOOP+2~, LOOP+39*, LOOP+40, PRINTPP+1~, PRINTPP+18*, PRINTPP+19, PRINTPP+20
DGDOS PPDATE+1~, PPDATE+3*, PPDATE+4, PPDATE+5, PPDATE+6, PPDATE+7, PPDATE+8
DGDTEND DATETO+1~, DATETO+5*
DGDTOFREG PRINTPP+1~, PRINTPP+13*, PRINTPP+14
DGDTRNGE HEADER+2~
DGENCNT LOOP+1~, LOOP+34*
DGFACLTY HEADER+2~, HEADER+10*, HEADER+11
DGLASTEOC LOOP+2~, LOOP+38*, LOOP+40, LOOP+41, LASTEOC+1~, LASTEOC+6*, LASTEOC+8*, LASTEOC+9*, LASTEOC+10, PPDATE+2*
, PPDATE+7*, PPDATE+8*
DGLSTEOC PRINTPP+1~, PRINTPP+15*, PRINTPP+16, PRINTPP+17
DGOLD PRINTPP+1~, PRINTPP+2*
DGPAGE PRINTPP+1~, PRINTPP+2*, HEADER+4, HEADER+5*, HEADER+9, PAUSE+6
DGPID LOOP+1~, LOOP+36*, LOOP+40
DGPOTENLST START+4~, START+6*, START+9, START+10, START+11, START+12, LOOP~, LOOP+42, PRINTPP~, PRINTPP+3
, PRINTPP+10, PRINTPP+11, PRINTPP+13, PRINTPP+14, PRINTPP+15, PRINTPP+18
DGPPCAT LOOP+1~, LOOP+28*, LOOP+29, LOOP+31*, LOOP+32
DGPPFLGRPT LOOP+2~, LOOP+24*
DGPPREGDT LOOP+2~, LOOP+37*, LOOP+40
DGPPWRK LOOP+1~, LOOP+30*, LOOP+32
DGPRINT PRINTPP+1~, PRINTPP+2*
DGPTNAME LOOP+1~, LOOP+35*, LOOP+40, LOOP+42, PRINTPP+1~, PRINTPP+10*, PRINTPP+11, PRINTPP+13, PRINTPP+14, PRINTPP+15
, PRINTPP+18
DGQ PRINTPP+1~, PRINTPP+2*, PRINTPP+10, PRINTPP+11, PRINTPP+12, PRINTPP+23, PRINTPP+24, HEADER+3*, PAUSE~, PAUSE+6*
DGSORT MAIN+1~, START+10, START+11, LOOP~, PRINTPP~
DGSORT("DGBEG" LASTEOC+2, LASTEOC+3, LASTEOC+4, LASTEOC+8, HEADER+7, DATEFROM+8*, DATETO+5, DATETO+6
DGSORT("DGEND" LASTEOC+2, LASTEOC+3, LASTEOC+4, LASTEOC+9, HEADER+7, DATETO+8*
DGSTATN PPDATE+1~, PPDATE+4*, PPDATE+5, PPDATE+6, PRINTPP+1~
DGSTRTDT DATEFROM+1~
DGTOTAL PRINTPP+1~, PRINTPP+2*, PRINTPP+22*, PRINTPP+26
DIR PAUSE+6!, ANSWER+9~, ANSWER+14!
DIR("?" ANSWER+13*
DIR("??" ANSWER+13*
DIR("A" ANSWER+11*
DIR("B" ANSWER+12*
DIR(0 PAUSE+6*, ANSWER+10*
DIROUT ANSWER+9~, ANSWER+15, ANSWER+17
DIRUT ANSWER+9~
DTIME ASKCONT+3
DTOUT ANSWER+9~, ANSWER+15, ANSWER+17
DTPRNTD HEADER+2~
DUOUT ANSWER+9~, ANSWER+15, ANSWER+17
FILENO PPDATE+1~, PPDATE+5*, PPDATE+6
FLAG ASKCONT~, ASKCONT+2
HERE START+2~*, HEADER+10
I LOOP+2~, LOOP+34*
I1 LOOP+2~, LOOP+34*
IBOTHSTAT START+5~, START+8*, START+9, START+12
IOF MAIN+3, PRINTPP+28, HEADER+4
IOSL PRINTPP+12
IOST START+1, START+3
LINE LINE+1~, LINE+2*
PPDTARY PPDATE+1~
PPDTARY( PPDATE+7
RECORD START+5~, START+7*, START+9, START+12, LOOP+33, LASTEOC+6, PPDATE+3, PPDATE+4, PPDATE+5, PPDATE+6
SORTENCBY LOOP+1~, LOOP+3*
TRM START+3~*, HEADER+4, PAUSE+6
U LOOP+29, LOOP+31, LOOP+40, PRINTPP+13, PRINTPP+14, PRINTPP+15, PRINTPP+18, HEADER+10, ANSWER+16, ANSWER+18
VA LOOP+2~
VADM LOOP+2~
VAEL LOOP+2~
VAUTD LOOP+1~, LOOP+23*, LASTEOC+2
X MAIN+21*, MAIN+22, ANSWER+9~, ANSWER+16, ANSWER+18
Y PAUSE+6, ANSWER+9~, ANSWER+16, ANSWER+18
Z ASKCONT+1~, ASKCONT+3*, ANSWER+9~, ANSWER+15*, ANSWER+16*
ZTDESC MAIN+2~, HEADER+9
ZTQUEUED MAIN+2~, HEADER+3
ZTREQ MAIN+2~
ZTSAVE MAIN+2~, MAIN+22
ZTSAVE("DGSORT(" MAIN+20*
ZTSTOP MAIN+2~, HEADER+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