Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGDSP1

Package: Inpatient Medications

Routine: PSGDSP1


Information

PSGDSP1 ;BIR/CML3-PRINT BLANK DISCHARGE ORDERS FORM ; 12 Mar 98 / 9:31 AM

Source Information

Source file <PSGDSP1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Inpatient Medications 4 ENHDR^PSGDSP0  ^PSGDSPN  $$ENDTC^PSGMI  PSJAC2^PSJAC  
Registration 1 (ELIG,SDA)^VADPT  
VA FileMan 1 NOW^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGDS0  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DONE ;
PAT ;
PRINT ;
OP ;

External References

Name Field # of Occurrence
NOW^%DTC EN+1
ENHDR^PSGDSP0 PRINT+2
^PSGDSPN PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10
$$ENDTC^PSGMI EN+1, PAT+2
PSJAC2^PSJAC PAT+1
ELIG^VADPT PAT+3
SDA^VADPT PAT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,ELN,!!,$J(N,3),?4,"Medication: ",LN,$E(LN,1,11),!!?4,"Outpatient Directions: ",LN,!!?4
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: "___SC ___NSC "
  • Condition for execution: ELIG
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: "Qty: _____ Refills: 0 1 2 3 4 5 6 7 8 9 10 11",!!?4,$E(LN,1,35)," ",$E(LN,1,14)," ",$E(LN,1,24)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !?4,"Provider's Signature",?40,"DEA #",?55,"Date AND Time"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,ELN,!?1,"DIETARY INSTRUCTIONS: (Check One)",!?1,"__ NO RESTRICTIONS __ RESTRICTIONS (Specify) ",$E(LN,1,33),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26),!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,ELN,!?1,"PHYSICAL ACTIVITY LIMITATIONS: (Check One)",!?1,"__ NO RESTRICTIONS __ RESTRICTIONS (Specify) ",$E(LN,1,33),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26),!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,ELN,!?1,"SPECIAL INSTRUCTIONS: (list print information, handouts, or other",!?1,"instructions pertinent to patient's condition)",$E(LN,1,32),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26),!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,ELN,!?1,"DIAGNOSES: ",LN,$E(LN,1,15),!!?1,LN,$E(LN,1,26),!!?1,LN,$E(LN,1,26)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!!?19,$E(LN,1,35)," ",$E(LN,1,24),!?19,"Nurse's Signature",?55,"Date AND Time",!!?19,$E(LN,1,35)," ",$E(LN,1,24),!?19,"Provider's Signature",?55,"Date AND Time",!!!?19,$E(ELN,1,42),!?19,">>>>> I HAVE RECEIVED AND UNDERSTAND <<<<<"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !?19,">>>>> MY DISCHARGE INSTRUCTIONS <<<<<",!?19,$E(ELN,1,42),!!?19,$E(LN,1,35)," ",$E(LN,1,24),!?19,"Patient's Signature",?55,"Date And Time"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !?2,PPN,?40,PSSN,?78-$L(PDOB),PDOB
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,LINE,!!,$J(N,3),?4,"Medication: ",LN,$E(LN,1,11),!!?4,"Outpatient Directions: ",LN,!!?4
  • Line Location: OP+1
Function Call: WRITE
  • Prompt: "___SC ___NSC "
  • Condition for execution: ELIG
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: "Qty: _____ Refills: 0 1 2 3 4 5 6 7 8 9 10 11",!!?4,$E(LN,1,35)," ",$E(LN,1,14)," ",$E(LN,1,24),!?4,"Provider's "
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: "Signature",?40,"DEA #",?55,"Date AND Time"
  • Line Location: OP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY("VASD" PAT+2!

Label References

Name Line Occurrences
OP PRINT+6
PAT EN+2
PRINT EN+2

Naked Globals

Name Field # of Occurrence
^("E" PAT+2
^("I" PAT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+1
AD DONE+1!
AGE DONE+1!
>> CML EN+1*, DONE+1
>> DFN PAT+2*
DIR DONE+1!
>> DRG PRINT+1*
>> ELIG PAT+3*, PRINT+4, OP+2
ELN DONE+1!, PRINT+1*, PRINT+4, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12
HDR DONE+1!, PRINT+2*, PRINT+7*
IO EN+1, EN+2
IO(0 EN+1
IOF DONE+1
IOSL PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+13
IOST EN+1
LINE DONE+1!, PRINT+1*, OP+1
LN DONE+1!, PRINT+1*, PRINT+4, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, OP+1
, OP+2
>> N PRINT+1*, PRINT+3*, PRINT+4, PRINT+6*, OP+1
>> NC PRINT+1*, PRINT+7*
>> NP PRINT+1*, PRINT+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10
PDOB DONE+1!, PRINT+14
PG DONE+1!
PI DONE+1!, PAT+4*
PN DONE+1!, PAT+1*
PPN DONE+1!, PRINT+14
PSEX DONE+1!
>> PSGD PAT+2*
>> PSGDT EN+1*
>> PSGOD PAT+2*, PAT+4
>> PSGP PAT+1, PAT+2
>> PSGP(0 PAT+1
PSGPDT EN+1*, DONE+1!
>> PSJPAD PAT+4
>> PSJPAGE PAT+4
>> PSJPDOB PAT+4
>> PSJPDX PAT+4
>> PSJPRB PAT+4
>> PSJPSEX PAT+4
>> PSJPSSN PAT+4
>> PSJPTD PAT+4
>> PSJPWDN PAT+1
>> PSJPWT PAT+4
PSSN DONE+1!, PRINT+14
>> Q PRINT+13*
RCT DONE+1!
RF DONE+1!
>> SC PAT+2*, PAT+4
SCV DONE+1!
STRS DONE+1!, PRINT+1*
TD DONE+1!
U PAT+4
VAEL PAT+3!
VAEL(3 PAT+3
VAEL(4 PAT+3
VAEL(6 PAT+3
VASD PAT+2!
WD DONE+1!, PAT+1*
WT DONE+1!
Z DONE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All