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 |  Local Variables |  All
Print Page as PDF
Routine: TIUPRPN6

Package: Text Integration Utility

Routine: TIUPRPN6


Information

TIUPRPN6 ;SLC/MJC-Print PNs-Most Current Admission ; 6/26/01

Source Information

Source file <TIUPRPN6.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^%DT  ^DIC  ^DIR  
Text Integration Utility 2 DEVICE^TIUPRPN  ($$FLAG,REPLACE,SETUP)^TIUPRPN3  
Registration 1 IN5^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIU PRINT PN ADMISSION  

Entry Points

Name Comments DBIA/ICR reference
NOTESX ;
ADM ;prints PNs for LAST admission to either date of discharge or NOW
NOTES(TIUDFN) ;get the notes for the admission
HELP ;help for yes/no print all notes for admission question

External References

Name Field # of Occurrence
^%DT NOTES+19, NOTES+21
^DIC ADM+7
^DIR NOTES+14
DEVICE^TIUPRPN ADM+15
$$FLAG^TIUPRPN3 ADM+13
REPLACE^TIUPRPN3 NOTES+29
SETUP^TIUPRPN3 ADM+6
IN5^VADPT NOTES+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ADM+7
Function Call: WRITE
  • Prompt: !!?5,$C(7),"There are no signed "
  • Line Location: ADM+8
Function Call: WRITE
  • Prompt: "progress notes on file for this patient.",!
  • Line Location: ADM+9
Function Call: WRITE
  • Prompt: !!?5,$C(7),"I don't have any record of an admission "
  • Line Location: NOTES+3
Function Call: WRITE
  • Prompt: "for this patient.",!?5,"Select another patient."
  • Line Location: NOTES+4
Function Call: WRITE
  • Prompt: !!,"Patient was admitted: ",$P(ADMDT,U,2)
  • Line Location: NOTES+6
Function Call: WRITE
  • Prompt: !!,"Searching for the notes "
  • Line Location: NOTES+24
Function Call: WRITE
  • Prompt: !!,"No SIGNED notes found in this date "
  • Line Location: NOTES+34
Function Call: WRITE
  • Prompt: "range for this patient."
  • Line Location: NOTES+35
Function Call: WRITE
  • Prompt: !!,">> "_CTR_" note"_$S(CTR>1:"s",1:"")_" found.",!
  • Line Location: NOTES+36
Function Call: WRITE
  • Prompt: !!?5,"Answer YES and all the progress notes for this admission will "
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?5,"be printed in CONTIGUOUS format."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!?5,"Answer NO and you will be asked to select a date range for "
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?5,"this patient."
  • Line Location: HELP+4
Routine Call
  • DIC
  • Line Location:
    • ADM+7
Routine Call
  • DIR
  • Line Location:
    • NOTES+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] ADM+8, NOTES+27, NOTES+28
^TMP("TIUPR" NOTES+25!, NOTES+32*, NOTES+34
^TMP("TIUREPLACE" NOTES+25!, NOTES+30, NOTES+31, NOTES+33, NOTESX+1!

Label References

Name Line Occurrences
NOTES ADM+12
NOTESX NOTES+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT NOTES+17!, NOTES+18*, NOTES+21*
%DT("A" NOTES+18*, NOTES+20*
%DT(0 NOTES+18*
ADMDT NOTES+1~, NOTES+5*, NOTES+6, NOTES+16
BEG NOTES+1~, NOTES+16*, NOTES+20*, NOTES+22*, NOTES+26
CTR NOTES+1~, NOTES+33*, NOTES+36
DATE NOTES+1~, NOTES+26*, NOTES+27*, NOTES+28, NOTES+29, NOTES+31*, NOTES+32
DFN NOTES+1~, NOTES+2*, NOTES+27, NOTES+28, NOTES+32
DIC ADM+5~, ADM+7*
DIC(0 ADM+7*
DIR NOTES+1~
DIR("?" NOTES+14*
DIR("A" NOTES+9*, NOTES+12*, NOTES+13*
DIR("B" NOTES+13*
DIR(0 NOTES+13*
>> DIRUT NOTES+15
>> DTOUT NOTES+19, NOTES+21
END NOTES+1~, NOTES+16*, NOTES+22*, NOTES+27
HOLD NOTES+1~, NOTES+22*
IFN NOTES+1~, NOTES+28*, NOTES+29, NOTES+30*, NOTES+31, NOTES+32
TIUDFN ADM+5~, ADM+11*, ADM+12, NOTES~, NOTES+2, NOTES+32
TIUFLAG ADM+10~, ADM+13*, ADM+15
TIUQT ADM+5~, ADM+7!, ADM+12, NOTES+4*, NOTES+15*, NOTES+17, NOTES+19*, NOTES+21*, NOTES+35*
TIUSPG ADM+10~, ADM+14*, ADM+15
U NOTES+6, NOTES+8, NOTES+32
VAIP NOTES+1~
VAIP("D" NOTES+2*
VAIP(1 NOTES+3
VAIP(13 NOTES+5
VAIP(17 NOTES+7, NOTES+8, NOTES+16
Y ADM+5~, ADM+7, ADM+8, ADM+11, NOTES+1~, NOTES+16, NOTES+19, NOTES+20, NOTES+21, NOTES+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All