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

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

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

FileMan Files Accessed Via FileMan Db Call

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