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

Package: Inpatient Medications

Routine: PSGOE42


Information

PSGOE42 ;BIR/CML - REGULAR ORDER ENTRY (CONT.) ;Feb 02, 2022

Source Information

Source file <PSGOE42.m>

Entry Points

Name Comments DBIA/ICR reference
1
A1 ;
A2 ;; START NCC T4 MODS >> 327*RJS
5 ; self med
A5
6 ; hospital supplied self med
DONE ;
FF ; up-arrow to another field
DEL ; delete entry
YN ; yes/no as a set of codes
2 ; dispense drug multiple
IND(OI) ;*399-IND
INDA ;
CIND ;
DIFFIND(PSJDFN,PSJORD,PSJNEWVL) ;
; PSJDFN = IEN of #2 (not required for non-verified orders)
; PSJORD = IEN of #53.1/55 + indication like "P","U","V", example = "4033P"
; PSJNEWVL the new value after editing
; returns:
; piece #1
; 1=different than the previous value
; 0=no changes
; -1=new record, no previous values
; piece #2 = value before editing if any (current value in DB)
; piece #3 = new value

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: !,"PROVIDER: ",$S(PSGPR:PSGPRN_"// ",1:"")
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A1+4
Function Call: WRITE
  • Prompt: " "_$$GET1^DIQ(200,PSGPR,53.2)_" "_$$GET1^DIQ(200,PSGPR,53.3)
  • Line Location: A1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: A2+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: !,"SELF MED: "
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGSM+1),"// "
  • Condition for execution: PSGSM]""
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A5+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: !,"HOSPITAL SUPPLIED SELF MED: "
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGHSM+1),"// "
  • Condition for execution: PSGHSM]""
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: 6+7
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: $P(Y,X,2)
  • Line Location: YN+2
Function Call: WRITE
  • Prompt: $C(7),!!,"WARNING: This order must have at least one dispense drug before pharmacy can",!?9,"verify it!"
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: !,"INDICATION:"
  • Line Location: INDA+10
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED WITHOUT SPACES.",!
  • Line Location: CIND+8
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED BETWEEN SPACES.",!
  • Line Location: CIND+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
^PS(53.1 - [#53.1] GET1^DIQ
^PS(53.45 - [#53.45] Classic Fileman Calls
55.06 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call