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

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.

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call