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

Package: Text Integration Utility

Routine: GMRPNCW


Information

GMRPNCW ;SLC/DJP,MKB,MJC - CWAD Utility ;Jan 13, 2021@10:55

Source Information

Source file <GMRPNCW.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry for secondary option to lookup patient, display warnings
SETUP(TITLE)
ENPAT ;Additional entry point; must be passed Patient DFN in Y.
END
CWLKP ;Lookup and presentation of CWA indicators
LIST ;List data lines -- expects GMRPTYP="C" or "W" or "A" or "D"
ADDEND(STATUS) ; If addended or amended, return most recent of these, for most recent note.
ADDX
RESPOND ;prompt for warnings to display
PRINT ;Prints Crisis Notes, Clin Warnings & Allergies using HS utilities.
QUES ;Response to "?" at CWA prompt
ALLERGY ;checks for allergies on file for patient - requires GMRPDFN
WH ;Retrieves pregnancy and lactation status for patient

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?(IOM-$L(TITLE)\2),TITLE,!
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SETUP+3
Function Call: WRITE
  • Prompt: !!,"No Patient Warnings on file for "
  • Line Location: ENPAT+8
Function Call: WRITE
  • Prompt: $P(GMRPDFN,U,2),".",!
  • Line Location: ENPAT+9
Function Call: WRITE
  • Prompt: !?24,"A: Known allergies"
  • Line Location: CWLKP+4
Function Call: WRITE
  • Prompt: !,?24,"P: Pregnant"
  • Line Location: CWLKP+6
Function Call: WRITE
  • Prompt: !,?24,"L: Lactating"
  • Line Location: CWLKP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CWLKP+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $D(DIRUT)!(Y=1)
  • Line Location: CWLKP+9
Function Call: WRITE
  • Prompt: !?11," (",CTR," note",$S(CTR>1:"s",1:" "),")",?24,GMRPTYP,": ",GMRPDDT
  • Line Location: LIST+17
Function Call: WRITE
  • Prompt: $$ADDEND(STATUS)
  • Line Location: LIST+18
Function Call: WRITE
  • Prompt: !!,"Select patient warning(s) to display: "_GMRPCWA_"//"
  • Line Location: RESPOND+1
Function Call: READ
  • Variable: GMRPX
  • Timeout: 60
  • Line Location: RESPOND+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !!," Enter:"
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !?8,"C for Crisis Notes",!?8,"W for Clinical Warnings"
  • Line Location: QUES+2
Function Call: WRITE
  • Prompt: !?8,"A for Allergies",!?8,"D for Directive Notes"
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: !?8,"P for Pregnant",!,?8,"L for Lactating"
  • Line Location: QUES+4
Function Call: WRITE
  • Prompt: !?8,"CWADPL for all 6 patient warnings"
  • Line Location: QUES+5
Function Call: WRITE
  • Prompt: !!?8,"or any combination of C, W, A, D, P and L without commas."
  • Line Location: QUES+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMT(142 - [#142] FIND1^DIC
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call