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
Print Page as PDF
Routine: DGPMV20

Package: Registration

Routine: DGPMV20


Information

DGPMV20 ;ALB/MIR - DISPLAY DATES FOR SELECTION ; 27 APR 90

Source Information

Source file <DGPMV20.m>

Entry Points

Name Comments DBIA/ICR reference
WR
W1
W2
W3
W4
W5
W6
ENEX ;CALLED FROM DGPMEX FOR EXTENDED BED CONTROL/EXTENDED PATIENT INQ
Q
WEX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(I,2),"> ",Y
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: ?50,"TO: ",$S($D(^DIC(42,+$P(DGX,"^",6),0)):$E($P(^(0),"^",1),1,17),1:"")
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: " [",$E($P(^(0),"^",1),1,10),"]"
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: !?23,"FROM: ",$S($D(^DIC(4,+$P(DGX,"^",5),0)):$P(^(0),"^",1),1:"")
  • Line Location: W1+1
Function Call: WRITE
  • Prompt: ?50,"TO: ",$S($D(^DIC(4,+$P(DGX,"^",5),0)):$E($P(^(0),"^",1),1,18),1:"")
  • Line Location: W2+1
Function Call: WRITE
  • Prompt: ?50,"RETURN: "
  • Line Location: W2+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: W2+2
Function Call: WRITE
  • Prompt: ?50,"TO: ",$S($D(^DIC(42,+$P(DGX,"^",6),0)):$E($P(^(0),"^",1),1,17),1:"")
  • Line Location: W2+3
Function Call: WRITE
  • Prompt: " [",$E($P(^(0),"^",1),1,10),"]"
  • Line Location: W2+3
Function Call: WRITE
  • Prompt: ?50,"TO: ",$S($D(^DIC(4,+$P(DGX,"^",5),0)):$E($P(^(0),"^",1),1,18),1:"")
  • Line Location: W3+0
Function Call: WRITE
  • Prompt: ?55,"TO: ",$E($P(X,"^",1),1,20)
  • Line Location: W4+2
Function Call: WRITE
  • Prompt: !?7,"REASON: ",$S($D(^DG(406.41,+DGPMLD,0)):$E($P(^(0),"^",1),1,20),1:""),?35,"COMMENTS: ",$P(DGPMLD,"^",2)
  • Line Location: W4+3
Function Call: WRITE
  • Prompt: "DISPOSITION: ",$S($P(DGPMLD,"^",3)="a":"ADMITTED",$P(DGPMLD,"^",3)="d":"DISMISSED",1:"")
  • Line Location: W5+0
Function Call: WRITE
  • Prompt: "SPECIALTY: ",$S($D(^DIC(45.7,+$P(DGX,"^",9),0)):$E($P(^(0),"^",1),1,18),1:"")
  • Line Location: W6+0
Function Call: WRITE
  • Prompt: "PROVIDER : ",$S($D(^VA(200,+$P(DGX,"^",8),0)):$E($P(^(0),"^",1),1,15),1:"")
  • Line Location: W6+1
Function Call: WRITE
  • Prompt: "ATTENDING: ",$S($D(^VA(200,+$P(DGX,"^",19),0)):$E($P(^(0),"^",1),1,15),1:"")
  • Line Location: W6+2
Function Call: WRITE
  • Prompt: "DX: ",DGDX
  • Line Location: W6+3
Function Call: WRITE
  • Prompt: @IOF,!!,"ADMISSION:"
  • Line Location: ENEX+1
Function Call: WRITE
  • Prompt: !!,"DISCHARGE:"
  • Line Location: ENEX+6
Function Call: WRITE
  • Prompt: !?5,Y
  • Line Location: WEX+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WEX+1
Info |  Source |  Entry Points |  Interaction Calls