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

Package: Registration

Routine: DGPPDRPT


Information

DGPPDRPT ;SLC/RM - PRESUMPTIVE PSYCHOSIS RECONCILIATION REPORT ; Dec 21, 2020@10:00 am

Source Information

Source file <DGPPDRPT.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive Processing
PROMPTPT ;prompt user to enter patient
SELPAT(DGSORT) ;prompt for veteran's name
RPTTYPE() ;prompt for type of data user wish to see
START ;starting point to generate report
CLEAN ;clean up data
GETDATA ;Extract records for a patient in files #409.68, #45, #405, #350, #399, and file #52
NOREC ;diplay verbiage if no recor found
YESNO(QUESTION) ;prompt user if still want to display the eligibility portion though no EOC or Rx found
CURRENT(DFN,PTNAME) ;display patient current and verified PE eligibility
MTS(DFN) ;display patient's Means Test Status information
RTDDIS(DFN) ;display patient's rated disabilities information
INS(DFN) ;display patient's health insurance information
PPENCTR(DFN,DGSORT) ;display patient's checked out Encounters and inpatient data
EOC ;remove any RX record and extract the IB status for the oupatient and inpatient record(s)
NOREC1 ;display no record verbiage back to the screen of the user

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: "PRESUMPTIVE PSYCHOSIS PATIENT DETAIL REPORT",!!
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: "This option generates a report of an individual patient treated under"
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: !,"Presumptive Psychosis authority within the user specified date range."
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: !!,"*** THIS REPORT REQUIRES 132 COLUMN OUTPUT TO PRINT CORRECTLY ***"
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !!,"At the DEVICE: prompt, please accept the default value of '0;132;'"
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !,"This is to deliberately avoid undesired wrapping problems of the data.",!!
  • Line Location: MAIN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+20
Function Call: WRITE
  • Prompt: !!,"Please specify a date range for Episodes of Care and Released Prescription:"
  • Line Location: MAIN+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAIN+39
Function Call: WRITE
  • Prompt: !!,"WARNING: ** The patient you entered is not a Presumptive Psychosis patient."
  • Line Location: PROMPTPT+12
Function Call: WRITE
  • Prompt: !," Please enter another patient.",!!
  • Line Location: PROMPTPT+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !
  • Line Location: START+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+36
Function Call: WRITE
  • Prompt: !!!,">> No Episode of Care and Released Prescription found FROM "_$$FMTE^XLFDT(DGSORT("DGBEG")\1,"5ZF")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND")\1,"5ZF")
  • Line Location: NOREC+5
Function Call: WRITE
  • Prompt: !," You may repeat the query with a different date range."
  • Line Location: NOREC+6
Function Call: WRITE
  • Prompt: !," Or run the Presumptive Psychosis Reconciliation Report option to"
  • Line Location: NOREC+7
Function Call: WRITE
  • Prompt: !," identify Presumptive Psychosis patients with Episode(s) of Care or"
  • Line Location: NOREC+8
Function Call: WRITE
  • Prompt: !," Released Prescription."
  • Line Location: NOREC+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: NOREC+10
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT($$GET1^DIQ(2,DFN_",",.3612,"I"),"5Z")
  • Line Location: CURRENT+7
Function Call: WRITE
  • Prompt: !?28
  • Condition for execution: I1>1
  • Line Location: CURRENT+8
Function Call: WRITE
  • Prompt: $P(VAEL(1,I),"^",2)
  • Line Location: CURRENT+8
Function Call: WRITE
  • Prompt: "NO ADDITIONAL ELIGIBILITIES IDENTIFIED"
  • Line Location: CURRENT+9
Function Call: WRITE
  • Prompt: !,"Enrollment Priority : ",$S(DGENRIEN="":"NOT ENROLLED",((DGENRPRI="")&(DGENRGRP="")):"NONE STATED",1:DGENRPRI_DGENRGRP)
  • Line Location: CURRENT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: CURRENT+14
Function Call: WRITE
  • Prompt: !,"Means Test Status : NOT IN MEANS TEST FILE"
  • Line Location: MTS+2
Function Call: WRITE
  • Prompt: !!,"Rated Disabilities: "
  • Line Location: RTDDIS+4
Function Call: WRITE
  • Prompt: "NOT A VETERAN"
  • Line Location: RTDDIS+4
Function Call: WRITE
  • Prompt: "NONE STATED"
  • Line Location: RTDDIS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RTDDIS+15
Function Call: WRITE
  • Prompt: $G(DGP1)_" - ",$E(DGP2,1,30)," ",DGP3
  • Line Location: RTDDIS+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: INS+3
Function Call: WRITE
  • Prompt: !!,"Health Insurance : "
  • Line Location: INS+4
Function Call: WRITE
  • Prompt: $S(Z:"YES",1:"NO")
  • Line Location: INS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+12
Function Call: WRITE
  • Prompt: !!,"<< end of report >>"
  • Line Location: INS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EOC+34
Function Call: WRITE
  • Prompt: !!,"Total Number of Episode(s) of Care: ",DGTOTENC
  • Line Location: EOC+35
Function Call: WRITE
  • Prompt: !!,">> No Episode of Care found for the date range "_$$FMTE^XLFDT(DGSORT("DGBEG"),"5ZF")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5ZF")_"."
  • Line Location: NOREC1+1
Function Call: WRITE
  • Prompt: !," You may repeat the query with a different date range.",!
  • Line Location: NOREC1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NOREC1+3
Function Call: WRITE
  • Prompt: !!,"Total Number of Episode(s) of Care: ",DGTOTENC
  • Line Location: NOREC1+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ,  RECALL^DILFD
^DGEN(27.11 - [#27.11] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call