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

Package: Integrated Patient Fund

Routine: PRPFDST


Information

PRPFDST ;ALTOONA/CTB DISPLAY TRANACTIONS ;7/24/97 8:36 AM

Source Information

Source file <PRPFDST.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6,7**;JUNE 1, 1989
OUT
D ;;DISPLAY/PRINT PATIENT FUNDS TRANSACTIONS
EN1 ;DIRECT ENTRY POINT, UN QUEUED
H
A
B
W1
HDR
DATE ;CONVERT DATE TO SLASH FORMAT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: V+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: X1>1
  • Line Location: B+1
Function Call: WRITE
  • Prompt: !,$P(MADA(0),"^")
  • Line Location: B+1
Function Call: WRITE
  • Prompt: ?7,X,?17,$P(MADA(0),U,7),?29,$P(MADA(0),U,8)
  • Line Location: B+2
Function Call: WRITE
  • Prompt: $J(X,9,2),?41,$J($P(PTRDA(0),U,6),8,2)
  • Line Location: B+2
Function Call: WRITE
  • Prompt: ?54,X,?66,$P(MADA(0),U,10),?71
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<81
  • Line Location: B+5
Function Call: WRITE
  • Prompt: " /ES/"_$$DECODE^PRPFSIG1(MADA),?X+35,$P(MADA(0),"^",16)
  • Line Location: B+5
Function Call: WRITE
  • Prompt: *7,!!," No transactions recorded for this Period."
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "Name: ",@PFHI,$P(DFN(0),"^"),?$X+3
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "Name: ",@PFHI,$P(DFN(0),"^"),?$X+3
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: @PFLO," Claim #: ",@PFHI,$P(DFN(.31),"^",3),?72,@PFLO,"PAGE: ",@PFHI,PAGE
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @PFNORM
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"TR # DATE",?17,"REFERENCE D/W AMOUNT BALANCE DEFERRED P/G CA/CK/OTH"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<81
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: " SIGNATURE",?$X+20,"REMARKS"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HDR+3
Info |  Source |  Entry Points |  Interaction Calls