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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls