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

Package: Registration

Routine: DGRPECE1


Information

DGRPECE1 ;ALB/MRY - REGISTRATION CATASTROPHIC EDITS ALERT ; 11/17/04 9:30am

Source Information

Source file <DGRPECE1.m>

Entry Points

Name Comments DBIA/ICR reference
ALERT ;setup alert, display
DISP ;display catastrophic alert information
REVIEW ;
REMOVE ;
MSG ;
DATE4(X) ;return date in DD/MM/YYYY format
XQADATA ;XQADATA =

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !,HDR2
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,"Patient: ",DGNAME_" (ICN:"_$$GETICN^MPIF001($P(XQADATA,U,12))_")",?60,"Station: ",$P(XQADATA,U,13)
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !,"Patient Identification fields (before edit)"
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !?1,"Name: ",$P(XQADATA,U),?45,"Soc. Security Number: ",$P(XQADATA,U,2)
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !?1,"Date of Birth: ",$$DATE4($P(XQADATA,U,3)),?45,"Gender: ",$S($P(XQADATA,U,4)="M":"MALE",$P(XQADATA,U,4)="F":"FEMALE",1:$P(XQADATA,U,4))
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !?1,"Mother's Maiden Name: ",$P(XQADATA,U,5)
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: !?1,"Place of Birth [city]: ",$P(XQADATA,U,6)
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: !?1,"Place of Birth [state]: "
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: $P(^DIC(5,$P(XQADATA,U,7),0),U)
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: !,"Patient Identification fields (after edit)"
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(XQADATA,U,8),";",2)="*"
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: ?1,"Name: ",$P($P(XQADATA,U,8),";")
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: ?1,"Name: ",$P($P(XQADATA,U,8),";")
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(XQADATA,U,9),";",2)="*"
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: ?45,"Soc. Security Number: ",$P($P(XQADATA,U,9),";")
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(XQADATA,U,10),";",2)="*"
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: ?1,"Date of Birth: ",$$DATE4($P($P(XQADATA,U,10),";"))
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: ?44
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(XQADATA,U,11),";",2)="*"
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: ?45,"Gender: ",$S($P($P(XQADATA,U,11),";")="M":"MALE",$P($P(XQADATA,U,11),";")="F":"FEMALE",1:"")
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+24
Function Call: WRITE
  • Prompt: !,"Edited by: ",$$GET1^DIQ(8992.1,+DGIEN_",",.05),?45,"Generated: ",$$FMTE^XLFDT(DGDATA,"2P")
  • Line Location: DISP+26
Function Call: WRITE
  • Prompt: !,"With Option: ",DGDATA
  • Line Location: DISP+28
Function Call: WRITE
  • Prompt: !,"Reviewed by: "
  • Line Location: DISP+31
Function Call: WRITE
  • Prompt: $P(^VA(200,$P(DGDATA,U,15),0),U)
  • Condition for execution: $P(DGDATA,U,15)
  • Line Location: DISP+31
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+33

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