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

Package: Registration

Routine: DGRPECE2


Information

DGRPECE2 ;ALB/MRY - REGISTRATION CATASTROPHIC EDITS REPORT ; 11/16/04 9:00am

Source Information

Source file <DGRPECE2.m>

Entry Points

Name Comments DBIA/ICR reference
FMT
FDT
FDT1
LDT
START ;
SUMMARY ;print summary
DETAIL ;Print detail
QUIT
HEAD
CHKL
RET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"***CATASTROPHIC EDIT ALERTS ARE ONLY RETAINED FOR 365 DAYS.***"
  • Line Location: FDT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LDT+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Ending date must be after beginning date!"
  • Line Location: LDT+1
Function Call: WRITE
  • Prompt: !!,"TOTAL 'POTENTIAL CATASTROPHIC EDIT' ALERTS POSTED: ",DGTA
  • Line Location: SUMMARY+1
Function Call: WRITE
  • Prompt: !,"TOTAL 'POTENTIAL CATASTROPHIC EDIT' ALERTS REVIEWED: ",DGTR
  • Line Location: SUMMARY+2
Function Call: WRITE
  • Prompt: !,"TOTAL 'POTENTIAL CATASTROPHIC EDIT' ALERTS DETERMINED TO BE CATASTROPHIC: ",DGTC
  • Line Location: SUMMARY+3
Function Call: WRITE
  • Prompt: !!,$TR($J("",IOM)," ","*")
  • Line Location: DETAIL+1
Function Call: WRITE
  • Prompt: !?(IOM-$L(HDRS)/2),HDRS,!
  • Line Location: DETAIL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+9
Function Call: WRITE
  • Prompt: !,"Patient: "_$P($P(DGA(2),U,8),";")_" (ICN: "_DGICN_")",?60,"Station: ",$P(DGA(2),U,13)
  • Line Location: DETAIL+10
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DETAIL+11
Function Call: WRITE
  • Prompt: !?3,"Patient Identification (before edit)"
  • Line Location: DETAIL+12
Function Call: WRITE
  • Prompt: !?4,"Name: ",$P(DGA(2),U),?45,"Soc. Security Number: ",$P(DGA(2),U,2)
  • Line Location: DETAIL+13
Function Call: WRITE
  • Prompt: !?4,"Date of Birth: ",$$DATE4^DGRPECE1($P(DGA(2),U,3)),?45,"Gender: ",$S($P(DGA(2),U,4)="M":"MALE",$P(DGA(2),U,4)="F":"FEMALE",1:$P(DGA(2),U,4))
  • Line Location: DETAIL+14
Function Call: WRITE
  • Prompt: !?4,"Mother's Maiden Name: ",$P(DGA(2),U,5)
  • Line Location: DETAIL+15
Function Call: WRITE
  • Prompt: !?4,"Place of Birth [city]: ",$P(DGA(2),U,6)
  • Line Location: DETAIL+16
Function Call: WRITE
  • Prompt: !?4,"Place of Birth [state]: "
  • Line Location: DETAIL+17
Function Call: WRITE
  • Prompt: $P(^DIC(5,$P(DGA(2),U,7),0),U)
  • Line Location: DETAIL+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+18
Function Call: WRITE
  • Prompt: !?3,"Patient Identification fields (after edit)"
  • Line Location: DETAIL+19
Function Call: WRITE
  • Prompt: !?3
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(DGA(2),U,8),";",2)="*"
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: ?4,"Name: ",$P($P(DGA(2),U,8),";")
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: ?4,"Name: ",$P($P(DGA(2),U,8),";")
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(DGA(2),U,9),";",2)="*"
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: ?45,"Soc. Security Number: ",$P($P(DGA(2),U,9),";")
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: !?3
  • Line Location: DETAIL+22
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(DGA(2),U,10),";",2)="*"
  • Line Location: DETAIL+22
Function Call: WRITE
  • Prompt: ?4,"Date of Birth: ",$$DATE4^DGRPECE1($P($P(DGA(2),U,10),";"))
  • Line Location: DETAIL+22
Function Call: WRITE
  • Prompt: ?44
  • Line Location: DETAIL+23
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(DGA(2),U,11),";",2)="*"
  • Line Location: DETAIL+23
Function Call: WRITE
  • Prompt: ?45,"Gender: ",$S($P($P(DGA(2),U,11),";")="M":"MALE",$P($P(DGA(2),U,11),";")="F":"FEMALE",1:"")
  • Line Location: DETAIL+23
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+25
Function Call: WRITE
  • Prompt: !?3,"Edited by: ",$P(DGA(.05),U,2),?45,"Generated: ",$P(DGA(.02),U,2)
  • Line Location: DETAIL+26
Function Call: WRITE
  • Prompt: !?3,"With Option: ",$$GET1^DIQ(19,+$P(DGA(2),U,14)_",",.01)
  • Line Location: DETAIL+27
Function Call: WRITE
  • Prompt: !?3,"Reviewed by: "
  • Line Location: DETAIL+28
Function Call: WRITE
  • Prompt: $P(^VA(200,$P(DGA(2),U,15),0),U)
  • Condition for execution: $P(DGA(2),U,15)
  • Line Location: DETAIL+28
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+31
Function Call: WRITE
  • Prompt: @IOF,?(IOM-($L(DGDT)+7+$L(DGPG))),DGDT," PAGE ",DGPG,!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: ?(IOM-$L(HDR)/2),HDR,!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?(IOM-$L(DGT)/2),DGT
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?(IOM-$L(HDR2)/2),HDR2
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM-$X)," ","*")
  • Line Location: HEAD+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] GET1^DIQ
^XTV(8992.1 - [#8992.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call