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

Package: Registration

Routine: DGPHIST


Information

DGPHIST ;WASH/ERC - PURPLE HEART REQUEST HISTORY ;23 AUG 00

Source Information

Source file <DGPHIST.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point
GETDFN() ;Ask the user to select patient
GETPAT(DFN) ; get patient name and ssn
PH(DGDFN1) ; does patient PH history exist
DEVICE() ;select output device
START ;
DATA ;Build line data and print
HEAD ; page header
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is no Purple Heart history for patient "_$G(DGNAM)_"."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request "_ZTSK_" Queued!",1:"Request Cancelled!"),!
  • Line Location: DEVICE+21
Function Call: WRITE
  • Prompt: !,$G(DGDATE),?10,$G(DGIND),?15,$G(DGSTAT),?27,$G(DGREM),?55,$E($G(DGUSER),1,24)
  • Line Location: DATA+29
Function Call: WRITE
  • Prompt: !!?30,"End of Report."
  • Line Location: DATA+30
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+31
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !!,"PURPLE HEART REQUEST HISTORY REPORT",?48,DGDT,?70,"Page: ",$G(DGPAGE)
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,"STATION: "_$G(DGSTN)
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,"DIVISION: ",DGDIV
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,"_____________________________________________________________________________"
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !!,"Patient Name: "_$G(DGNAM),?55,"SSN: "_$G(DGSSN)
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------------------"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !!,"Date",?10,"PH?",?15,"Status",?27,"Remarks",?55,"Updated By"
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,"--------",?10,"---",?15,"----------",?27,"--------------------------",?55,"---------------"
  • Line Location: HEAD+15

FileMan Files Accessed Via FileMan Db Call

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