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

Package: Registration

Routine: DGPTFM6


Information

DGPTFM6 ;ALB/BOK/ADL/PLT - 601 SCREEN: PROCEDURE ENTER/EDIT ;21 JUL 88 @ 0900

Source Information

Source file <DGPTFM6.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point - begin date checks
T ;add procedure record
EDIT ;
SET
WRT ;
NEXP ;S DGZP=DGZP+1 G ^DGPTFM:'$D(P(DGZP)),SET
HELP
MOB
BS ;CALLED FROM [DG601]
R ;DELETE PROCEDURE RECORD
E ;EDIT PROCEDURE RECORD
P
P1
P2
FY86
GETVAR ;CALLED FROM GET+1^DGPTFM
BADDT(DGPROCD) ; Check patients admit date and entered date against census DATE
; If admit date is after census date then we're done
; checks to see if Patient has been discharged or has a closed census and returns false
; If not discharged or closed and the admit and procedure date is within census date range then return false
; If admit date and procedure date is past the date range then return true
PGBR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Data can't be entered into Procedure Records until 10/1/1987"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: @IOF,HEAD,?68
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,?30,"Initial Date Of Service: ",$$EXTERNAL^DILFD(45,14,,$G(DGIDTS))
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: $J("Date of Proc: ",32),Y,!,$J("Specialty: ",35)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: $S($D(^DIC(42.4,+$P(P(DGZP),U,2),0)):$P(^(0),U),1:""),!
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: " Number of Dialysis Treatments: ",$P(P(DGZP),U,4),!
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: " Procedures: ",$$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+16
Function Call: WRITE
  • Prompt: "Enter <RET> to continue, 1-2 to edit,",!,"'T' to add a Procedure Segment, '^N' for screen N, or '^' to abort: <",DGNUM,">//"
  • Line Location: WRT+18
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: !,"Enter '^' to stop display and edit of data",!,"'^N' to jump to screen #N (appears in upper right of screen as <N>)",!,"<RET> to continue on to next screen or 1-2 to edit:"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !?10,"1-Procedure information",!,?10,"2-Procedure codes",!,"You may also enter any combination of the above, separated by commas (ex:1,2)",!
  • Line Location: HELP+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter <RET>: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"View Prodedure Codes first",!
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,"No codes can be added to a Procedure Record",!
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,"There are no procedure records that can be added to.",*7
  • Line Location: P+12
Function Call: READ
  • Variable: DGRC
  • Timeout: DTIME
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !!,"Add to procedure record <",L,"> : "
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !!,"No more 401P procedures (before 10/01/1987) can be added.",*7
  • Line Location: FY86+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls,  EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call